|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [Архив - Часть 1.1] AutoIt скрипты |
|
[Архив - Часть 1.1] AutoIt скрипты
|
Ветеран Сообщения: 628 |
Профиль | Отправить PM | Цитировать
Внимание! Тема переведена в архивное состояние (настоятельно рекомендуется к прочтению/поиску) Руководство к действию по работе c AutoIt. Ну во превых, к моему удивлению, утилита (и компонента activeX) уже успела обновиться до версии 3.1.0 (7 фев 2005) и заполучить множество дополнительных функций (появилась возможность создавать граф. интерфейс к своим скриптам . К сожалению русскоязычной справки пока нет. Скачать можно здесь Почему лишь руководство? Потомучто к программе прилагается обширная справка с описанием самой программы и команд, в т.ч. и на русском языке. Основные команды используемые в нашем случае в новой версии не поменялись. Я рассмотрю лишь самые азы, кот. необходимы для создания самого простого скрипта, в принципе этого достаточно для установки практически любой программы, просто знание дополнительных команд позволят сделать скрипт более компактным и красивым. На сегоднящний день имеется 2 распространненых способа по автоматизации установки 1. Использование утилиты AutoIt и файлов скриптов au3, кот. в последствии можно компилировать в исполнимые файлы exe, не требующие утилиты AutoIt.exe 2. Использование VBS и JS скриптов, этот способ можно расширить за счет использования activeX компоненты - autoitX (к слову сказать - я пользуюсь именно этим методом). Для примера создадим скрипт по установки Alcohol120%. Самое неприятное в его установки это окно с подтверждением установки SCSI драйвера. Это мы и поправим. Цитата Скрипт alc120.au3:
Создадим файл с названием alc120.au3 в win1251 кодировке Теперь нужно заблокировать клавиатуру и мышь чтобы наглый пользователь не нажал что-нибудь или не сменил случайно фокус с активного окна во время работы скрипта. 'Блокировка клавы и мышки (многие команды предназначены для посыла в активное окно) BlockInput(1) Скрипт запустился и теперь ожидает запуска инсталяра и появление сигнального окна, кот. сообщит скрипту что программа запущена и можно продолжать выполнение скрипта. Для того чтобы узнать название окна нужно использовать спец. утилитку AU3Info.exe, кот. входит в комплект дистрибутива autoit. Запускаем ее, после чего запускаем дистрибутив Alcohol120% и доходим до того места где вылазит окно Мастер нового оборудования с вопросом об установке SCSI адаптера. Активируем его кликнув по заголовку мышкой и жмем CTRL+ALT+F, в результате в окне AU3Info информация о текущем окне зафиксируется: Цитата:
копируем название этого заголовка, там же можно посмотреть текст наличествующий в этом окне, если необходимо. Цитата:
'Ожидание окна установки 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, и используем в скрипте. Цитата:
'Послать в указанное окно ControlClick для кнопки с назв. класса Button9 ControlClick ("Мастер нового оборудования","Для закрытия мастера", "Button9") ControlClick ( "title", "text", controlID [, button] [, clicks]] ) title - название окна кот. ожидает скрипт для продолжения работы, text - любой текст в этом окне, нужен если последующее окно после нажатия кнопки, имеет такой же заголовок controlID - собственно идентификатор button - какую кнопку использовать "left", "right" или "middle clicks - количество кликов Последнее что нужно сделать - снять блокировку с клавы и мышки. 'Снятие блокировка клавы и мышки BlockInput(0) После этого скрипт завершается, а алкоголик заканчивает установку. Теперь нужно проверить работу скрипта. Cоздаем бат-файл: Цитата alc.bat:
Если скрипт отлажен и проблем не возникает, для удобства можно скомпилировать его в .exe файл (содержит в себе утилиту autoit3.exe и скрипт .au3, кот. исполняется). Для этого можно воспользоваться утлитой Aut2Exe.exe (входит в комплект с дистрибутивом autoit3). Если нужно будет в последствии что-то изменить в скрипте, то полученный .exe файл можно будет конвертнуть назад в .au3 с помощью другой утилиты Exe2Aut.exe Что касается 2го способа установки, то просто приведу пример, установки Alcohol120%, кот. использую я Цитата alc120.vbs:
--------------------------------------------------------------------------------------------------- Разобранный здесь скрипт тестировался в vmware 4.5 на WinXP.rus SP2 |
|||||||
Отправлено: 02:12, 21-03-2005 |
Ветеран Сообщения: 628
|
Профиль | Отправить PM | Цитировать biork
Правильно в примере, кот. предложил я, если ни одно из условий неверно, то продолжаем работу скрипта дальше. В твоем же как ты правильно сказал, если первое условие неправильно, то в любом случае ждем активное окно ("Заголовок окна", "текст2"), если оно по каким-то причинам не появляется, то придется прерывать скрипт вручную. Приведи полный пример своего скрипта. |
Отправлено: 18:20, 26-09-2005 | #161 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 250
|
Профиль | Отправить PM | Цитировать Вот весь скрипт с изменениями, как ты и рекомендовал в своём примере.
Часть, которая не хочет работать выделена курсивом Opt("TrayIconDebug",1) Run("3dmark03_v360_setup.exe") WinWaitActive("3DMark03 - InstallShield Wizard", "Welcome to the InstallShield Wizard") ControlClick("3DMark03 - InstallShield Wizard", "Welcome to the InstallShield Wizard", "Button1") WinWaitActive("3DMark03 - InstallShield Wizard", "License Agreement") ControlClick("3DMark03 - InstallShield Wizard", "License Agreement", "Button5") ControlClick("3DMark03 - InstallShield Wizard", "License Agreement", "Button2") WinWaitActive("3DMark03 - InstallShield Wizard", "Destination Folder") ControlClick("3DMark03 - InstallShield Wizard", "Destination Folder", "Button1") WinWaitActive("3DMark03 - InstallShield Wizard", "Click Install to begin") ControlClick("3DMark03 - InstallShield Wizard", "Click Install to begin", "Button1") ;здесь может появиться окно ввода серийного номера, если программа ставится впервые IF WinExists ("3DMark03 - InstallShield Wizard", "Futuremark Registration") then WinActivate("3DMark03 - InstallShield Wizard", "Futuremark Registration") ControlSetText("3DMark03 - InstallShield Wizard", "Futuremark Registration", "Edit1", "18P2M-MY24M-39UK6-QAX2N") Sleep (1000) ControlClick("3DMark03 - InstallShield Wizard", "Futuremark Registration", "Button2") WinWaitActive("Congratulations!", "") ControlClick("Congratulations!", "", "Button1") WinWaitActive("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete") ControlCommand("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button1", "UnCheck", "") ControlCommand("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button2", "UnCheck", "") ControlClick("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button4") ElseIf WinExists ("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete") then WinActivate("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete") ControlCommand("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button1", "UnCheck", "") ControlCommand("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button2", "UnCheck", "") ControlClick("3DMark03 - InstallShield Wizard", "InstallShield Wizard Complete", "Button4") EndIf Exit И что толку от продолжения работы скрипта, если дальнейшие действия связаны с кликаньями по окнам которые не появятся, пока не уйдёт текущее? Я понимаю, что проблема выеденного яйца не стоит - можно сделать тихую инсталяшку или ввести серийный номер перед запуском установки с помощью рег-файла и исключить появление этого окна - дело в другом - хочу выяснить можно ли вообще бороться таким образом с "иногда появляющимися" окнами. У меня уже не первый случай когда нужно использовать функцию условного выполнения и всегда с этим проблемы. Что-то я тут не вкуриваю... |
Последний раз редактировалось biork, 28-09-2005 в 01:18. Отправлено: 01:01, 28-09-2005 | #162 |
Ветеран Сообщения: 628
|
Профиль | Отправить PM | Цитировать biork
Чтобы понять почему не работает пришлось поставить 3DMark2001, ставится он почти также как 2003, так вот дело в том что, твое условие If WinExists проверяется на стадии копирования файлов и декомпрессии текстур, естественно такого окна нет, и переходим к следующему условию ElseIf WinExists такого окна тоже нет и завершаем скрипт. Нужно добавить перед проверкой условий, ожидание завершения процесса копирования, чтобы в момент проверки условий либо то либо то окно успело появиться, сделать можно по разному например вот так: ControlClick("InstallShield Wizard", "Start Copying Files", "Button1") ;здесь может появиться окно ввода серийного номера, если программа ставится впервые WinWait("Texture Conversion", "Setup Status") WinWaitClose("Texture Conversion", "Setup Status" , 180) sleep (1000) IF WinExists ("InstallShield Wizard", "MadOnion.com Registration") then WinActivate("InstallShield Wizard", "MadOnion.com Registration") |
Отправлено: 09:59, 28-09-2005 | #163 |
Новый участник Сообщения: 11
|
Профиль | Отправить PM | Цитировать Вот скрипт для Windows XP Manader
;Видим скрытый текст Opt("WinTitleMatchMode",2) Opt("WinDetectHiddenText",1) ;Уберем все с окна WinMinimizeAll() Sleep(1000) $SF_1 = @ScriptDir & "\xpmanager.exe" $SF_2 = StringLeft(@ProgramFilesDir,2) & '\PROGRA~1\YANICS~1\WinXPM~1\WinXPM~1.exe' Run(@ComSpec & " /c " & "start " & $SF_1 , "", @SW_HIDE) $Title_1 = "WinXP Manager Setup" $Title_2 = "WinXP Manager" WinWaitActive($Title_1) sleep(1000) SEND("{ENTER}") WinWaitActive($Title_2,'The installer will guide you through the steps required to install WinXP Manager on your computer.') sleep(1000) SEND("{ENTER}") WinWaitActive($Title_2,'Select Installation Folder') sleep(1000) controlclick('','','Button5') SEND("{ENTER}") WinWaitActive($Title_2,'Confirm Installation') sleep(1000) SEND("{ENTER}") WinWaitActive($Title_2,'Installation Complete') sleep(1000) SEND("{ENTER}") Run( @ComSpec & " /c " & "start " & $SF_2 , "", @SW_HIDE) sleep(1000) WinActivate("WinXP Manager V4.92.3") ;WinWaitActive('WinXP Manager V4.92.3','UnRegistered...') WinWaitActive('WinXP Manager V4.92.3','Try It') sleep(1000) controlclick('WinXP Manager V4.92.3','','WindowsForms10.BUTTON.app31') WinWaitActive('Purchase and Register WinXP Manager V4.92.3') sleep(1000) ControlSetText( "" , "", 'WindowsForms10.EDIT.app35','XXXX') ControlSetText( "" , "", 'WindowsForms10.EDIT.app34','XXXX') ControlSetText( "" , "", 'WindowsForms10.EDIT.app33','XXXX') ControlSetText( "" , "", 'WindowsForms10.EDIT.app32','XXXX') ControlSetText( "" , "", 'WindowsForms10.EDIT.app31','XXXX') controlclick('','','WindowsForms10.BUTTON.app32') WinWaitActive('Finis','Please restart this software') sleep(1000) SEND("{ENTER}") EXIT |
Отправлено: 17:01, 28-09-2005 | #164 |
Старожил Сообщения: 250
|
Профиль | Отправить PM | Цитировать EgOrus
Ну ты монстр! Всё заработало как часики. Оживил несколько заброшенных по подобной причине скриптов. Большущее тебе спасибо! Вопрос на засыпку: зачем таймаут 3 минуты? А вдруг, диск плохо читается или комп 386-ой... я бы убрал этот параметр - пусть ждёт сколько ему надо. |
Отправлено: 01:18, 29-09-2005 | #165 |
Ветеран Сообщения: 628
|
Профиль | Отправить PM | Цитировать biork
по поводу 3х минут, вопрос спорный, теоретически это на тот как раз случай если диск нечитается вообще, на разных приводах может быть по разному, где-то начинает читать до посинения бывает и по 10-20 минут и все равно потом сбоит, бывает ошибку выдает, в любом случае скрипт встанет (скорей всего появится окно инстоляра об ошибке установки) и нужно будет вмешиваться. А так он на автомате через 3 минуты пойдет дальше. Вместо 3х можно побольше конечно поставить. |
Отправлено: 09:26, 29-09-2005 | #166 |
Ищу Человека… Сообщения: 420
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Последний раз редактировалось Sanja Alone, 27-12-2005 в 02:15. Отправлено: 04:47, 30-09-2005 | #167 |
Новый участник Сообщения: 17
|
Профиль | Отправить PM | Цитировать Кто-нибудь помогите заавтоитить Outpost 3.0
Раньше (v. 2.0-2.7) скрипт прекрасно отрабатывался в том месте, где идёт сбор об установленных программах и создаются для них правило. Скрипт корректно дожидался, пока кнопка "Далее" не станет доступной для нажатия. Вот это место WinWaitActive("Мастер конфигурации") $e = ControlCommand("Мастер конфигурации", "Мастер конфигурации производит настройку Outpost Firewall Pro", "Button4", "IsEnabled", "") While $e=0 $e= ControlCommand("Мастер конфигурации", "Мастер конфигурации производит настройку Outpost Firewall Pro", "Button4", "IsEnabled", "") WEnd Send("{ENTER}") т.е. получается, что недоступная копка каким-то образом нажалась. |
Отправлено: 22:48, 30-09-2005 | #168 |
Ищу Человека… Сообщения: 420
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Отправлено: 02:17, 01-10-2005 | #169 |
Новый участник Сообщения: 17
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
Отправлено: 22:42, 01-10-2005 | #170 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Открывая 7z архив пишет не удаётся открыть как архив. Можно ли его восстановить? | DreDo | Хочу все знать | 4 | 01-12-2009 18:54 | |
[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:. | Vadikan | AutoIt | 1543 | 18-01-2009 10:46 | |
[архив - Часть 2] AutoIt скрипты | Vadikan | AutoIt | 985 | 21-01-2008 09:58 | |
[Архив - Часть 1.3] AutoIt скрипты | biork | AutoIt | 503 | 09-06-2007 11:27 | |
[Архив - Часть 1.2] AutoIt скрипты | Dirk Diggler | AutoIt | 505 | 02-12-2006 11:00 |
|