[saavaage]

проблему удалось решить только так:
1. заменил код:

Код:

Func _SaveOld()
 GUICtrlSetState($Button_Save, $GUI_DISABLE)
 $Save_Event = $sLog3_2
 $Save_BITS = $sLog2_2
 $Save_MU = $sLog1_2
 sleep(1000)
 GUICtrlSetState($Button_Save, $GUI_ENABLE)
EndFunc

на:

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

Код:

Func _SaveOld()
 GUICtrlSetState($Button_Save, $GUI_DISABLE)
 Select
    Case $sLog1_2 = '2'
        $Save_MU = 'auto'
	Case $sLog1_2 = '3'
        $Save_MU = 'demand'
	Case $sLog1_2 = '4'
        $Save_MU = 'disabled'
	Case $sLog1_2 = '0'
        $Save_MU = 'boot'
	Case Else
        $Save_MU = 'system'
EndSelect

 Select
    Case $sLog2_2 = '2'
        $Save_BITS = 'auto'
	Case $sLog2_2 = '3'
        $Save_BITS = 'demand'
	Case $sLog2_2 = '4'
        $Save_BITS = 'disabled'
	Case $sLog2_2 = '0'
        $Save_BITS = 'boot'
	Case Else
        $Save_BITS = 'system'
EndSelect

 Select
    Case $sLog3_2 = '2'
        $Save_Event = 'auto'
	Case $sLog3_2 = '3'
        $Save_Event = 'demand'
	Case $sLog3_2 = '4'
        $Save_Event = 'disabled'
	Case $sLog3_2 = '0'
        $Save_Event = 'boot'
	Case Else
        $Save_Event = 'system'
EndSelect
 sleep(1000)
 GUICtrlSetState($Button_Save, $GUI_ENABLE)
EndFunc

2. заменил код:

Код:

