[Sanja Alone]

DenchikK
Рабочий скрипт для установки Agnitum Outpost 2.7

Код:

AutoItSetOption("TrayIconHide", 1)
BlockInput ( 1 )
AutoItSetOption ( "SendKeyDelay", 15 )
Run ( 'OutpostProInstall.exe' )
WinWaitActive ( 'Select Language' )
ControlCommand ( 'Select Language', '', 'ListBox2', 'SelectString', 'Russian' )
If @error=1 Then
    ControlCommand ( 'Select Language', '', 'ListBox1', 'SelectString', 'Russian' )
EndIf
Send ( '{ENTER}' )
WinWaitActive ( 'Приветствуем' )
Send ( '{ENTER}' )
WinWaitActive ( 'Лицензионное соглашение' )
ControlClick ( 'Лицензионное соглашение', '', 'Button3' )
Send ( '{ENTER}' )
WinWaitActive ( 'Read Me файл' )
Send ( '{ENTER}' )
WinWaitActive ( 'Выберите папку для установки' )
Send ( '{ENTER}' )
WinWaitActive ( 'Начало копирования файлов' )
;Создать программную группу для текущего пользователя
Send ( '{ENTER}' )
;выбрать вариант "Создать программную группу для всех пользователей"
;ControlClick ( 'Начало копирования файлов', '', 'Button5' )
WinWaitActive ( 'Создать новую конфигурацию' )
;Автоматическая настройка
Send ( '{ENTER}' )
;или Ручная настройка
;ControlClick ( 'Создать новую конфигурацию', '', 'Button2' )
WinWait ( 'Мастер конфигурации' )
AutoItSetOption("MouseCoordMode", 2)
;без этой паузы не хочет работать дальше (реально нужно 20-30 сек., но для тестов на VMWare пришлось поставить больше)
Sleep ( 60000 )
WinActivate ( 'Мастер конфигурации' )
;Далее
MouseClick( "left", 400, 330, 1, 0 )
WinWaitActive ( 'Ручная настройка' )
Send ( '{ENTER}' )
WinWaitActive ( 'Установка' )
Send ( '{ESC}' )
Sleep ( 50 )
;лекарство и настройки
RunWait ( 'opst_ui.exe' )
RunWait ( 'settings.exe' )
Sleep ( 50 )
;перенос ярлыков
DirCopy ( @ProgramsDir & '\Agnitum\Outpost Firewall', @ProgramsCommonDir & '\Сеть\Agnitum Outpost Firewall', 1 )
DirRemove ( @ProgramsDir & '\Agnitum', 1 )
;если имеете рабочий ключ, то введите его сюда
;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Agnitum\Outpost Firewall","Key","REG_SZ","XXX...XX")
;отключить Автообновление
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Agnitum\Outpost Firewall\General","AutoUpdate","REG_DWORD","00000000")
;убрать Аутпост из автозапуска (кому нужно)
;RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Outpost Firewall")
BlockInput ( 0 )

[DenchikK]

bogomolv
Sanja Alone
Спасибо огромное! Я, кстати, разобрался, отчего у меня не работал скрипт - в окне Создать Конфигурацию я нажимал - автоматическая, и при установке AutoIT'ом почему-то сразу пропускался мастер и сразу выдавалось последнее окно. С этим то я разобрался.
Родился новый вопрос, может быть подскажете: для автоматизации работы нужно запустить несколько приложений и брать оттуда некоторые данные. добавлять в другие и.т.д. Проблема в том, что прочитав справку и форум по AI, я так и не нашёл, возможно ли точно переходить в конкретнозаданное запущенное окно. А то метод Alt+Tab не всегда срабатывает.
Заранее спасибо.

[Sanja Alone]

DenchikK

я так и не нашёл, возможно ли точно переходить в конкретнозаданное запущенное окно

Activates (gives focus to) a window - WinActivate ( "title" [, "text"] )

[bogomolv]

DenchikK
Sanja Alone

Без "WinActivate()", конечно, не обойтись.
Но можно оперировать вводом-выводом, и не активируя соответствующие окна:

Код:

$GetSN=ControlGetText('keygen', 'RU', 'Edit1')
ControlSetText('ABBYY', 'Введите серийный номер', 'Edit1', $GetSN)

[vserd]

bogomolv

ABBYY

Ну ты и монстр!!!! :)))) Давно думал как можно автоматизировать это безобразие, а ты как фокусник слона из кармана вытянул.
СПАСИБО!!!

Все супер! И AutoIt просто не заменимая вещь! Как я до него жил - ума не приложу.. Так же не могу понять как собственно мне получить код возврата кнопки "ОК" или "Cancel" при использовании функции MsgBox???
Допустим, что-то типа:

MsgBox (1, "", "Запускать? ")

и необходимо обработать нажатие кнопки, и дальше отправить по условию, как это можно сделать, кто нибудь подскажет?
Спасибо!

[bogomolv]

vserd

Рабочий скрипт немного сложнее:

Код:

While Not WinExists('Мастер Активации')
ControlClick('keygen', 'RU', 'Button4')
$GetSN=ControlGetText('keygen', 'RU', 'Edit1')
ControlSetText('ABBYY', 'Введите серийный номер', 'Edit1', $GetSN)
ControlClick('ABBYY', 'Введите серийный номер', 'Button1')
WinWait('Мастер Активации','',5)
WinClose('ABBYY', 'Проверьте правильность')
Wend

UncleGluk

Если кто-то открыл бы AutoIt.chm, то без труда там нашел:

Код:

If MsgBox (1, "", "Запускать? ")<>1 Then Exit

[Sanja Alone]

bogomolv

можно оперировать вводом-выводом, и не активируя соответствующие окна

Спрашивали не об этом - я отвечал на прямой вопрос.
А о том, что ты говоришь - я знаю, но без активации оно не всегда должным образом работает
Да, ты мне напомнил - я пару месяцев назад для знакомого делал автоустановку ABBYY FineReader 7.
Выкладываю для народа:

Код:

