Автоматическая установка VentaFax

DenchikK · Отправлено: **20:56, 12-03-2006** | #11

e9990638
Просто копируете в блокнот скрипт, сохраняете примерно так: venta.au3

e9990638 · Отправлено: **22:01, 12-03-2006** | #12

DenchikK
Я поменял расширение на .au3 и проверял запуск AutoIt3.exe
Но у меня вопрос, почему когда доходит до регистрации процесс стопорится, пока не наведу мышкой на окно регистрации и не кликну (активирую) окно, далее все идет нормально. Я немного изменил скрипт, хотелось чтобы все ярлыки и группы устанавливались и в самом дистрибутиве я изменил название программы на русский и папку назначения. Привожу скрипт для проверки, может что-то не так?

PHP код:


; Запрет на двойной запуск скрипта
If WinExists(@ScriptName) Then Exit
 
; Пауза между нажатием клавиш 
AutoItSetOption("SendKeyDelay", 50)
 
; Если скрипт засбоил, в трее подведите мышку к иконке AutoIT скрипта, и узнаете, где он застопроился
AutoItSetOption("TrayIconDebug", 1)
 
; Проверка на уже установленную программу
If FileExists ( @ProgramFilesDir & "\Вента Факс 5.7\ventafax.exe" ) Then
    MsgBox (64,'Информация','Программа VentaFax уже стоит на Вашем компьютере. Удалите её и попробуйте снова.',7)
    Exit
EndIf
 
;Запуск программы
Run('VFHome-5.7.exe')
 
;Выбор русского языка 
WinWaitActive ('Установка Вента Факс 5.7','')
ControlCommand ( 'Установка Вента Факс 5.7', '', 'TComboBox1', 'SelectString', 'Russian' )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','','TButton3')
 
WinWaitActive ('Установка Вента Факс 5.7','Согласен')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Согласен','TButton2')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Согласен','TButton5')
 
WinWaitActive ('Установка Вента Факс 5.7','Далее')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Далее','TButton5')
 
;WinWaitActive ('Установка Вента Факс 5.7','Добавить значок на панель')
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox1', "UnCheck", "" )
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox2', "UnCheck", "" )
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox3', "UnCheck", "" )
;Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Добавить значок на панель','TButton7')
 
 
WinWaitActive ('Установка Вента Факс 5.7','Далее')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Далее','TButton7')
 
 
WinWaitActive ('Установка Вента Факс 5.7','Выбрать все')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Выбрать все','TButton7')
 
WinWaitActive ('Установка Вента Факс 5.7','Установить')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Установить','TButton7')
 
; Если расскоментировать строчку - Venta не запуститься
WinWaitActive ('Установка Вента Факс 5.7')
ControlCommand ( 'Установка Вента Факс 5.7', 'Открыть программную группу', 'TCheckBox8', "UnCheck", "" )
;ControlCommand ( 'Установка Вента Факс 5.7', '', 'TCheckBox11', "UnCheck", "" )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','','TButton7')
Sleep (500)
;WinClose("Вента Факс 5.7", "")
;WinKill ( "Вента Факс 5.7", ["text"] )
 
WinWaitActive ('Venta Fax & Voice','Регистрация')
ControlClick ('Venta Fax & Voice','Регистрация','TBitBtn6')
Sleep (500)
; Регистрация. Обращаю внимание на то, что серийник вводится по-другому, нежели чем имена. 
; Сделано это из-за того, что Venta иногда вылетает при помещении текста в ячейку s/n 
; Так же я не стал отдельно делать переменные для регистрационных данных, так как в этом скрипте не вижу для этого необходимости.
WinActivate ('Регистрация','')
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit2', "XXXX" )
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit1', "XXXXXXXXXXXX" )
Sleep (500)
Send ('{TAB 2}')
Send ('4064-21234440392-3333')
;ControlSetText ( 'Регистрация','', 'TEdit3', "XXXX-XXXXXXXXXX-XXXX" )
Sleep (500)
ControlClick ('Регистрация','','TBitBtn2')
 
WinWaitActive ('Information')
ControlClick ('Information','','TButton1')
 
WinWaitActive ('ВНИМАНИЕ!')
ControlClick ('ВНИМАНИЕ!','','TBitBtn3')
 
WinWaitActive ('Настройка параметров')
Sleep (10000)
ControlClick ('Настройка параметров','','TBitBtn38')
 
Exit

Sanja Alone · Конфигурация компьютера

DenchikK

Цитата:

Запрет на двойной запуск скрипта

Посмотри этот пост - там я подробно обыяснил как правильно осуществить данное действие.

DenchikK · Отправлено: **16:03, 13-03-2006** | #14

e9990638
Как я и говорил - супербизон Sanja Alone понимает в AutoIt ГОРАЗДО больше, чем я!

