Dliner
Новичок
- Сообщения
- 9
- Репутация
- 0
Здравствуйте. Пытаюсь в 4 утра написать такую вещь, чтобы по выбору чекбокса №1 запускался файл №1, по выбору №2, файл №2, но лыжи не едут.
Подскажите молодому, где ошибка? Как сделать чтобы заработал?
Пока удалось только добиться чтобы по любому из чекбоксов запускался один и тот же файл.
А надо:
Чек 1- файл 1
Чек 2 - файл 2 и т.д.
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 303, 160, 192, 124)
Global $CheckBoxes[4], $check = 0
$CheckBoxes[0] = GUICtrlCreateCheckbox("Номер 1", 16, 16, 97, 17)
$CheckBoxes[1] = GUICtrlCreateCheckbox("Номер 2", 16, 40, 97, 17)
$CheckBoxes[2] = GUICtrlCreateCheckbox("Номер 3", 16, 64, 97, 17)
$CheckBoxes[3] = GUICtrlCreateCheckbox("Номер 4", 16, 88, 97, 17)
$Button1 = GUICtrlCreateButton("Button1", 136, 32, 121, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 0
If GUICtrlRead($CheckBoxes[0]) = $GUI_CHECKED Then
Run("C:\off.bat")
$check = 1
EndIf
For $i = 1
If GUICtrlRead($CheckBoxes[1]) = $GUI_CHECKED Then
Run("C:\off1.bat")
$check = 1
EndIf
Next
If $check = 0 Then
MsgBox(0, 'Уведомление', 'Ничего не выбрано.')
EndIf
$check = 0
EndSwitch
WEnd
Подскажите молодому, где ошибка? Как сделать чтобы заработал?
Пока удалось только добиться чтобы по любому из чекбоксов запускался один и тот же файл.
А надо:
Чек 1- файл 1
Чек 2 - файл 2 и т.д.