Отслеживание всплывающего из трея окна календаря/времени

[akm-2005]

Всем привет.
Циклично скриншотирую полнооткрытую страницу IE с открытым всплывающим-из-трея-окном-календаря/времени (в win7)... (в цикле меняются адреса страниц)
Открываю это всплывающее окно из трея с помощью программного нажатия мышью по часам в трее (после каждой полной загрузки страницы в IE):

Код: Выделить всё

SetCursorPos + mouse_event (MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

Все получается, вот только момент полной прорисовки этого всплывающего окна не могу отследить достоверно ДО скриншотирования (то есть без работы с точками скриншота)...
Пробовал и

Код: Выделить всё

hWndClockFlyoutWindow = FindWindow("ClockFlyoutWindow", vbNullString)

- hWnd после "тыка" находит, но не дает достоверно убедиться в полной прорисовке окна к моменту нахождения hWnd;
и

Код: Выделить всё

r = GetWindowThreadProcessId(hWndClockFlyoutWindow, pID)
pHandle = OpenProcess(&H100000, True, pID)
WaitForInputIdle pHandle, &HFFFF
CloseHandle pHandle

- тоже раньше прорисовки отрабатывает...

За неимением вариантов - делаю паузу через Sleep или DoEvents длиной около секунды... Однако задача будет выполняться и на других компьютерах, где паузы может не хватить... Да и время на паузы тратить жалко (цикл может быть большим)...)))
Как я предполагаю, это всплывающее окно календаря/времени - та еще штучка, так просто не вызывается и не отслеживается...

В общем, вопрос: кто-то знает, как можно отследить полную прорисовку этого окна без скриншотирования экрана?
Или, если таковое невозможно, помогите пжст с идеями - как не наугад (паузой), а достоверно, дождаться готовности этого окошка к "фотографированию".

[ger_kar]

Интересная задача:
Надо подумать и поэкспериментировать в таком направлении.
Собственно пока идея такая: после нахождения окна через FindWindow попробовать поискать дочерние окна через FindWindowEx. И попробовать получить например текст из такого дочернего окна. Т.е. найти окно, потом в нем найти поле со временем кнопку и получить из этого поля текст. По идее к этому времени окно должно быть уже прорисовано, но как будет на сомом деле х.з. Поэтому нужен эксперимент.

[Vova_2581]

В общем, вопрос: кто-то знает, как можно отследить полную прорисовку этого окна без скриншотирования экрана?

Может быть попробовать IsWindows или как-то так... IsWindowVisible..??.. Может прокатит??

[akm-2005]

Уважаемые, спасибо за идеи. Попробовал обе. )))
На данный момент получилось так:

Код: Выделить всё

' №№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№
' Открыть окно календаря/времени из трея
' №№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№
Dim rClock As RECT
hWndClock = FindWindow("Shell_TrayWnd", vbNullString)
hWndClock = FindWindowEx(hWndClock, 0, "TrayNotifyWnd", vbNullString)
hWndClock = FindWindowEx(hWndClock, 0, "TrayClockWClass", vbNullString)
GetWindowRect hWndClock, rClock
' Итеративно тыкать в трей и дожидаться полной прорисовки всплывающего окна календаря/времени
Do
    Sleep 10 ' ставить задержку (миллисек) между итерациями проверки готовности окна
    bWinIsOpen = False
    hWndClockFlyoutWindow = FindWindow("ClockFlyoutWindow", vbNullString)
    If hWndClockFlyoutWindow <> 0 Then
        ' Искать дочку класса DirectUIHWND
        hD = FindWindowEx(hWndClockFlyoutWindow, 0, "DirectUIHWND", vbNullString)
        ' Искать первую попавшуюся правнучку класса ClockWndMain во внучках класса CtrlNotifySink
        Do
            hCN = FindWindowEx(hD, hCN, "CtrlNotifySink", vbNullString)
            If hCN <> 0 Then hCW = FindWindowEx(hCN, 0, "ClockWndMain", vbNullString)
        Loop Until hCW <> 0
        ' Проверить появление видимости правнуческого окна календаря/времени
        If IsWindowVisible(hCW) <> 0 Then bWinIsOpen = True
    Else
        ' Указатель мыши передвинуть на часы в трее
        Call SetCursorPos((rClock.Right + rClock.Left) / 2, (rClock.Top + rClock.Bottom) / 2)
        ' Эмулировать нажатие на кнопку мыши
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    End If
Loop Until bWinIsOpen = True

И в итерациях почему-то не работает "сначала-тыканье-потом-проверка", а именно так - "сначала-проверка-потом-тыканье".
Буду тестировать и совершенствовать дальше... Окошко-то - пугливое: живо скрывается при кликаньях, остановках в коде... )))

[Хакер]

Или, если таковое невозможно, помогите пжст с идеями - как не наугад (паузой), а достоверно, дождаться готовности этого окошка к "фотографированию".

Нарисовать что-нибудь в окне, послать сообщение с просьбой о перерисовке, и проверяь, остался ли нарисованный опознавательный признак на месте.


О каком окошке речь? Что надо сделать (установить, настроить), чтобы поиметь возможность поиграться с этим всплывающим окошком и поэкспериментировать с методами воздействия на него?

[Vova_2581]

О каком окошке речь?

Об этом...

Screen1.jpg (29.11 Кб) Просмотров: 2484

А вот окошко, где часы...

Screen2.jpg (9.27 Кб) Просмотров: 2484

Почему-то не отвечает на посылаемые ему оконные сообщения кликов, типа - WM_LBUTTONDBLCLK, WM_LBUTTONDOWN, BN_CLICKED, BM_CLICK и прочие... даже через WM_COMMAND, видимо окно игнорирует эти сообщения. А вот кликнуть через mouse_event получается. В чем прикол???

[Хакер]

Это встроенная часть Windows 7, или какой-то софт выводит это окно?

[iGrok]

Встроенная часть висты и последующих, да. По ощущениям работает точно так же как меню "Пуск", только при клике по часам.

[akm-2005]

Да, без установки паузы (через DoEvents или Sleep) мне пока не удается гарантированно ловить момент полной прорисовки этого окна календаря/времени и момент полного его пропадания...
Приходится все-таки скриншотировать и проверять точку картинки (внутри района всплывающего окна) на определенный цвет...
Тесты показывают, что в цикле из 4 скриншотируемых страниц периодически "фальстарты" возникают 1-2 раза...
Но в целом такой подход - довольно быстрый, т.к. нет пауз.

[ger_kar]

Приходится все-таки скриншотировать и проверять точку картинки (внутри района всплывающего окна) на определенный цвет...

Крайне не надежный способ. Достаточно изменения цветовой темы, для того чтобы алгоритм "сломался".

[akm-2005]

Вполне допускаю. Надежность низкая. Пока ничего умнее не придумал, да и здесь новых идей пока нет.

[The trick]

Для начала поставить обработчик событий SetWinEventHook и посмотреть есть ли какое событие которое приходит гарантированно после отрисовки.