Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   Оболочка для программы на AutoIT (http://forum.oszone.net/showthread.php?t=172382)

Igrek1024 06-04-2010 18:12 1386371

Оболочка для программы на AutoIT
 
Всем здравствуйте! Я новичок в 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 06-04-2010 18:56 1386403

Пример :
читать дальше »
Код:

#include <GUIConstantsEx.au3>

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



Время: 03:55.

Время: 03:55.
© OSzone.net 2001-