[e9990638]

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