Advertisement
flypip

Flyconver (convertisseur)

Nov 1st, 2011
214
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.20 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6.  
  7. $Form1 = GUICreate("decode", 245, 296, 192, 124)
  8. $Input1 = GUICtrlCreateInput("", 8, 8, 225, 21)
  9. $Button1 = GUICtrlCreateButton("decode!", 8, 64, 227, 25)
  10. $Button2 = GUICtrlCreateButton("mettre dans le presse papier", 8, 96, 227, 25)
  11. $Checkbox1 = GUICtrlCreateCheckbox("binaire => acsii", 8, 40, 225, 17)
  12. $Label1 = GUICtrlCreateLabel("", 8, 128, 220, 153)
  13. GUISetState(@SW_SHOW)
  14.  
  15. While 1
  16.         $nMsg = GUIGetMsg()
  17.         Switch $nMsg
  18.                 Case $GUI_EVENT_CLOSE
  19.                         Exit
  20.                 Case $Button1
  21.                        If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
  22.                          $res = BinaryToString(GUICtrlRead($Input))
  23.                          GuiCtrlSetData($Label1,$res,0)
  24.                       Else
  25.                          $res = StringToBinary(GUICtrlRead($Input))
  26.                          GuiCtrlSetData($Label1,$res,0)
  27.                       Endif
  28.                      
  29.                 Case $Button2
  30.                      ClipPut($res)
  31.                
  32.  
  33.         EndSwitch
  34. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement