Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- #include <Array.au3>
- ;========Checkbox Names _SpezOpt=========
- Global $Checkbox[14]
- Global $CheckNames[14] = ['RAR', 'Zip', 'CAB', 'ARJ', 'LZH', 'ACE', '7-Zip', 'Tar', 'GZip', 'UUE', 'BZ2', 'Jar', 'ISO', 'Z']
- Global $CheckFunk[14] = ['_RAR', '_ZIP', '_CAB', '_ARJ', '_LZH', '_ACE', '_7ZIP', '_TAR', '_GZIP', '_UUE', '_BZ2', '_JAR', '_ISO', '_Z']
- Global $Left[14] = [16, 72, 128, 184, 240, 296, 352, 408, 464, 520, 16, 72, 128, 184]
- Global $Top[14] = [352, 352, 352, 352, 352, 352, 352, 352, 352, 352, 376, 376, 376, 376]
- ;RAR ZIP CAB ARJ LZH ACE 7ZIP TAR GZIP UUE BZ2 JAR ISO Z
- ;========================================
- $gui = GUICreate("Form1", 610, 434, 192, 124)
- GUICtrlCreateGroup("Group1", 8, 8, 593, 417)
- $button = GUICtrlCreateButton('Save', 50, 330, 30, 20)
- GUISetState(@SW_SHOW)
- For $Ci = 0 To UBound($CheckNames) - 1
- $Checkbox = GUICtrlCreateCheckbox($CheckNames[$Ci], $Left[$Ci], $Top[$Ci], 49, 17)
- Next
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $button
- For $i = 1 To 14
- ;~ MsgBox(0,'',$i)
- If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then Call($CheckFunk[$i])
- Next
- EndSwitch
- WEnd
- Func _RAR()
- MsgBox(0, '', '1')
- EndFunc ;==>_RAR
- Func _Z()
- MsgBox(0, '', '2')
- EndFunc ;==>_Z
Add Comment
Please, Sign In to add comment