; Предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
#include <File.au3>
Local $sCMDPath = _TempFile(Default, Default, '.bat')
Local $hCMDFile = FileOpen($sCMDPath, 1)
If ($hCMDFile = -1) Then
MsgBox(4096, "Error", "Unable to open file.")
Exit
EndIf
GUICreate('My Program', 250, 260)
$iCheckbox1 = GUICtrlCreateCheckbox("Чекбокс 1", 10, 10, 230, 20)
$iCheckbox2 = GUICtrlCreateCheckbox("Чекбокс 2", 10, 30, 230, 20)
$iButton = GUICtrlCreateButton('Применить', 75, 228, 100, 22)
GUISetState()
While 1
Switch GUIGetMsg()
Case $iButton
If GUICtrlRead($iCheckbox1) = 1 Then
FileWriteLine($hCMDFile, "start """" C:\WINDOWS\NOTEPAD.EXE")
EndIf
If GUICtrlRead($iCheckbox2) = 1 Then
FileWriteLine($hCMDFile, "отмечен чекбокс 2")
EndIf
FileClose($hCMDFile)
RunWait($sCMDPath, @TempDir, @SW_HIDE)
FileDelete($sCMDPath)
Exit
Case -3
FileClose($hCMDFile)
FileDelete($sCMDPath)
Exit
EndSwitch
WEnd |
