[Архив - Часть 1.1] AutoIt скрипты

[EgOrus]

Внимание!
Тема переведена в архивное состояние


[hr]Архивы старых тем по AutoIt (http://forum.oszone.net/forumdisplay.php?f=61&filter_string=%C0%F0%F5%E8%E2+-+%F7&filter_by=title) или они же в 7z архиве (версии для печати) - 846 кб (http://tools.oszone.net/Vadikan/forum_archives/autoit_threads_archive.7z)
(настоятельно рекомендуется к прочтению/поиску)


Руководство к действию по работе c AutoIt.

Ну во превых, к моему удивлению, утилита (и компонента activeX) уже успела обновиться до версии 3.1.0 (7 фев 2005) и заполучить множество дополнительных функций (появилась возможность создавать граф. интерфейс к своим скриптам :). К сожалению русскоязычной справки пока нет.
Скачать можно здесь (http://www.autoitscript.com/autoit3/index.php)

Почему лишь руководство? Потомучто к программе прилагается обширная справка с описанием самой программы и команд, в т.ч. и на русском языке. Основные команды используемые в нашем случае в новой версии не поменялись. Я рассмотрю лишь самые азы, кот. необходимы для создания самого простого скрипта, в принципе этого достаточно для установки практически любой программы, просто знание дополнительных команд позволят сделать скрипт более компактным и красивым.

На сегоднящний день имеется 2 распространненых способа по автоматизации установки
1. Использование утилиты AutoIt и файлов скриптов au3, кот. в последствии можно компилировать в исполнимые файлы exe, не требующие утилиты AutoIt.exe
2. Использование VBS и JS скриптов, этот способ можно расширить за счет использования activeX компоненты - autoitX (к слову сказать - я пользуюсь именно этим методом).

Для примера создадим скрипт по установки Alcohol120%. Самое неприятное в его установки это окно с подтверждением установки SCSI драйвера. Это мы и поправим.
'Блокировка клавы и мышки
BlockInput(1)

'Ожидание окна установки SCSI адаптера
WinWait ("Мастер нового оборудования","", 0)

'Пауза на 500 мс на всякий случай, для слабых машин, чтобы окно успело обновиться
Sleep(500)

'Послать в активное окно нажатие клавиши ENTER
send("{ENTER}")

WinWait ("Мастер нового оборудования","Для закрытия мастера", 0)

Sleep(1000)

'Послать в указанное окно ControlClick для кнопки с назв. класса Button9
ControlClick ("Мастер нового оборудования","Для закрытия мастера", "Button9")

'Снятие блокировка клавы и мышки
BlockInput(0)
Скрипт и утилита autoit3.exe будет лежать рядом с дистром, и будет запускаться перед запуском дистрибутива.
Создадим файл с названием alc120.au3 в win1251 кодировке
Теперь нужно заблокировать клавиатуру и мышь чтобы наглый пользователь не нажал что-нибудь или не сменил случайно фокус с активного окна во время работы скрипта.

'Блокировка клавы и мышки (многие команды предназначены для посыла в активное окно)
BlockInput(1)

Скрипт запустился и теперь ожидает запуска инсталяра и появление сигнального окна, кот. сообщит скрипту что программа запущена и можно продолжать выполнение скрипта. Для того чтобы узнать название окна нужно использовать спец. утилитку AU3Info.exe, кот. входит в комплект дистрибутива autoit. Запускаем ее, после чего запускаем дистрибутив Alcohol120% и доходим до того места где вылазит окно Мастер нового оборудования с вопросом об установке SCSI адаптера. Активируем его кликнув по заголовку мышкой и жмем CTRL+ALT+F, в результате в окне AU3Info информация о текущем окне зафиксируется:
>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title: Мастер нового оборудования
Class: #32770
копируем название этого заголовка, там же можно посмотреть текст наличествующий в этом окне, если необходимо.
>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Завершение работы мастера нового оборудования
Мастер завершил установку программ для:
SCSI/RAID хост-контроллер
Для закрытия мастера нажмите кнопку "Готово".
< &Назад
Готово
Отмена
'Ожидание окна установки SCSI адаптера (в зависимости от языка винды заголовок будет разным)
WinWait ("Мастер нового оборудования","", 0)

WinWait ( "title" [, "text" [, timeout]] )
title - название окна кот. ожидает скрипт для продолжения работы,
text - любой текст в этом окне, нужен если последующее окно после нажатия кнопки, имеет такой же заголовок
timeout - таймаут, время через кот. ожидание прекратиться, 0 - никогда

'Пауза на 500 мс на всякий случай, для слабых машин, чтобы окно успело обновиться
Sleep (500)

После того как окно с нужнымм заголовком появилось, скрипт должен послать активному окну клавишу ENTER, в результате будет нажата кнопка по умолчанию (в нашем случае "далее"). Список клавиатурных нажатий см. в справке.

'Послать в активное окно нажатие клавиши ENTER
Send ("{ENTER}")

Далее продолжится устанока SCSI адаптера вплоть до появление последнего окна с предложением закрыть мастер.
'Ожидание окна окончания установки SCSI адаптера
WinWait ("Мастер нового оборудования","Для закрытия мастера", 0)

'Ждем 600 мс. для того чтобы окно успело обновиться
Sleep (600)

Теперь нам нужно нажать клавишу готово, можно воспользоваться тем же методом что и выше Send ("{ENTER}"), но для разнообразия воспользуемся другим, не всегда ведь нам нужна будет кнопка по умолчанию кот. нажимается клавшей ввод. Используем метод ControlClick, кот. позволяет кликнуть по определенному объекту в окне исходя из его идентификатора (Control ID) или Названия Класса (ClassName). Чтобы узнать то или другое используем вышеупомянутую утилитку AU3Info, только теперь подводим курсор на нужную кнопку и смотрим на параметр "ClassNameNN", копируем значение Button9, и используем в скрипте.
>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size: X: 327 Y: 327 W: 75 H: 23
Control ID: 12325
ClassNameNN: Button9
Text: Готово
'Послать в указанное окно ControlClick для кнопки с назв. класса Button9
ControlClick ("Мастер нового оборудования","Для закрытия мастера", "Button9")

ControlClick ( "title", "text", controlID [, button] [, clicks]] )
title - название окна кот. ожидает скрипт для продолжения работы,
text - любой текст в этом окне, нужен если последующее окно после нажатия кнопки, имеет такой же заголовок
controlID - собственно идентификатор
button - какую кнопку использовать "left", "right" или "middle
clicks - количество кликов

Последнее что нужно сделать - снять блокировку с клавы и мышки.
'Снятие блокировка клавы и мышки
BlockInput(0)

После этого скрипт завершается, а алкоголик заканчивает установку.

Теперь нужно проверить работу скрипта.
Cоздаем бат-файл:
start C:\Test\AutoIt3.exe alc120.au3
msiexec.exe /passive /norestart /i "C:\Test\setup.msi"
В процессе выполнения скрипта в трэе появится занчок с буквой A, кот. показыает что скрипт выполняется, после отработки он исчезнет, если в процессе установки возникли проблеммы жмем CTRL+ALT+DEL (даже если клава заблокирована) и снимаем процесс autoit3.exe.

Если скрипт отлажен и проблем не возникает, для удобства можно скомпилировать его в .exe файл (содержит в себе утилиту autoit3.exe и скрипт .au3, кот. исполняется).
Для этого можно воспользоваться утлитой Aut2Exe.exe (входит в комплект с дистрибутивом autoit3).
Если нужно будет в последствии что-то изменить в скрипте, то полученный .exe файл можно будет конвертнуть назад в .au3 с помощью другой утилиты Exe2Aut.exe

Что касается 2го способа установки, то просто приведу пример, установки Alcohol120%, кот. использую я

Dim WshShell, fso, objArgs, AutoIt, dir

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set AutoIt = WScript.CreateObject("AutoItX.Control")
On Error Resume Next

' Path to current vbs folder to successfully launch script in WPI
dir = fso.GetParentFolderName(WScript.ScriptFullName)

WshShell.Run ("msiexec.exe /passive /norestart /i" & dir & "\setup.msi")

'Блокировка клавы и мышки
AutoIt.BlockInput "on"
'Ожидание окна установки SCSI адаптера
AutoIt.WinWait "Мастер нового оборудования", "", 0
AutoIt.Sleep 500
AutoIt.Send "{ENTER}"
'Ожидание окна окончания установки SCSI адаптера
AutoIt.WinWait "Мастер нового оборудования", "Для закрытия мастера", 0
AutoIt.Sleep 600
AutoIt.Send "{ENTER}"
AutoIt.BlockInput "off"

WshShell.Run ("REGEDIT /S" & dir & "\sets.reg")

Wscript.Quit
В заключение хочу сказать что AutoIt это не только и не столько средство для автоматизации установки различных приложений, это скриптовый язык для автоматизации работы с приложениями, окнами, файлами и реестром с помощью него вполне реально создать небольшую програмку.

---------------------------------------------------------------------------------------------------

Разобранный здесь скрипт тестировался в vmware 4.5 на WinXP.rus SP2

[D@nil]

Статья Клас :)
Только я непонял чем лучше autoitX

