korochinskiy
14-03-2008, 17:18
Прошу ногами сразу не бить (в 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]")
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]")