Как узнать цвет в чужом окне, понажимать кнопки?

[GorYU]

Есть программа, окантовка её меняет цвет (два цвета), хотелось бы ловить изменение цвета, и параллельно нажимать в ней две кнопки.
Но программу я не писал и названия элементов её не знаю(spy++ не нашёл), да и как к ним обращаться.
Если кто в этом разбирается помогите, пожалуйста, можно на примере calc.exe

[SHURUP]

http://bbs.vbstreets.ru/viewtopic.php?p=137977

[GorYU]

SHURUP, это я уже видел, спасибо, "spy++"- не главная проблема
я плохо представляю что такое hWnd, и как с ним общаться
если бы вы показали на примере любой windows'овской програмки как нажимать кнопки и считывать текст, было бы замечательно.

[Twister]

hWnd - хэндл/дескриптор окна, по которому к нему можно обращаться.
Зная его можно полностью управлять окном... Смотри документацию, вообщем

[GorYU]

С определением цвета, нажатием кнопок разобрался, spy++ нашёл)
Сейчас цвет определяется снятием картинки куска окна, для этого надо чтобы окно всегда было поверх других окон - не удобно и не всегда выполнимо.

Теперь вопрос из той же задачи, но немного другой.
Возьмём, например, калькулятор (%SystemRoot%\System32\calc.exe), WinXP. При наведении курсора на цифру, например, 1, появляется оранжевая окантовка у кнопки, Spy++ отлавливает сообщение

000F (Posted)
WM_PAINT

Как в VB6 отловить такое сообщение, уже имея hWnd

[Atoman]

Sabclassing

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

Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
    Select Case uMsg
    Case WM_PAINT:
        Call BeginPaint(hwnd ,Paint)
        '...
        ' Здесь код обработки сообщения
        '...
        Call EndPaint(hwnd, Paint)
        WndProc = 0
    Case Else:
        WndProc = DefWindowProc(hwnd, uMsg, wParam, lParam)
    End Select
End Function

[dr.MIG]

Сабклассим чужое окно?...

[Atoman]

Сабклассим чужое окно?...

Я не это имелвиду.
Я показал как можно ререхватить это сообщение.

А впринципе почему и нет ,если уже известен hWnd

[dr.MIG]

Потому что низя... Чужое...

[GorYU]

И код какой-то странный, явно не проверялся на реальность работы.
Если у меня уже будет значение uMsg, зачем писать функцию WndProc.

На входе должно быть только hWnd.

[Atoman]

Так пардон.
Немого неправильно видимо понля вопрос.
Сейчас вроде догоняю ,тебе надо узнать от какого окна пришло сообщение?

[GorYU]

Есть окно, сижу фоткаю его, жду, когда у него цвет изменится, для этого надо чтобы окно не было ничем закрыто - это плохо, но работает.
При смене цвета окна spy++ улавливает сообщение от окна WM_PAINT, при этом не требуется, чтобы окно было на виду - это надо, но не знаю, как программно отловить.
Если spy++ может, значит и VB должен.
Отправить сообщение окну, проблемы нет, а как его принять, не пойму. В если работать с me.hwnd то что-то получается, а вот чужими окнами глухо.

[jangle]

Потому что низя... Чужое...

Все можно.. И чужое окно сабклассить. Но только осторожно!

[jangle]

При смене цвета окна spy++ улавливает сообщение от окна WM_PAINT, при этом не требуется, чтобы окно было на виду - это надо, но не знаю, как программно отловить.

Хук на WH_CALLWNDPROC этого приложения, и самому ловить WM_PAINT

[Atoman]

Хук на WH_CALLWNDPROC этого приложения, и самому ловить WM_PAINT

Тоесть ты предлогаеш поставить глобальный хоок на систему,
на сколько мне помнится VB может поставить глобальный хоок на клаву и мышь.
Но где то здесь на форуме я видел тему про глобальные хооки,
и та вроде бы есть пример с реализацией.

[Хакер]

GorYU
Spy++ внедряется во все процессы системы.

[GorYU]

Хакер, это хорошо, а как мне хотя бы в один внедриться)
Googl'ом нашёл пару интересных архивов в тему.
http://examples.oreilly.com/subhookvb/Web%20Site%20Code.zip
http://www.a1vbcode.com/downloads/vbComCtl.zip
Без опыта общения с хуками - не помогли.

Есть у кого-нибудь мысли в виде рабочего куска кода?

[Хакер]

GorYU
Получить право писать в чужой процесс.
Записать свой код в АП чужого процесса.
Создать в чужом процессе новый поток из записанного кода. А новый поток будет чувствовать себя "как у себя дома" (это весьма относительно, конечно) в чужом процессе.

[Денис]

Я дико извиняюсь за оффтопик, но...

Atoman
а Google ты тоже гооглом называешь? Непривычно, но Звучит, чёрт побери!

[Atoman]

Смысл то понятен ,и звучит.

[GorYU]

Теории можно много насоветовать.
Кто-нибудь видел код?

Если всё так просто, что можно в общих словах сказать, думаю и пример будет не сложным, калькулятор есть у всех на нём можно и показать

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

[jangle]

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

Ты правильно все понял, только еще одна вещь. Вызов SetWindowsHookEx обязательно должен происходить из Native DLL

[Atoman]

Вот посмотри здесь:
http://www.thalion.kiev.ua/idx.php/17/563/article/

[Lumen]

Atoman

ERROR
The requested URL could not be retrieved

[Atoman]

Яndex > WH_CALLWNDPROC
Гоогл > WH_CALLWNDPROC

[Gemini]

Есть предложение разобрать Код хука подробно, что бы все стало ясно.
Пример можно использовать хук клавы...

Я попробую начать. А те, кто разбераеться лучше правьте...
Это попытка перевисти из с ++ на vb

Код в длл:

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

Private Const WM_KEYDOWN = &H100

Private Function HookProc(ncode As Long, wParam As Long, lParam As Long) As Long

If ncode < 0 Then
        HookProc = CallNextHookEx(0&, ncode, wParam, lParam)
   If lParam = WM_KEYDOWN Then
      'Это для проверки...
      MsgBox ("Key Down = " & ncode & "  " & wParam & "  " & lParam)
    End If
End If

HookProc = CallNextHookEx(0&, ncode, wParam, lParam)
End Function



Программа Стандартный exe

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

Private Sub HOOKKEY_Click()
  hLib = LoadLibrary("hook.dll")

  hProc = GetProcAddress(hLib, "hookproc") 'здесь у меня загвоздка возвращает 0, видимо проблема со вторым параметром...

  hHook = SetWindowsHookEx(WH_KEYBOARD, hProc, hLib, 0&)
End Sub

Private Sub UNLOADPROG_Click()
If hHook Then UnhookWindowsHookEx (hHook)
If hLib Then FreeLibrary (hLib)
End Sub


[Atoman]

Попробуй объявить функцию в длл вот так:

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

Public Function HookProc(ncode As Long, wParam As Long, lParam As Long) As Long

[Gemini]

Atoman
Нет... Всё так же возвращается 0.
Там надо подставить ProcName...
Какого процесса??? В примере используется имя функции.

[Atoman]

Странно у меня твой код тоже ноль возвращает.

А вот здесь у меня всё нормально:

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

hLib = LoadLibrary(App.Path & "\Hook.dll")
hProc = GetProcAddress(hLib, "HookProc")
hHook = SetWindowsHookEx(WH_KEYBOARD, hProc, hLib, 0&)

[Gemini]

Atoman
А в чем разница???
Только то что ты указываешь полный путь к длл.
И ригистр верхний...

hLib = LoadLibrary(App.Path & "\Hook.dll")
hProc = GetProcAddress(hLib, "HookProc")

А у меня exe и dll лежат в одной папке. И я вижу как программка загужает этот длл (появляеться в загруженных модулях программы)