[D@nil]

Думаю ешё надо добавить про Переменные и настройки AutoIt.

Переменная должна начинаться с символа $ и может содержать буквы, цифры и символы подчеркивания _.
$exe_1 = "Setup.exe /S"
$exe_2 = "Rusian.exe /S"
RunWait( $Exe_1 )
run( $Exe_2 )

Продолжительность паузы между последовательными симуляциями нажатий клавиатуры. Время в миллисекундах.
AutoItSetOption("SendKeyDelay", 10)

Отображать или нет текущую строку сценария с помощью индикатора системной панели в режиме отладки. Полезно для отладки скриптов
AutoItSetOption("TrayIconHide", 0) ;0=не выводить строку (Стандартное значение), 1=отображать строку

Отображать/Скрыть в системной панели индикатор AutoIt.
AutoItSetOption("TrayIconDebug", 0) ;0 = отображать(Стандартное значение), 1 = скрыть

[EgOrus]

D@nil
Сам по себе autoitX ничем не лучше, скорей даже наоборот по функционалу уступает, а у меня он используется как расширение функций vbs-cкриптов. При использовании такой связки чуть меньше гемора и чуть больше возможностей.

Т.е. если рассмотреть по шагам то получится
Использование Autoit3.exe через CMD-файл или например WPI:
1. команда запуска скрипта через Autoit3.exe или компилированный скрипт
2. команда запуска устанавливаемого приложения
3. команда запуска возможных reg файлов
4. копирование дополнительных файлов
По идее все это можно сделать через .au3, но как-то это некрасиво получится и громоздко :)

Использование vbs, все 4 шага легко делаются в пределах одного VBS-файла, при этом не нужно использовать autoit3.exe или тем более компилить скрипт, этот же vbs можно использовать для обычной установке вне CD или DVD.

Ага, переменные я оставил на потом, а про дебаг сам не знал :)

[D@nil]

EgOrus
Где тогда должна лежать утилитка autoitX Т.К. файл alc120.vbs ссылается на AutoIt
AutoIt.Sleep 600
AutoIt.Send "{ENTER}"

[EgOrus]

autoit - это не утилитка, это объект ActiveX
Set AutoIt = WScript.CreateObject("AutoItX.Control") - объявление объекта Autoit
AutoIt.Sleep 600 - использование функции объекта Autoit, в данном случае функции sleep

[Sanja Alone]

Вопрос: как ПРАВИЛЬНО отличить 2 "одинаковых" окна средствами AutoIt?
Т.е., они конечно не одинаковые, одинаковы только все параметры окон отображаемые с пом. AutoIt Reveal Mode.
Реально текст в окнах разный, но AutoIt Reveal Mode показывает только одинаковые строки.

Я нашел в хелпе по AutoIt вот такую штуку:
DetectHiddenText, <on | off>
но, даже если она действительно определяет скрытый текст,
непонятно как добраться до результата сией операции...
Через
WinGetActiveStats, <Title Var>, <Width Var>, <Height Var>, <Xpos Var>, <Ypos Var>
не выйдет, т.к. эта функция не извлекает текст окна.


Сначала я сделал так, но здесь те самые два окна с одинаковыми заголовками и текстом застопорили скрипт:
(проблемный фрагмент я выделил красным цветом)


Run, %ProgramFiles%\\Sonic Foundry\\Sound Forge 6.0\\forge60.exe %systemdrive%\\install\\test.mpg
WinWaitActive, Sonic Foundry Sound Forge 6.0,Purchase...
Send, {ENTER}
WinWaitActive, Sonic Foundry - MPEG Plug-In,Progress1
LeftClick, 400, 340
WinWaitActive, Sonic Foundry,Progress1
LeftClick, 120, 240
WinWaitActive, Sonic Foundry,Progress1
LeftClick, 100, 273
Send, %Serial2%
Send, {ENTER}
WinWaitActive, MainConcept MPEG-1,2 Pro Plug-In,Thank you for purchasing MainConcept MPEG-1&2 Pro Plug-In.
Send, {ENTER}
WinWaitClose, MainConcept MPEG-1,2 Pro Plug-In,Thank you for purchasing MainConcept MPEG-1&2 Pro Plug-In.
WinClose, Sonic Foundry Sound Forge 6.0
WinWaitClose, Sonic Foundry Sound Forge 6.0
Sleep, 50


Т.е. второе окно появилось и на этом все, а клик для активизации поля ввода серийника уже не проходит.


Затем я таки поборол эту каку,
но явно неправильным методом (3 сек. задержка + 2 двойных клика),
т.к. в конце приходится убивать процесс (иначе он вызывает крит.ошибку).
Правда, при этом информация о регистрации сохраняется.


Run, %ProgramFiles%\\Sonic Foundry\\Sound Forge 6.0\\forge60.exe %systemdrive%\\install\\test.mpg
WinWaitActive, Sonic Foundry Sound Forge 6.0,Purchase...
Send, {ENTER}
WinWaitActive, Sonic Foundry - MPEG Plug-In,Progress1
LeftClick, 400, 340
WinWaitActive, Sonic Foundry,Progress1
LeftClick, 120, 240
Sleep, 3000
LeftClick, 100, 273
LeftClick, 100, 273
LeftClick, 100, 273
LeftClick, 100, 273
Send, %Serial2%
Send, {ENTER}
WinWaitActive, MainConcept MPEG-1,2 Pro Plug-In,Thank you for purchasing MainConcept MPEG-1&2 Pro Plug-In.
Send, {ENTER}
WinWaitClose, MainConcept MPEG-1,2 Pro Plug-In,Thank you for purchasing MainConcept MPEG-1&2 Pro Plug-In.
WinWaitActive, Sonic Foundry Sound Forge 6.0
RunWait, taskkill.exe /F /IM forge60.exe
Sleep, 2000


Какие буду идеи?

[EgOrus]

Sanja Alone
надо было в существующую тему добавлять.
А какая у тебя версия autoit? reveal mode был в версии 2.x на сколько я помню

Opt("WinDetectHiddenText", 0)
и потом используешь WinWait ( "title" [, "text" [, timeout]] , но вместо text попробуй использовать hiddentext из второго окна

[Sanja Alone]

надо было в существующую тему добавлять.
Ну не посмотрел я, каюсь.

А какая у тебя версия autoit? reveal mode был в версии 2.x на сколько я помню
Да, ты прав: версия 2.64. Когда-то скачал и не юзал, а теперь понадобилась.

Сейчас качаю 3.1.0 - посмотрю, может там что-то придумали.
Надеюсь, там уже есть определение окна по идентификатору.

[type]

Установил, AutoIt v3.
пытаюсь запустить что нить комадндой
Run("adbacrob6.exe", "C:\Install\Graphic", @SW_HIDE)
не прокатывает и все((
говорит, что "Unable to execute the external program"
но все лежит именно по этому пути.
может есь какой секре, хотя в хелпе ясно сказано как запускать exe и cmd файлы.

[EgOrus]

type
на сколько я помню, надо уазывать полный путь к программе, т.е. что-то типа c:\Install\adbacrob6.exe, можно использовать переменные окружения н-р: Run(@ProgramFilesDir & "\Alcohol Soft\Alcohol 120\Alcohol.exe")
что касается твоего пути, то это рабочая папка, а не путь до программы

[type]

ОО!!!!....зарабоооталааа))))
я Вам благодарен!)

[Debugger]

Вопрос из области флейма

Блин такая дилемма - с одной стороны, можно с помощью AutoIt забабахать конкретный диск с кучей софта и не мучиться, а с другой стороны, охота все-таки взять, помучиться и все-таки заставить приложение ставиться в "тихом" режиме с "родными" ключами. Что делать?

[EgOrus]

Debby
Искать ключи на msfn'е, если нет пробовать самому исходя из инстолятора, а если уж и это не помогло то все равно придется мучиться пока скрипты составлять будешь :)

[Sanja Alone]

Короче, обошел я эту гадость с одинаковыми окнами (они оказались абсолютно одинаковы даже для AutoIt Window Info).
Обошел опять не совсем правильно, но влазить в функции с указателями мне не хотелось (уж сильно мутно):


...
Run ( '"' & @ProgramFilesDir & '\Sonic Foundry\Sound Forge 6.0\forge60.exe" ' & EnvGet('systemdrive') & '\install\test.mpg' )
WinWaitActive ( 'Sonic Foundry Sound Forge 6.0', 'Purchase...' )
Send ( '{ENTER}' )
WinWaitActive ( 'Sonic Foundry - MPEG Plug-In' )
MouseClick( "left", 400, 340, 1, 0 )
WinWaitActive ( 'Sonic Foundry' )
;переименовываем окно, чтобы скрипт не завис
WinSetTitle ( 'Sonic Foundry', '', "SF" )
WinWaitActive ( 'SF' )
MouseClick( "left", 120, 240, 1, 0 )
;это окно - причина переименования предыдущего, т.к. окна по ВСЕМ параметрам идентичны (AutoIt Window Info)
WinWaitActive( 'Sonic Foundry' )
;активизируем поле ввода серийника (через ControlSetText к полю не достучаться - его не видно)
MouseClick( "left", 100, 273, 1, 0 )
;3-й шаг регистрации "MainConcept MPEG-1&2 Pro Plug-In" - вводим серийник
Send ( $Serial2 )
Send ( '{ENTER}' )
WinWaitActive ( 'MainConcept MPEG-1,2 Pro Plug-In', 'Thank you for purchasing' )
Send ( '{ENTER}' )
WinWaitClose ( 'MainConcept MPEG-1,2 Pro Plug-In', 'Thank you for purchasing' )
;дожидаемся окна Sound Forge, чтобы сохранились данные регистрации
WinWaitActive ( 'Sonic Foundry Sound Forge 6.0' )
;здесь (при нормальном закрытии Sound Forge с пом. WinClose) происходит крит.ошибка,
;поэтому просто убиваем процесс (все рег. данные уже сохранены)
;(для красоты спрячем процесс убийства с пом. флага @SW_HIDE)
RunWait ( 'taskkill.exe /F /IM forge60.exe', '', @SW_HIDE )
Sleep ( 1000 )
;снимаем блокировку мыши и клавы
BlockInput ( 0 )

Жаль, что в новой версии AutoIt нельзя работать с элементами:

TreeView
CheckListBox

Пример первого - выбор компонент в установщике WinAmp
Пример последнего - выбор компонент в установщиках K-Lite Codec Pack
(по идее, можно применить silent.inf файл, но у меня параметр components=... игнорируется напрочь)

[D@nil]

Спасиб Sanja Alone метод WinSetTitle удобный, Возьму на заметку

[type]

Как можно в текстовое поле ввести значение.
а то ввожу
WinWait("AutoCAD 2002 Setup","&Serial Number:")
Send("{4}")
Send("{0}")
Send("{0}")
Send("{TAB}")
Send("{1}")
Send("{2}")
Send("{3}")
Send("{4}")
Send("{5}")
Send("{6}")
Send("{7}")
Send("{8}")
Send("{TAB}")
Send("{T}")
......
ну и в таком духе, как можно ввести в поле сразу все значение?

[D@nil]

type Можно.
WinWait("AutoCAD 2002 Setup","&Serial Number:")
Send("400" & {TAB} & "12345678" & "{TAB}" & "T")
А вобще смотри справку к AutoIt3 :beer:

[type]

точно точно....D@nil так есть...надо читать хелп...
Send("400" & {TAB} & "12345678" & {TAB} & "T")
ток у меня без кавычек для {TAB} не нработает т.е. надо так
Send("400" & "{TAB}" & "12345678" & "{TAB}" & "T")
Но ты выручил...спасибо.!!))

[Aspirine]

Ребята у меня проблема!!
Устанавливаю скриптом VirtulСD, пробую без компиляции все ок работает. Потом кампилирую как написано к руководстве. После кампиляции у меня получается вместо 29мбайтного файла установки 100кб? В чём проблема подскажте??