AutoItSetOption("TrayIconHide", 1)
BlockInput ( 1 )
Global $InstPath, $Serial, $InstID, $FFCode, $ActCode, $ACStr
AutoItSetOption ( "SendKeyDelay", 20 )
;запуск кейгена
Run ( 'keygen.exe' )
WinWaitActive ( 'Abbyy FineReader Professional v7.0 keygen' )
;страна - UA (для RU - удалить один ControlClick)
ControlClick ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Button3' )
ControlClick ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Button3' )
ControlClick ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Button3' )
ControlClick ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Button3' )
Sleep ( 600 )
$Serial = ControlGetText ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Edit1' )
Sleep ( 70 )
;установка программы
Run ( 'setup.exe /L1049' )
WinWait ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Лицензионный договор' )
WinActivate ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Лицензионный договор' )
ControlCommand ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Лицензионный договор', 'Я &принимаю условия лицензионного договора', "Check", "" )
Send ( '{ENTER}' )
WinWait ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Режим установки' )
WinActivate ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Режим установки' )
$InstPath = ControlGetText ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Режим установки', 'RichEdit20W1' )
;по ум., путь = C:\Program Files\ABBYY FineReader 7.0 Professional Edition\
Выборочная установка. Выбрана только для подключения еще и англ. языка интерфейса - мужик хотел совсем "полную" установку.
Кому нужно, на этом этапе можно отключить FormFiller (после получения фокуса элементом SysTreeView321 нажать {DOWN 5}, !{DOWN}, {UP} и {ENTER} ).
Для обычной установки сразу жать Button1 и идти к STD
ControlClick ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Режим установки', 'Button5' )
;Далее
ControlClick ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Режим установки', 'Button1' )
WinWait ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Выборочная установка' )
WinActivate ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Выборочная установка' )
ControlFocus ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Выборочная установка', 'SysTreeView321' )
Send ( '{DOWN}' )
Send ( '{RIGHT}' )
Send ( '{DOWN}' )
Send ( '!{DOWN}' )
Send ( '{DOWN}' )
Send ( '{ENTER}' )
Sleep ( 70 )
;Далее
Send ( '{ENTER}' )
;STD
WinWaitActive ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Подключение к каналу новостей ABBYY' )
ControlCommand ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Подключение к каналу новостей ABBYY', 'H&ет', "Check", "" )
Sleep ( 50 )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Установка программы' )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY FineReader 7.0 Professional Edition - ', 'Установка ABBYY FineReader 7.0 завершена' )
Send ( '{ENTER}' )
Sleep ( 50 )
;регистрация программы
Run ( $InstPath & 'FineReader.exe' )
WinWaitActive ( 'ABBYY FineReader 7.0 Professional Edition Try&Buy', 'Вы работаете с испытательной версией программы' )
ControlCommand ( 'ABBYY FineReader 7.0 Professional Edition Try&Buy', 'Вы работаете с испытательной версией программы', '&Ввести серийный номер', "Check", "" )
Send ( '{ENTER}' )
WinWaitActive ( 'ABBYY FineReader 7.0 Professional Edition Try&Buy', '&Введите серийный номер' )
ControlSetText ( 'ABBYY FineReader 7.0 Professional Edition Try&Buy', '&Введите серийный номер', 'Edit1', $Serial )
Send ( '{ENTER}' )
WinWaitActive ( 'Мастер Активации ABBYY FineReader 7.0 Professional Edition', 'Мастер активации последовательно проведет Вас по всему процессу' )
ControlCommand ( 'Мастер Активации ABBYY FineReader 7.0 Professional Edition', 'Мастер активации последовательно проведет Вас по всему процессу','по &факсу или телефону', "Check", "" )
Send ( '{ENTER}' )
WinWaitActive ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону' )
;для России Ukraine замените на Russia
ControlCommand ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'ComboBox1', "SelectString", 'Ukraine' )
$InstID = ControlGetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit2' )
;переход в окно кейгена
WinActivate ( 'Abbyy FineReader Professional v7.0 keygen' )
Sleep ( 30 )
ControlSetText ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Edit3', $InstID )
Sleep ( 70 )
;Generate
ControlClick ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Button8' )
Sleep ( 50 )
$FFCode = ControlGetText ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Edit2' )
$ActCode = ControlGetText ( 'Abbyy FineReader Professional v7.0 keygen', '', 'Edit4' )
Sleep ( 50 )
WinClose ( 'Abbyy FineReader Professional v7.0 keygen' )
WinWaitClose ( 'Abbyy FineReader Professional v7.0 keygen' )
Sleep ( 20 )
WinActivate ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону' )
;из кейгена код получен одной строкой вида x-x-x..., а вводить нужно по частям в разные поля - разделяем.
$ACStr = StringSplit ( $ActCode, "-" )
Sleep ( 350 )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit4', $ACStr[1] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit5', $ACStr[2] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit6', $ACStr[3] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit7', $ACStr[4] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit8', $ACStr[5] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit9', $ACStr[6] )
ControlSetText ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация по факсу или телефону', 'Edit10', $ACStr[7] )
Sleep ( 30 )
Send ( '{ENTER}' )
WinWaitActive ( 'Мастер активации ABBYY FineReader 7.0 Professional Edition', 'Активация успешно завершена' )
Send ( '{ENTER}' )
Sleep ( 500 )
;это окно иногда появляется, а иногда нет. 
(Тестил и на VMWare и на 2 реальных ПК - закономерности найти не пытался, а просто впаял эту проверку. Работает... и ладушки.)
If WinExists ( 'Регистрация FineReader 7.0 Professional Edition', 'Пожалуйста' ) Then
      WinActivate ( 'Регистрация FineReader 7.0 Professional Edition', 'Пожалуйста' )
      Send ( '{SPACE}' )
      ControlClick ( 'Регистрация FineReader 7.0 Professional Edition', 'Пожалуйста', 'Button4' )
      WinWaitActive ( 'Регистрация', 'Внимание!' )
      Send ( '{ENTER}' )
