Igrek1024
06-04-2010, 18:12
Всем здравствуйте! Я новичок в 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);
Не могу реализовать эти самые галочки, и чтобы по нажатию кнопки "применить" работали только проверенные чекбоксы. собственно пример кода:
$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);