Вдохновленный примерами, создал скрипт автоустановки QIP2005, но вот незадача в определенный момент не срабатывает WinWait и установка залипает в самом интересном месте, пришлось поставить Sleep, дальше все прошло на ура.
Собственно вопрос к гуру AutoIt есть ли более изящный (правильный) способ побороть это?
Текст скрипта:
Тихую и автоустановку не пробовал, но вроде и ключей кроме /sp- /silent ничего нет.
Собственно вопрос к гуру AutoIt есть ли более изящный (правильный) способ побороть это?
Текст скрипта:
Код:
; Установка QIP 2005
; Переменные
$sPathToProgam = "QIP2005\qip2005.exe"
$sMainWindowName = "Установка — QIP 2005"
; Код программы
;Установка программы
Run($sPathToProgam)
WinWait("Выберите язык установки", "Выберите язык, который будет использован в процессе установки:")
ControlClick("[CLASS:TSelectLanguageForm;TITLE:Выберите язык установки]","","[CLASS:TNewButton; INSTANCE:1]")
$hWinQIP = WinGetHandle($sMainWindowName)
WinWait($hWinQIP, "Вас приветствует Мастер установки QIP 2005")
ControlClick($hWinQIP, "Вас приветствует Мастер установки QIP 2005", "[CLASS:TNewButton; INSTANCE:1]")
WinWait($hWinQIP, "Выбор папки установки")
ControlClick($hWinQIP, "Выбор папки установки", "[CLASS:TRadioButton; INSTANCE:1]")
ControlClick($hWinQIP, "Выбор папки установки", "[CLASS:TNewCheckListBox; INSTANCE:1]","Main",1,10,10)
ControlClick($hWinQIP, "Выбор папки установки", "[CLASS:TNewCheckListBox; INSTANCE:1]","Main",1,10,32)
ControlClick($hWinQIP, "Выбор папки установки", "[CLASS:TNewButton; INSTANCE:3]")
Sleep(5000)
WinWait($hWinQIP, "Принять участие")
ControlClick($hWinQIP, "Принять участие", "[CLASS:TCheckBox; INSTANCE:1]","Main",1,7,7)
ControlClick($hWinQIP, "Участвовать в исследовании посещаемости Интернета", "[CLASS:TNewButton; INSTANCE:3]")
WinWait($hWinQIP, "Завершение Мастера установки QIP 2005")
ControlClick($hWinQIP, "Завершение Мастера установки QIP 2005", "[CLASS:TRadioButton; INSTANCE:1]")
ControlClick($hWinQIP, "Завершение Мастера установки QIP 2005", "[CLASS:TNewCheckListBox; INSTANCE:1]","Main",1,10,10)
ControlClick($hWinQIP, "Завершение Мастера установки QIP 2005", "[CLASS:TNewCheckListBox; INSTANCE:1]","Main",1,10,76)
ControlClick($hWinQIP, "Завершение Мастера установки QIP 2005", "[CLASS:TNewCheckListBox; INSTANCE:1]","Main",1,10,98)
ControlClick($hWinQIP, "Завершение Мастера установки QIP 2005", "[CLASS:TNewButton; INSTANCE:3]")
Тихую и автоустановку не пробовал, но вроде и ключей кроме /sp- /silent ничего нет.