Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Автоматическая установка приложений (http://forum.oszone.net/forumdisplay.php?f=61)
-   -   [AutoIt] автоматическая установка CorelDraw X4 (http://forum.oszone.net/showthread.php?t=102832)

korochinskiy 14-03-2008 17:18 760406

[AutoIt] автоматическая установка CorelDraw X4
 
Прошу ногами сразу не бить (в AutoIt работаю 3 часа :-) ). Мой скрипт запускает установку корела, затем ему надо подождать запуска окна с лицензией, поставить галочку в чекбоксе и нажать на Next.


If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug", 1)

Run("Corel.exe")
WinWaitActive("InstallShield Wizard")
WinWaitActive("CorelDRAW Graphics Suite X4 Setup Files - InstallShield Wizard")
WinWaitActive("CorelDRAW Graphics Suite X4")

(Вот в этом месте возникает проблема. Запускается окно Please Wait .... и делее окно с лицензией, но для AutoIt Window Info заголовок окон одинаковый. Как остановиться на окне с лицензией? Класс окна Internet Explorer_Server. Текст в AutoIt Window Info отсутствует, скрытого текста тоже нет.)
Send("!a")
Send("!n")
Sleep(5000)
Send("!n")
Sleep(5000)
Send("!i")
Sleep(200000)

Этот слип тоже бы хотелось поменять на WinWaitActive

Send("!f")
FileCopy("crack.exe", "C:\Program Files\Corel\CorelDRAW Graphics Suite X4\Programs")
Sleep(5000)
Run("C:\Program Files\Corel\CorelDRAW Graphics Suite X4\Programs\Crack.exe")
WinWaitActive("NoPE presents")
ControlClick("NoPE presents", "", "[ID:108]")
Do
$i = ControlGetText("NoPE presents", "", "[ID:111]")
Until $i <> '*PATCHING DONE*'
ControlClick("NoPE presents", "", "[ID:110]")

korochinskiy 21-03-2008 14:04 764989

Помогите пожалуйста. Как вностить и извлекать информацию из окон у которых класс Internet Explorer_Server? Я так ничего и не нашел.


Время: 11:16.

Время: 11:16.
© OSzone.net 2001-