ynbIpb
![](http://forum.ru-board.com/board/avatars/Bat Simpson.gif)
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 5peciali5t, скачал. Тестировал на чистой виртуалке XP Sp3. Псоле установки Flash Player 11.0 система ушла в ребут. Потом после перезагрузки начинается второй этап. Вот скрипт для первой части: Код: $sAskTitle = "Установка Nero Ask Toolbar" $sFlashTitle = "Программа установки Adobe® Flash® Player 11.0" Run (@ScriptDir & "\Nero_KwikMedia-11.0.15300_free.exe /s") WinWait ($sAskTitle) ; ожидаем появления окна Тулбара WinActivate ($sAskTitle) ; делаем окно активным (если вдруг оно потеряло фокус) Sleep (500) ControlClick ($sAskTitle, "", "Button2") ; снимаем чекбокс (странно, определяется как кнопка) ControlClick ($sAskTitle, "", "Button1") ; нажимаем "След.>" WinWait ($sFlashTitle) ; ожидаем появления окна Флеша WinActivate ($sFlashTitle) ; делаем окно активным (если вдруг оно потеряло фокус) Sleep (500) ControlClick ($sFlashTitle, "", "Button4") ; отмечаем чекбокс ControlClick ($sFlashTitle, "", "Button3") ; нажимаем "Установка" Sleep (500) While 1 ; проверяем в цикле активна ли кнопка 3, если да значит уже готово If ControlCommand ($sFlashTitle, "", "Button3", "IsEnabled", "") = 1 Then ExitLoop ; выходим из цикла EndIf Sleep (100) ; пауза, чтобы не грузить проц в цикле WEnd WinActivate ($sFlashTitle) ; делаем окно активным (если вдруг оно потеряло фокус) Sleep (500) ControlClick ($sFlashTitle, "", "Button3") ; нажимаем "Готово" | Второй кусок, после перезагрузки: Код: $sNeroTitle = "«Nero Kwik Media», мастер «InstallShield»" WinWait ($sNeroTitle) ; ожидаем появления окна Nero WinActivate ($sNeroTitle) ; делаем окно активным (если вдруг оно потеряло фокус) Sleep (500) ControlClick ($sNeroTitle, "", "Button3") ; принимаем условия Sleep (200) ControlClick ($sNeroTitle, "", "Button4") ; нажимаем "Далее >" Sleep (500) ControlClick ($sNeroTitle, "", "Button8") ; отказываемся учавствовать в какойто хрени Sleep (200) ControlClick ($sNeroTitle, "", "Button1") ; нажимаем "Установить" While 1 ; проверяем в цикле какой текст на кнопке 1 If ControlGetText ($sNeroTitle, "", "Button1") = "&Готово" Then ExitLoop ; выходим из цикла EndIf Sleep (100) ; пауза, чтобы не грузить проц в цикле WEnd WinActivate ($sNeroTitle) ; делаем окно активным (если вдруг оно потеряло фокус) Sleep (500) ControlClick ($sNeroTitle, "", "Button1") ; нажимаем "Готово" | Но полноценно не тестировал. | Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 22:18 17-10-2011 | Исправлено: ynbIpb, 22:56 17-10-2011 |
|