И такой вопрос - у Вас везде строчки типа :

ControlClick ('Установка Вента Факс 5.7','','TButton7')

Что, действительно в каждом окне пишется по-русски "Установка Вента Факс"? Это можно посмотреть, запустив AutoIt Window Info, ткнуть в окошко установки программы, и там в сверху, в Windows Details - Title

Код:

; Если расскоментировать строчку - Venta не запуститься
WinWaitActive ('Установка Вента Факс 5.7')
ControlCommand ( 'Установка Вента Факс 5.7', 'Открыть программную группу', 'TCheckBox8', "UnCheck", "" )
;ControlCommand ( 'Установка Вента Факс 5.7', '', 'TCheckBox11', "UnCheck", "" )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','','TButton7')
Sleep (500)
;WinClose("Вента Факс 5.7", "")
;WinKill ( "Вента Факс 5.7", ["text"] )

Тут не понял - зачем winclose и winkill

Код:

;WinWaitActive ('Установка Вента Факс 5.7','Добавить значок на панель')
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox1', "UnCheck", "" )
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox2', "UnCheck", "" )
;Sleep (500)
;ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox3', "UnCheck", "" )
;Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Добавить значок на панель','TButton7')

Тут, как я понял, Вы хотели чтоб значки добавлялись. Не комментировать надо (естественно - скрипт не дождадся и неактивировал окно - самая первая строчка. ) Тут менять надо Uncheck на Check.

Sanja Alone
Точно, лоханулся, пропустил!

e9990638 · Отправлено: **17:41, 13-03-2006** | #15

DenchikK
В самом дистрибутиве я изменил название программы на русский и папку назначения. Редактировал Setup.ini, потому названия окна по-русски.
По поводу winclose и winkill - думал как закрыть группу ярлыков, но т.к. впереди них я поставил ";" - то команда не работает. (Кстати она у меня не отрабатывает и без ";")

Но как быть с этим "...почему когда доходит до регистрации процесс стопорится, пока не наведу мышкой на окно регистрации и не кликну (активирую) окно, далее все идет нормально..."?

Где выяснить номер кнопки?
ControlCommand ( 'Установка Вента Факс 5.7', 'Открыть программную группу', 'TCheckBox8', "UnCheck", "" ) - "8" подобрана методом подбора.

DenchikK · Отправлено: **20:21, 13-03-2006** | #16

e9990638
Всё узнается при Auto Window Info.

Про это:
Но как быть с этим "...почему когда доходит до регистрации процесс стопорится, пока не наведу мышкой на окно регистрации и не кликну (активирую) окно, далее все идет нормально..."?

Я выше написал - Вы закоментировали ожидание окна.

e9990638 · Отправлено: **22:19, 13-03-2006** | #17

DenchikK/Sanja Alone
Высылаю очередной раз скрипт.
Все равно когда выскакивает окно с регистрацией, стопорится процесс, активирую окно - дальше идет. Насколько я понял связано с тем, что запускается сама программа Вента Факс, далее она закрывается и окно с регистрацией остается не активированно. Что надо сделать?

PHP код:


; Запрет на двойной запуск скрипта
If WinExists(@ScriptName) Then Exit
 
; Пауза между нажатием клавиш 
AutoItSetOption("SendKeyDelay", 50)
 
; Если скрипт засбоил, в трее подведите мышку к иконке AutoIT скрипта, и узнаете, где он застопроился
AutoItSetOption("TrayIconDebug", 1)
 
; Проверка на уже установленную программу
If FileExists ( @ProgramFilesDir & "\Вента Факс 5.7\ventafax.exe" ) Then
    MsgBox (64,'Информация','Программа VentaFax уже стоит на Вашем компьютере. Удалите её и попробуйте снова.',7)
    Exit
EndIf
 
;Запуск программы
Run('VFHome-5.7.exe')
 
;Выбор русского языка
WinWaitActive ('Установка Вента Факс 5.7','')
ControlCommand ( 'Установка Вента Факс 5.7', '', 'TComboBox1', 'SelectString', 'Russian' )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','','TButton3')
 
;Лицензионное соглашение
WinWaitActive ('Установка Вента Факс 5.7','Согласен')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Согласен','TButton2')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Согласен','TButton5')
 
;Выбор папки для установки
WinWaitActive ('Установка Вента Факс 5.7','Далее')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Далее','TButton5')
 
;Создание значков
WinWaitActive ('Установка Вента Факс 5.7','Добавить значок на панель')
Sleep (500)
;Добавить значок на панель "Быстрый запуск"
ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox1', "Check", "" )
Sleep (500)
;Добавить значок на Рабочий стол
ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox2', "Check", "" )
Sleep (500)
;Добавить группу программ в меню "Пуск"
ControlCommand ( 'Установка Вента Факс 5.7', 'Добавить значок на панель', 'TCheckBox3', "Check", "" )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Добавить значок на панель','TButton7')
 
