Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [решено] SnagIt 8
Показать сообщение отдельно

Аватара для DImaN!

Ветеран


Сообщения: 862
Благодарности: 184

Профиль | Сайт | Отправить PM | Цитировать


Помогите пожалуйста. Пробую утсановить SnagIt8.2.0 (160) и руссифицировать при помощи скрипта AutoIT3. Устанавливается программа нормально, но возникает проблема с руссификатором, в котором нужно в поле Edit1 ввести верный путь с установленной программой. ПОдскажите, где у меня допущена ошибка:
Код: Выделить весь код
Global $Title="SnagIt 8.2.0 Setup", $file=@ScriptDir&"\setup.exe", $russ="rus_snagit_8.2.0.exe"

Run($file)
WinWaitActive($Title, "Welcome to the SnagIt 8.2.0 Installation Wizard")
Sleep(4000)
ControlClick($Title, "Welcome to the SnagIt 8.2.0 Installation Wizard", "Button1")
WinWaitActive($Title, "License Agreement")
ControlClick($Title, "License Agreement", "Button3")
ControlClick($Title, "License Agreement", "Button4")
WinWaitActive($Title, "User Information")
ControlClick($Title, "User Information", "RichEdit20W1")
Send("{LSHIFT}+{HOME}")
Send("DImaN")
ControlClick($Title, "User Information", "RichEdit20W2")
Send("{LSHIFT}+{HOME}")
Send("Secret_LabZ")
ControlClick($Title, "User Information", "Button1")
WinWaitActive($Title, "Licensing")
ControlClick($Title, "Licensing", "RichEdit20W1")
Send("BJKHC-KACZV-CYDCA-CMCZE-2F62F")
ControlClick($Title, "Licensing", "Button1")
WinWaitActive($Title, "Select Installation Type")
ControlClick($Title, "Select Installation Type", "Button4")
WinWaitActive($Title, "Ready to Install the Application")
ControlClick($Title, "Ready to Install the Application", "Button4")
ControlClick($Title, "Ready to Install the Application", "Button7")
ControlClick($Title, "Ready to Install the Application", "Button1")
WinWaitActive($Title, "SnagIt 8.2.0 has been successfully installed.")
ControlClick($Title, "SnagIt 8.2.0 has been successfully installed.", "Button1")



;руссификация
Run($russ)
WinWaitACtive("TechSmith SnagIt 8.2.0 (Build 160) Update", "Welcome to the TechSmith SnagIt 8.2.0")
ControlClick("TechSmith SnagIt 8.2.0 (Build 160) Update", "Welcome to the TechSmith SnagIt 8.2.0", "Edit1")
Send("{LSHIFT}+{HOME}")
Send("C:\Program Files\TechSmith\SnagIt 8")
ControlClick("TechSmith SnagIt 8.2.0 (Build 160) Update", "Welcome to the TechSmith SnagIt 8.2.0", "Button1")
WinWaitActive("PatchWise Updater")
Send("{ENTER}")
ControlClick("TechSmith SnagIt 8.2.0 (Build 160) Update", "Welcome to the TechSmith SnagIt 8.2.0", "Button2")

-------
It's only after we've lost everything that we're free to do anything... Блог


Отправлено: 13:09, 14-12-2007 | #23

Название темы: [решено] SnagIt 8