Ветеран
Автор проектов
Сообщения: 1579
Благодарности: 496
|
Профиль
|
Отправить PM
| Цитировать
Если кому-нибудь интересно AutoIt скрипт. Имейте ввиду, что ключ не рабочий - специально искажен, необходимо подставить свой
Код:  $Title='Установка Outpost Firewall Pro'
$Title1='Мастер настройки Outpost Firewall Pro'
$Title2='Настройки'
$Title3='Введите ключ'
$Title4='Outpost Firewall Pro'
FileInstall ('OutpostProInstall.exe',@TempDir & '\', 1)
;Установка программы
;Запускаем инсталлятор
Run(@TempDir & '\OutpostProInstall.exe')
WinWait ( "Select Setup Language")
If Not WinActive ( "Select Setup Language") Then WinActivate ( "Select Setup Language")
winwaitactive('Select Setup Language')
send('{ENTER}')
WinWait ( $Title, "Outpost Firewall Pro обеспечивает")
If Not WinActive ($Title, "Outpost Firewall Pro обеспечивает") Then WinActivate ($Title, "Outpost Firewall Pro обеспечивает")
winwaitactive($Title, "Outpost Firewall Pro обеспечивает")
send('{ENTER}')
;Соглашаемся с лицензионным соглашением
WinWait ($Title, "Лицензионное соглашение")
If Not WinActive ($Title, "Лицензионное соглашение") Then WinActivate ($Title, "Лицензионное соглашение")
winwaitactive($Title, "Лицензионное соглашение")
ControlClick($Title, "Лицензионное соглашение", "Button1")
send('{ENTER}')
;Выбираем компоненты для установки
WinWait ($Title, "Ниже приведен список")
If Not WinActive ($Title, "Ниже приведен список") Then WinActivate ($Title, "Ниже приведен список")
winwaitactive($Title, "Ниже приведен список")
send('{ENTER}')
;Выбираем путь для инсталляции
WinWait ($Title, "Outpost Firewall Pro будет установлен в следующую папку:")
If Not WinActive ($Title, "Outpost Firewall Pro будет установлен в следующую папку:") Then WinActivate ($Title, "Outpost Firewall Pro будет установлен в следующую папку:")
winwaitactive($Title, "Outpost Firewall Pro будет установлен в следующую папку:")
send('{ENTER}')
;Запускаем установку
WinWait ($Title,'Щелкните Установить, чтобы продолжить установку.')
If Not WinActive ($Title,'Щелкните Установить, чтобы продолжить установку.') Then WinActivate ($Title,'Щелкните Установить, чтобы продолжить установку.')
winwaitactive($Title,'Щелкните Установить, чтобы продолжить установку.')
ControlClick($Title, "Щелкните Установить, чтобы продолжить установку.", "Button1")
send('{ENTER}')
;Настраиваем Outpost
;Указываем уровень безоппасности как "Обычный"
WinWait ($Title1,'Рекомендуется только для')
If Not WinActive ($Title1,'Рекомендуется только для') Then WinActivate ($Title1,'Рекомендуется только для')
winwaitactive($Title1,'Рекомендуется только для')
ControlClick($Title1, "Рекомендуется только для", "Button2")
;send('{ENTER}')
;Отказываемся помогать Agnitum и автоматически создавать правила для приложений
WinWait ($Title1,'Присоединяйтесь к сообществу ImproveNet')
If Not WinActive ($Title1,'Присоединяйтесь к сообществу ImproveNet') Then WinActivate ($Title1,'Присоединяйтесь к сообществу ImproveNet')
winwaitactive($Title1,'Присоединяйтесь к сообществу ImproveNet')
ControlClick($Title1, "Присоединяйтесь к сообществу ImproveNet", "Button2")
ControlCommand($Title1,'Присоединяйтесь к сообществу ImproveNet','ComboBox1','SelectString','Не создавать правила автоматически')
send('{ENTER}')
;Дожидаемся окончания настройки
WinWait ($Title1,'Готово')
If Not WinActive ($Title1,'Готово') Then WinActivate ($Title1,'Готово')
winwaitactive($Title1,'Готово')
send('{ENTER}')
;Отменяем перезагрузку и открываем настройки Outpost
WinWait ($Title, "Завершение Мастера установки Outpost Firewall Pro")
If Not WinActive ($Title, "Завершение Мастера установки Outpost Firewall Pro") Then WinActivate ($Title, "Завершение Мастера установки Outpost Firewall Pro")
winwaitactive($Title, "Завершение Мастера установки Outpost Firewall Pro")
ControlClick($Title, "Завершение Мастера установки Outpost Firewall Pro", "Button2")
ControlClick($Title, "Завершение Мастера установки Outpost Firewall Pro", "Button7")
;Регистрация
WinWait ($Title2, "(демо-версия)")
If Not WinActive ($Title2, "(демо-версия)") Then WinActivate ($Title2, "(демо-версия)")
winwaitactive($Title2, "(демо-версия)")
ControlClick($Title2, "(демо-версия)", "Button9")
send('{ENTER}')
;Ввод ключа
WinWait ($Title3, "Если вы получили регистрационный ключ")
If Not WinActive ($Title3, "Если вы получили регистрационный ключ") Then WinActivate ($Title3, "Если вы получили регистрационный ключ")
winwaitactive($Title3, "Если вы получили регистрационный ключ")
ControlSetText($Title3,"Если вы получили регистрационный ключ","Edit1","0Pv2FDKpgAjWqtdg0gBH6o1i6qORuHpmT6e629B8ehAi7R/v0g8oIfhT+z/KjgArAnl73uc5DFtY/Jn5jl3GsI2Y12VRdT528wpzI7hYgJXBN7qq4pYGDJ/YYL9QvYdPZeZgUfEKK3456MQbNd1dLaJRCyrjfhcNe02izGs1usUQ=")
sleep (1000)
send('{ENTER}')
WinWait ($Title4, "Спасибо за регистрацию!")
If Not WinActive ($Title4, "Спасибо за регистрацию!") Then WinActivate ($Title4, "Спасибо за регистрацию!")
winwaitactive($Title4, "Спасибо за регистрацию!")
send('{ENTER}')
;Закрытие окна настроек
WinWait ($Title2, "Пожизненно")
If Not WinActive ($Title2, "Пожизненно") Then WinActivate ($Title2, "Пожизненно")
winwaitactive($Title2, "Пожизненно")
ControlClick($Title2, "Пожизненно", "Button1")
send('{ENTER}')
;Удаление инсталятор из временной папки
Filedelete(@TempDir & '\OutpostProInstall.exe')
|