;Выбор группы программ в меню Пуск
WinWaitActive ('Установка Вента Факс 5.7','Далее')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Далее','TButton7')
 
;Выбор типов файлов
WinWaitActive ('Установка Вента Факс 5.7','Выбрать все')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Выбрать все','TButton7')
 
;Все готово к установке
WinWaitActive ('Установка Вента Факс 5.7','Установить')
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','Установить','TButton7')
 
;Завершение установки
WinWaitActive ('Установка Вента Факс 5.7')
ControlCommand ( 'Установка Вента Факс 5.7', 'Открыть программную группу', 'TCheckBox8', "UnCheck", "" )
;ControlCommand ( 'Установка Вента Факс 5.7', 'Запустить программу', 'TCheckBox11', "UnCheck", "" )
Sleep (500)
ControlClick ('Установка Вента Факс 5.7','','TButton7')
 
;Venta Fax & Voice - РЕГИСТРАЦИЯ
WinWaitActive ('Venta Fax & Voice','Зарегистрировать сейчас!')
ControlClick ('Venta Fax & Voice','Зарегистрировать сейчас!','TBitBtn6')
 
;Регистрация
WinActivate ('Регистрация','')
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit2', "XXXX" )
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit1', "XXXX" )
Sleep (500)
Send ('{TAB 2}')
Send ('XXXX-XXXXXXXXXXX-XXXX')
ControlClick ('Регистрация','','TBitBtn2')
 
;Information - Регистрация завершена
WinWaitActive ('Information')
ControlClick ('Information','','TButton1')
 
;ВНИМАНИЕ!
WinWaitActive ('ВНИМАНИЕ!')
ControlClick ('ВНИМАНИЕ!','','TBitBtn3')
 
;Настройка параметров - определение модема
WinWaitActive ('Настройка параметров')
Sleep (10000)
ControlClick ('Настройка параметров','','TBitBtn38')
 
Exit

А по поводу (; Запрет на двойной запуск скрипта) не понял, если можно привести пример.
Спасибо за науку.

DenchikK · Отправлено: **00:46, 14-03-2006** | #18

e9990638

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

Sanja Alone · Конфигурация компьютера

DenchikK, e9990638

Цитата:

Не комментировать надо (естественно - скрипт не дождадся и неактивировал окно - самая первая строчка. ) Тут менять надо Uncheck на Check.

Если по ум. галочки стоят, то можно и закомментировать (это уточнение касается только чекбоксов, а не ф-ции ожидания окна

).

e9990638

Цитата:

Насколько я понял связано с тем, что запускается сама программа Вента Факс, далее она закрывается и окно с регистрацией остается не активированно.

WinActivate('Заголовок окна','Какой-то текст из этого окна'). Но, во избежание подобного рода загвоздок, я бы рекомендовал везде вместо WinWaitActive('Заголовок','Текст') использовать связку:

Код:

WinWait ('Заголовок','Текст')
WinActivate ('Заголовок','Текст')
WinWaitActive ('Заголовок','Текст')

Это избыточный код, но он гарантирует активность окна на момент начала работы с ним (и при этом не нужны Sleep-ы, хотя, они здесь и без того по субъективной причине; а последний Sleep (10000), скорее всего, можно заменить циклом ожидания активности кнопки "Далее" или окончания неактивности кнопки "Назад" - пример можно посмотреть в скрипте для Agnitum Outpost). Пример кода:

Код:

;Выполнять секундную паузу пока кнопка "Назад" неактивна
While ControlCommand ( 'Заголовок', 'Текст', '< &Назад', 'IsEnabled', '')=0
Sleep ( 1000 )
WEnd

P.S. Я могу помочь по данному скрипту скорее теоретически, т.к. не пользуюсь VentaFax и у меня даже нет дистрибутива этой проги. Но, Вы ведь и сами в состоянии выявить место "подвисания" скрипта - строка AutoItSetOption("TrayIconDebug", 1) в предложенном Вам DenchikK-ом скрипте есть, след-но, если какое-то запланированное действие не выполняется, можно подвести мышку к иконке АвтоИт в трэе, подождать несколько секунд, и, в появившейся всплывающей подсказке, посмотреть какая строка стала преградой. Об этом я писал в FAQ по AutoIt (раздел "Отлов ошибок").

e9990638 · Отправлено: **14:21, 14-03-2006** | #20

DenchikK / Sanja Alone
Спасибо вам!
Наконец все получилось.
Теперь буду пробовать компилировать.
DenchikK- "...Тренироваться на основе этого скрипта будет трудно..." - по крайней мере я хотя бы понял как работает эта программа, есть смысл изучать ее дальше.