Guest User

Untitled

a guest
Oct 11th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.36 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  4. #include <Array.au3>
  5.  
  6. ;========Checkbox Names _SpezOpt=========
  7. Global $Checkbox[14]
  8. Global $CheckNames[14] = ['RAR', 'Zip', 'CAB', 'ARJ', 'LZH', 'ACE', '7-Zip', 'Tar', 'GZip', 'UUE', 'BZ2', 'Jar', 'ISO', 'Z']
  9. Global $CheckFunk[14] = ['_RAR', '_ZIP', '_CAB', '_ARJ', '_LZH', '_ACE', '_7ZIP', '_TAR', '_GZIP', '_UUE', '_BZ2', '_JAR', '_ISO', '_Z']
  10. Global $Left[14] = [16, 72, 128, 184, 240, 296, 352, 408, 464, 520, 16, 72, 128, 184]
  11. Global $Top[14] = [352, 352, 352, 352, 352, 352, 352, 352, 352, 352, 376, 376, 376, 376]
  12. ;RAR ZIP CAB ARJ LZH ACE 7ZIP TAR GZIP UUE BZ2 JAR ISO Z
  13. ;========================================
  14.  
  15.  
  16. $gui = GUICreate("Form1", 610, 434, 192, 124)
  17. GUICtrlCreateGroup("Group1", 8, 8, 593, 417)
  18. $button = GUICtrlCreateButton('Save', 50, 330, 30, 20)
  19. GUISetState(@SW_SHOW)
  20.  
  21.  
  22. For $Ci = 0 To UBound($CheckNames) - 1
  23.     $Checkbox = GUICtrlCreateCheckbox($CheckNames[$Ci], $Left[$Ci], $Top[$Ci], 49, 17)
  24. Next
  25.  
  26. While 1
  27.     $nMsg = GUIGetMsg()
  28.     Switch $nMsg
  29.         Case $GUI_EVENT_CLOSE
  30.             Exit
  31.         Case $button
  32.             For $i = 1 To 14
  33. ;~              MsgBox(0,'',$i)
  34.                 If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then Call($CheckFunk[$i])
  35.             Next
  36.  
  37.     EndSwitch
  38. WEnd
  39.  
  40. Func _RAR()
  41.     MsgBox(0, '', '1')
  42. EndFunc   ;==>_RAR
  43. Func _Z()
  44.     MsgBox(0, '', '2')
  45. EndFunc   ;==>_Z
Add Comment
Please, Sign In to add comment