[ya158]

Если кому-нибудь интересно 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')