+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Coding (https://sinister.li/Forum-Coding--71)
+--- Thread: [AutoIt] String Converter (/Thread-AutoIt-String-Converter)
[AutoIt] String Converter - ReaperX - 11-18-2011
Converts:
---------------------
- String to Binary
- Binary to String
- String to Hex
- Hex to String
---------------------
Code:
#include <String.au3>
Main()
StringToB()
StringToH()
BinaryToS()
HexToS()
Func Main()
GUIDelete()
GUICreate("String Converter", 250, 230)
$title = GUICtrlCreateLabel("String Converter by ReaperX", 55, 20)
$StringToB = GUICtrlCreateButton("String -> Binary", 75, 60, 100, 30)
$StringToH = GUICtrlCreateButton("String -> Hex", 75, 90, 100, 30)
$BinaryToS = GUICtrlCreateButton("Binary -> String", 75, 120, 100, 30)
$HexToS = GUICtrlCreateButton("Hex -> String", 75, 150, 100, 30)
$about = GUICtrlCreateButton("About", 0, 210, 80, 20)
$exit = GUICtrlCreateButton("Exit", 170, 210, 80, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $StringToB
StringToB()
Case $msg = $StringToH
StringToH()
Case $msg = $BinaryToS
BinaryToS()
Case $msg = $HexToS
HexToS()
Case $msg = $about
MsgBox(0, "About", "Created By ReaperX (C) 2011.")
Case $msg = $exit
Exit
EndSelect
WEnd
EndFunc ;==>Main
Func StringToB()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("String To Binary", 110, 50)
$text_label = GUICtrlCreateLabel("Text String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "String to Convert to Binary.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = StringToBinary($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>StringToB
Func StringToH()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("String To Hex", 110, 50)
$text_label = GUICtrlCreateLabel("Text String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "String to Convert to Hex.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = _StringToHex($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>StringToH
Func BinaryToS()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("Binary To String", 110, 50)
$text_label = GUICtrlCreateLabel("Binary String:", 8, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "Binary String to Convert to Text.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = BinaryToString($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>BinaryToS
Func HexToS()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("Hex To String", 110, 50)
$text_label = GUICtrlCreateLabel("Hex String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "Hex String to Convert to Text.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = _HexToString($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc[AutoIt] String Converter - ReaperX - 11-18-2011
Converts:
---------------------
- String to Binary
- Binary to String
- String to Hex
- Hex to String
---------------------
Code:
#include <String.au3>
Main()
StringToB()
StringToH()
BinaryToS()
HexToS()
Func Main()
GUIDelete()
GUICreate("String Converter", 250, 230)
$title = GUICtrlCreateLabel("String Converter by ReaperX", 55, 20)
$StringToB = GUICtrlCreateButton("String -> Binary", 75, 60, 100, 30)
$StringToH = GUICtrlCreateButton("String -> Hex", 75, 90, 100, 30)
$BinaryToS = GUICtrlCreateButton("Binary -> String", 75, 120, 100, 30)
$HexToS = GUICtrlCreateButton("Hex -> String", 75, 150, 100, 30)
$about = GUICtrlCreateButton("About", 0, 210, 80, 20)
$exit = GUICtrlCreateButton("Exit", 170, 210, 80, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $StringToB
StringToB()
Case $msg = $StringToH
StringToH()
Case $msg = $BinaryToS
BinaryToS()
Case $msg = $HexToS
HexToS()
Case $msg = $about
MsgBox(0, "About", "Created By ReaperX (C) 2011.")
Case $msg = $exit
Exit
EndSelect
WEnd
EndFunc ;==>Main
Func StringToB()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("String To Binary", 110, 50)
$text_label = GUICtrlCreateLabel("Text String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "String to Convert to Binary.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = StringToBinary($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>StringToB
Func StringToH()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("String To Hex", 110, 50)
$text_label = GUICtrlCreateLabel("Text String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "String to Convert to Hex.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = _StringToHex($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>StringToH
Func BinaryToS()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("Binary To String", 110, 50)
$text_label = GUICtrlCreateLabel("Binary String:", 8, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "Binary String to Convert to Text.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = BinaryToString($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFunc ;==>BinaryToS
Func HexToS()
GUIDelete()
GUICreate("String Converter", 300, 260)
$title = GUICtrlCreateLabel("Hex To String", 110, 50)
$text_label = GUICtrlCreateLabel("Hex String:", 15, 101)
$text = GUICtrlCreateInput("", 75, 100, 170, 18)
GUICtrlSetTip($text, "Hex String to Convert to Text.")
$result = GUICtrlCreateInput("", 75, 130, 170, 18)
GUICtrlSetTip($result, "Conversion Displayed Here.")
$result_label = GUICtrlCreateLabel("Result:", 35, 131)
$convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30)
$back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20)
$copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20)
GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.")
$converter = ""
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Select
Case $msg = $convert
$read = GUICtrlRead($text)
$converter = _HexToString($read)
GUICtrlSetData($result, $converter)
Case $msg = $back
Main()
Case $msg = $copy
ClipPut($converter)
MsgBox(0, "Copied!", "Conversion Copied to Clipboard!")
EndSelect
WEnd
EndFuncRE: [AutoIt] String Converter - Jacob - 11-18-2011
my handy characters is this but times 10
RE: [AutoIt] String Converter - 1234hotmaster - 11-18-2011
Fixed your code to make it work
Nice program =]
RE: [AutoIt] String Converter - ReaperX - 11-19-2011
Thanks And it Worked Anyway... What had to Be Fixed?
RE: [AutoIt] String Converter - 1234hotmaster - 11-19-2011
it didn't... You didn't include String.au3 which is needed for _StringToHex and _HexToString and the GUIConstants.au3 which the $GUI_EVENT_CLOSE is in it and i replaced it with -3 which is the same except no need for the include =]
RE: [AutoIt] String Converter - ReaperX - 11-19-2011
(11-19-2011, 01:46 AM)1234Darkmaster Wrote: it didn't... You didn't include String.au3 which is needed for _StringToHex and _HexToString and the GUIConstants.au3 which the $GUI_EVENT_CLOSE is in it and i replaced it with -3 which is the same except no need for the include =]
Oh Thanks. I Had Included String.au3 but i Must have Accidently Taken it Out When i Copied the Code. xD
RE: [AutoIt] String Converter - Mediocrity_mybb_import6293 - 11-19-2011
Nice programme Darkmaster was right it wouldnt of worked withought the String.au3 include
RE: [AutoIt] String Converter - ReaperX - 11-19-2011
(11-19-2011, 05:46 PM)peggy Wrote: Nice programme Darkmaster was right it wouldnt of worked withought the String.au3 includei know