Как отследить появление сообщения в разных ОС

Creat0R · Конфигурация компьютера

Цитата Str_ani_ck:

как мне быть если на хр этого окна нет, а скрипт затормозился на этой строчке WinWaitActive("Не совместимость программы") »

Тут нужно либо ожидать другое окно, которое появляется/активируется далее (вне зависимости от того, есть ли сообщение несовместимости или нету), либо ожидать это окно но определённое время, ну или вообще в цикле всё это проверять...

Последний вариант:

Код:

While 1
    If WinExists("Не совместимость программы") Then
        Send("{TAB 4}")
        Sleep(200)
        Send("{SPACE}")
        Sleep(200)
        Send("{TAB}")
        Sleep(200)
        Send("{RIGHT}")
        Sleep(200)
        Send("{ENTER}")

        ExitLoop
    EndIf

    If WinExists("Ошибка лицензии AutoCAD 2007") Then ExitLoop
WEnd

WinWaitActive("Ошибка лицензии AutoCAD 2007")

beve · Конфигурация компьютера

Можеш сделать ожидание в цикле появления или того или другого окна, и при появлении - выход из цикла и дальше по коду.

Creat0R · Конфигурация компьютера

Ах да, совсем упустил из виду - название темы неудачное! Это форум по AutoIt, поэтому оно и так должно быть понятным, что нужна помощь по AutoIt.

SyDr · Конфигурация компьютера

Ээээ.... А не проще проверить на какой системе, XP или Vista выполняется скрипт?
Смотрите макрос @OSVersion

Str_ani_ck · Отправлено: **22:11, 26-07-2009** | #6

Цитата Creat0R:

While 1
If WinExists("Не совместимость программы") Then
Send("{TAB 4}")
Sleep(200)
Send("{SPACE}")
Sleep(200)
Send("{TAB}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
Send("{ENTER}")
ExitLoop
EndIf
If WinExists("Ошибка лицензии AutoCAD 2007") Then ExitLoop
WEnd
WinWaitActive("Ошибка лицензии AutoCAD 2007") »

Вставил это вместо своего куска скрипта , и скрипт тормозит на If WinExists("Не совместимость программы") Then

266903582 · Отправлено: **23:24, 26-07-2009** | #7

Str_ani_ck, попробуй так:

Код:

While 1
If WinExists("Не совместимость программы") Then f1()
If WinExists("Ошибка лицензии AutoCAD 2007") Then ExitLoop
WEnd
Winwait("Ошибка лицензии AutoCAD 2007")
WinActivate("Ошибка лицензии AutoCAD 2007")
;~ Дальше свое код

Func f1()
	WinActivate("Не совместимость программы")
	Send("{TAB 4}")
	Sleep(200)
	Send("{SPACE}")
	Sleep(200)
	Send("{TAB}")
	Sleep(200)
	Send("{RIGHT}")
	Sleep(200)
	Send("{ENTER}")
EndFunc

Хотя вместо send-ов надежнее будет controlsend использовать, но это уже на твое усмотрение...

SyDr · Конфигурация компьютера

Код:

If @OSVersion = "WIN_VISTA" Then
	WinWaitActive("Не совместимость программы")
	Send("{TAB 4}")
	Sleep ( 200)
	Send("{SPACE}")
	Sleep ( 200)
	Send("{TAB}")
	Sleep ( 200)
	Send("{RIGHT}")
	Sleep ( 200)
	Send("{ENTER}")
EndIf
WinWaitActive("Ошибка лицензии AutoCAD 2007")

Str_ani_ck · Отправлено: **02:06, 27-07-2009** | #9

While 0- Вот так скрипт идет дальше а с 1 стоит на месте???? Не понимаю что нужно

Цитата 266903582:

While 0
If WinExists("Не совместимость программы") Then f1()
If WinExists("Ошибка лицензии AutoCAD 2007") Then ExitLoop
WEnd
Winwait("Ошибка лицензии AutoCAD 2007")
WinActivate("Ошибка лицензии AutoCAD 2007")
;~ Дальше свое код
Func f1()
WinActivate("Не совместимость программы")
Send("{TAB 4}")
Sleep(200)
Send("{SPACE}")
Sleep(200)
Send("{TAB}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
Send("{ENTER}")
EndFunc »

Str_ani_ck · Отправлено: **02:23, 27-07-2009** | #10

Хотя вместо send-ов надежнее будет controlsend использовать, но это уже на твое усмотрение...
Акак этим пользоваться
Допустим мне нужно нажать кнопку TAB
Я набираю команду Send("{TAB }")
А этим как пользоваться controlsend?