Func _RestoreOld()
 GUICtrlSetState($Button_Restore, $GUI_DISABLE)
 RunWait(RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog', 'Start', 'REG_DWORD', $Save_Event))
 RunWait(RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\muauserv', 'Start', 'REG_DWORD', $Save_MU))
 RunWait(RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\BITS', 'Start', 'REG_DWORD', $Save_BITS))
  sleep(1000)
 _ServicesStat()
 sleep(1000)
 GUICtrlSetState($Button_Restore, $GUI_ENABLE)
EndFunc

на:

Код:

Func _RestoreOld()
 GUICtrlSetState($Button_Restore, $GUI_DISABLE)
 RunWait('sc config eventlog start= ' & $Save_Event &'', '', @SW_HIDE)
 RunWait('sc config wuauserv start= ' & $Save_MU &'', '', @SW_HIDE)
 RunWait('sc config BITS start= ' & $Save_BITS &'', '', @SW_HIDE)
  sleep(1000)
 _ServicesStat()
 sleep(1000)
 GUICtrlSetState($Button_Restore, $GUI_ENABLE)
EndFunc

Может кто-нибудь все-таки поможет в плане

как мне кажется, скрипт можно сократить (смущает большое количество однотипных операций). »

[amel27]

Может кто-нибудь все-таки поможет »

- не указана версия AutoIT, на котором проводится отладка;
- туманное и нечеткое описание задач скрипта;
- скрипт "сходу" нерабочий (ошибки отсутствия .AU3, переменных и т.п.);
- отсутствуют комментарии/структурирование кода

...Вы всё еще чему-то удивляетесь?

[saavaage]

amel27 & ALL, извините, исправляюсь:
1. версия autoit 3.3.6.1
2. задачи скрипта:
1. индикация состояния служб, необходимых для работы MU (зеленые иконки - соответсвуют, красные -нет)
2. по нажатию на кнопки совершить следующие действия:
- кнопка"Сохранить" - сохранение текущей конфигурации "типа запуска" служб (т.е. конфигурация, которая у юзера поумолчанию)
- кнопка "Старт" - изменение (если необходимо) умолчальных конфигураций служб на конфигурации, которые позволяют MU работать (включая не только изменение типа запуска, но и сам старт служб)
- кнопка "Откат" - если необходимо, позволяют юзеру откатить "новые" настройки (тип запуска) на те, которые у него раньше были (важно, если работаешь на чужом ПК или сам не хочешь держать автообновление и проч. в автозагрузке).
3. скрипт рабочий, но необходимо качать архив mu_services.7z, т.к. без иконок, Вы не увидите его работу. Код был выложен для общей информации и без иконок он работать не будет. кроме того, каюсь, забыл вложить Icons.au3.
4. комментарии добавил,архив перезалил (см. шапку).

Заранее спасибо

[amel27]

скрипт получился слишком громоздким »

поверьте, четыре страницы это не много, тут важно не переусердствовать: излишнее сокращение кода (обычно делается через параметризацию) неизбежно ухудшает читабельность и гибкость, т.е. увеличивает затраты на его восприятие и последующие изменения... уменьшить количество текста на файл можно разделением скрипта на несколько файлов (по функциям) и загрузкой их через INCLUDE... Теперь по-существу дела - что бы я попытался изменить в скрипте:

1. сохранял бы состояние служб не в переменных, а в файле или реестре;
2. избавился от внешней утилиты SC, варианты - реестр, WMI, API;
3. вместо конструкции Select/Case активней использовал массивы (параметризация);
4. только нужные ф-ции из Icons.AU3 перенес в основной код скрипта
5. подключил иконки как ресурс EXE-файла

что Вы думаете по этому поводу?

[saavaage]

amel27, мда.... не все понял, но:

1. вопрос в том, что я хочу сделать утилиту, которая бы не следила на машшине, т.е. , по возможности, никаких доп. изменений
2. sc - вынужденная необходимость. ввел, когда не получилось изменить через RegWrite тип запуска Автоматического обновления. Плюс -утилита присутствует как в xp, так и в win7
3. массивы пока только планирую начать изучать (я так понял, что нужно смотреть все функции с _Array) Если не затруднит, то можно дать направление, что делать мне в данном случае или, даже, пример
4. если можно, то почему так будет лучше? Меньше весить будет или еще что-то? Просто, этот скрипт- часть утилиты, которую я пытаюсь сделать (там 6 вкладок и уже много инклюдов) и для меня этот вопрос очень важен..
5. не совсем понял? это через file instal или как?

[amel27]

1. дело вкуса, можно и в TEMP... но если скрипт зависнет, все сохранения пропадут
2. насколько помню, Вы его использовали неправильно, но запустить службу через реестр всё равно не выйдет, проще всего через WMI
3. нет, без всяких библиотек,

например, следующий код

Код:

Select
    Case $sLog1_2 = '2'
        $Save_MU = 'auto'
	Case $sLog1_2 = '3'
        $Save_MU = 'demand'
	Case $sLog1_2 = '4'
        $Save_MU = 'disabled'
	Case $sLog1_2 = '0'
        $Save_MU = 'boot'
	Case Else
        $Save_MU = 'system'
EndSelect

 Select
    Case $sLog2_2 = '2'
        $Save_BITS = 'auto'
	Case $sLog2_2 = '3'
        $Save_BITS = 'demand'
	Case $sLog2_2 = '4'
        $Save_BITS = 'disabled'
	Case $sLog2_2 = '0'
        $Save_BITS = 'boot'
	Case Else
        $Save_BITS = 'system'
EndSelect

 Select
    Case $sLog3_2 = '2'
        $Save_Event = 'auto'
	Case $sLog3_2 = '3'
        $Save_Event = 'demand'
	Case $sLog3_2 = '4'
        $Save_Event = 'disabled'
	Case $sLog3_2 = '0'
        $Save_Event = 'boot'
	Case Else
        $Save_Event = 'system'
EndSelect

эквивалентен такому:

Код:

Dim $aSvcState[5]=['boot','','auto','demand','disabled']

$Save_MU   = $aSvcState[$sLog1_2]
$Save_BITS = $aSvcState[$sLog2_2]
$Save_Event= $aSvcState[$sLog3_2]

4. если ф-ций используется мало и они простые, можно их перенести в свой код, но придется разобраться в их работе, плюсы - лучшее понимание своего скрипта, а значит больший над ним контроль (в чужих библиотеках нередки ошибки или нестыковки с версиями AutoIT)
5. AutoIt Wrapper GUI - Расширенная компиляция скриптов

[saavaage]

amel27,
по п.2 - там была проблема с переключением "типа запуска" Автообновления, а не сам запуск. Т.е. не отрабатывал такой вариант:

Код:

 $Save_MU = $sLog1_2
RunWait(RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\muauserv', 'Start', 'REG_DWORD', $Save_MU))

по п.3 -спасибо, супер! Можно немного "разжевать" суть процесса. Я понимаю так:
1. создается массив из 5 элементов (boot, system, auto, demand, disabled)
Dim $aSvcState[5]=['boot','system','auto','demand','disabled']
2. идет присвоение переменным:
$Save_MU - присваивается значение элемента массива $aSvcState[$sLog1_2], причем, насколько я понял [$sLog1_2] -это порядковый номар элемента? Т.е. если $sLog1_2 = 2, то выбирается 2 номер, т.е. auto... и так далее
Правильно?

[amel27]

не отрабатывал такой вариант »

RunWait не нужен для запуска штатной ф-ции AutoIT:

Код:

RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\muauserv', 'Start', 'REG_DWORD', $sLog1_2)

Правильно? »

угу, именно так и используются массивы

[saavaage]

amel27, на эту же тему - попробЫвал также переделать код с иконками (пришлось делать многомерный массив, т.к. разные условия):

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

Код:

 IF $sLog1_1 = 4 Then
	  $pic1_1 = 'ok.ico'
	  _ImageGet()
     ELSE
	   $pic1_1 = 'error.ico'
	  _ImageGet()
   EndIf

   IF $sLog3_1 = 4 Then
	   $pic3_1 = 'ok.ico'
	  _ImageGet()
    ELSE
	   $pic3_1 = 'error.ico'
	  _ImageGet()
   EndIf

   IF $sLog1_2 = 2 Then
	  $pic1_2 = 'ok.ico'
	  _ImageGet()
    ELSE
	  $pic1_2 = 'error.ico'
	  _ImageGet()
   EndIf

IF $sLog2_2 = 4 Then
$pic2_2 = 'error.ico'
_ImageGet()
ELSE
$pic2_2 = 'ok.ico'
_ImageGet()
EndIf[/code]

на:

Код:

Dim $aState1[3][4]=[['error.ico','','','ok.ico'], ['','ok.ico','error.ico','error.ico'], ['','ok.ico','ok.ico','error.ico']]
$pic1_1 = $aState1[1][$sLog1_1]
$pic3_1 = $aState1[1][$sLog3_1]
$pic1_2 = $aState1[2][$sLog1_2]
$pic2_2 = $aState1[3][$sLog2_2]
$pic3_2 = $aState1[2][$sLog3_2]
_ImageGet()

и выдало ошибку

Код:

C:\Documents and Settings\?????????????\??????? ????\Hotfixes2-1.au3 (145) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$pic1_1 = $aState1[1][$sLog1_1]
$pic1_1 = ^ ERROR