[e9990638]

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 

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