Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Googler


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

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


Цитата Cuba:
наверно не видит, что то окошко закрылось »
по ходу там класс окна сменился в новых версиях:
Код: Выделить весь код
; Ожидение появления окна обновления устройств
Do
Until ControlCommand("[CLASS:TWaitForSomethingDialog]", "", "[CLASS:TPanel; INSTANCE:1]", "IsVisible")
; Ожидение закрытия  окна обновления устройств
While ControlCommand("[CLASS:TWaitForSomethingDialog]", "", "[CLASS:TPanel; INSTANCE:1]", "IsVisible")
    Sleep(100)
WEnd
на всякий случай отладочный вариант:
Код: Выделить весь код
$WinTitle="[CLASS:TAboutDlg;TITLE:О программе - Alcohol 120%]"

WinWait($WinTitle)
ConsoleWrite('Window activated: "'& $WinTitle &'"' &@CRLF)
WinClose($WinTitle)
ConsoleWrite('Window    closed: "'& $WinTitle &'"' &@CRLF)

$WinTitle="[CLASS:TWaitForSomethingDialog]"
$WinCntrl="[CLASS:TPanel; INSTANCE:1]"
; Ожидение появления окна обновления устройств
Do
    $IsVisible = ControlCommand($WinTitle, "", $WinCntrl, "IsVisible")
    ConsoleWrite('Window control visible:'& $IsVisible &@CRLF)
Until $IsVisible
; Ожидение закрытия  окна обновления устройств
While $IsVisible
    Sleep(50)
    $IsVisible = ControlCommand($WinTitle, "", $WinCntrl, "IsVisible")
    ConsoleWrite('Window control visible:'& $IsVisible &@CRLF)
WEnd

$WinTitle="[CLASS:TMainFrame;TITLE:Alcohol 120%]"
$WinText ="Готов"

WinWait($WinTitle,$WinText)
ConsoleWrite('Window activated: "'& $WinTitle &'"' &@CRLF)
WinClose($WinTitle)
ConsoleWrite('Window    closed: "'& $WinTitle &'"' &@CRLF)
Цитата Cuba:
Никак не могу отловить его...
окошко вызывается по Shift+F5
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:27, 20-04-2009 | #11