EndIf
WinWait ( 'Добро пожаловать!' )
WinActivate ( 'Добро пожаловать!' )
;&Закрыть
ControlClick ( 'Добро пожаловать!', '', 'Button5' )
;активировать и закрыть основное окно программы
WinActivate ( 'Пакет без имени - ABBYY FineReader 7.0 Professional Edition' )
WinClose ( 'Пакет без имени - ABBYY FineReader 7.0 Professional Edition' )
WinWaitClose ( 'Пакет без имени - ABBYY FineReader 7.0 Professional Edition' )
Sleep ( 50 )
;активация FormFiller-а
Run ( $InstPath & 'FormFiller.exe' )
WinWaitActive ( 'Активация' )
ControlSetText ( 'Активация', '', 'Edit1', $FFCode )
Sleep ( 70 )
;&Активация
ControlClick ( 'Активация', '', 'Button1' )
WinWait ( 'Форма - ABBYY FormFiller' )
WinActivate ( 'Форма - ABBYY FormFiller' )
WinClose ( 'Форма - ABBYY FormFiller' )
WinWaitClose ( 'Форма - ABBYY FormFiller' )
Sleep ( 20 )
;перенос ярлыков
DirCopy ( @ProgramsCommonDir & '\ABBYY FineReader 7.0', @ProgramsCommonDir & '\Офис\ABBYY FineReader 7.0', 1 )
DirRemove ( @ProgramsCommonDir & '\ABBYY FineReader 7.0', 1 )
;Поддержка украинского языка для FineReader 7.0
;(пакет перепакован в winrar-sfx архив для тихой установки)
;команды SFX-сценария (для winrar-архива):
;  Setup=setup.exe /L1049
;  TempMode
;  Silent=1
;  Overwrite=1
RunWait ( 'ukr.exe' )
$FFCode = 0
$InstPath = 0
$Serial = 0
$InstID = 0
$ActCode = 0
$ACStr = 0
BlockInput ( 0 )

P.S. Возможно, здесь не все оптимально, но работает без проблем.
Сама прога бралась отсюда (43 749 965 байт)
Укр. язык (1 639 936 байт) - может кому и нужен

[bogomolv]

Sanja Alone

С интересом познакомился с использованием функции StringSplit(). Даже не знал о ее существовании.

По оптимизации кода:
а) пару десятков строк можно сэкономить, используя вместо Run('setup.exe /L1049') команду RunWait('setup.exe /L1049 /v/qb');
б) в одном случае из 10 введенный серийник оказывается неверным. Поэтому "зацикливаю" его ввод (см. пример);
в) для настройки установленного FineRеader можно включить в скрипт RunWait('regedit /s FineRеader.reg') и FileCopy($iDir&'Untitled.fbt', $pDir, 1).

Общие вопросы:
б) зачем обнулять переменные на выходе из скрипта?
в) категорически не согласен с использованием BlockInput(). Отлаженный скрипт может быть неожиданно прерван на чужой машине выскочившим окошком какого-либо сообщения Windows об отсутствующих дровах и т.п. Что делать в этом случае? То же самое относится и к Opt('TrayIconHide',1). Наоборот всегда включаю Opt('TrayIconDebug',1), чтобы можно было понять, чего ждет "зависший" скрипт.

bogomolv

Ой! да я не думал что все так просто! Начал чего то выдумывать и совсем потерялся, уйдя от правильной мыслишки!

Спасибо!