Оболочка для программы на AutoIT

[Igrek1024]

Всем здравствуйте! Я новичок в AutoIT, так что прошу строго не судить. Вообщем, написал скрипт который меняет значения реестра(нечто вроде твикера), но тут понадобилось написать оболочку для него, т.е, чтобы можно было поставить необходимые галочки, нажать кнопку применить и установилось только выделенное галочками. Лично меня устраивает скриптовая версия, поэтому с оболочкой проблемы.

Не могу реализовать эти самые галочки, и чтобы по нажатию кнопки "применить" работали только проверенные чекбоксы. собственно пример кода:



Код:

Код: Выделить всё

$Checkbox2 = GUICtrlCreateCheckbox("запрет автозапуска с СД", 16, 40, 433, 17)  
$string="Запрет автозапуска с CD"
$Result=regwrite ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CDRom", "autorun", "reg_dword", 0)Error($Result, $string); {запрет автозапуска с СД}
$Checkbox3 = GUICtrlCreateCheckbox("установка неподписанных драйверов", 16, 64, 513, 17)  GUICtrlSetState(-1, $GUI_CHECKED)
$string="установка неподписанных драйверов"
$Result=regwrite (" HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Driver Signing", "Policy Value", "Reg_dword", 0)Error($Result, $string);{установка неподписанных драйверов}

необходимо чтобы по установке галочки к примеру $checkbox3 а затем по нажатию кнопки "применить"срабатывали чекбоксы в которых галка установлена, т.е. применялись:



Код:

Код: Выделить всё

$string="установка неподписанных драйверов"
$Result=regwrite (" HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Driver Signing", "Policy Value", "Reg_dword", 0)Error($Result, $string);

[gregaz]

Пример :

читать дальше »

Код:

Код: Выделить всё

#include 
GUICreate("My GUI",300,200)
$hCheck_1 = GUICtrlCreateCheckbox("CHECKBOX_1", 10, 10, 120, 20)
$hCheck_2 = GUICtrlCreateCheckbox("CHECKBOX_2", 10, 30, 120, 20)
$Button_1 = GUICtrlCreateButton("Применить", 10, 170, 100)
$Button_Exit = GUICtrlCreateButton("Exit", 190, 170, 100)
GUISetState(@SW_SHOW) 
While 1
   $msg = GUIGetMsg()
   Switch $msg
      Case $GUI_EVENT_CLOSE,$Button_Exit
         ExitLoop
      Case $Button_1
         $iReadCheck=GUICtrlRead ( $hCheck_1) 
         If $iReadCheck=1 Then
           If  MsgBox(4,'Инфо',"CHECKBOX_1 : Отмечен" & @LF & "Выпонить действия ?")  6 Then ContinueLoop
            ; Необходимые группа действий
         EndIf
         $iReadCheck=GUICtrlRead ( $hCheck_2) 
         If $iReadCheck=1 Then
           If  MsgBox(4,'Инфо',"CHECKBOX_2 : Отмечен" & @LF & "Выпонить действия ?")  6 Then ContinueLoop
            ; Необходимые группа действий
         EndIf
   EndSwitch
WEnd