Advertisement
emga9xkc

Source Tool nhỏ HtS - StH

Feb 13th, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.43 KB | None | 0 0
  1. #include <String.au3>
  2. #include <ButtonConstants.au3>
  3. #include <EditConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6. #NoTrayIcon
  7. #Region ### START Koda GUI section ### Form=
  8. $Form1 = GUICreate("HtS - StH", 218, 70, 400,180, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
  9. $Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
  10. $Input2 = GUICtrlCreateInput("Hello! I'm HtS - StH", 8, 40, 121, 21,BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
  11. $hts = GUICtrlCreateButton("Hex to String", 136, 8, 75, 25)
  12. $sth = GUICtrlCreateButton("String to Hex", 136, 40, 75, 25)
  13. GUISetState(@SW_SHOW)
  14. #EndRegion ### END Koda GUI section ###
  15.  
  16. While 1
  17.         $nMsg = GUIGetMsg()
  18.         Switch $nMsg
  19.                 Case $GUI_EVENT_CLOSE
  20.                         Exit
  21.                  Case $hts
  22.                         If GUICtrlRead($input1)<> '' then
  23.                         GUICtrlSetData($input2,_HexToString(GUICtrlRead($input1)))
  24.                         Else
  25.                         Sleep(50)
  26.                         ControlFocus("","",$input1)
  27.                         EndIf
  28.                  Case $sth
  29.                         If GUICtrlRead($input1)<> '' then
  30.                         GUICtrlSetData($input2,_StringToHex(GUICtrlRead($input1)))
  31.                         Else
  32.                         Sleep(50)
  33.                         ControlFocus("","",$input1)
  34.                         EndIf
  35.         EndSwitch
  36. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement