Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <String.au3>
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- #NoTrayIcon
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("HtS - StH", 218, 70, 400,180, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
- $Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
- $Input2 = GUICtrlCreateInput("Hello! I'm HtS - StH", 8, 40, 121, 21,BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
- $hts = GUICtrlCreateButton("Hex to String", 136, 8, 75, 25)
- $sth = GUICtrlCreateButton("String to Hex", 136, 40, 75, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $hts
- If GUICtrlRead($input1)<> '' then
- GUICtrlSetData($input2,_HexToString(GUICtrlRead($input1)))
- Else
- Sleep(50)
- ControlFocus("","",$input1)
- EndIf
- Case $sth
- If GUICtrlRead($input1)<> '' then
- GUICtrlSetData($input2,_StringToHex(GUICtrlRead($input1)))
- Else
- Sleep(50)
- ControlFocus("","",$input1)
- EndIf
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement