SendMessage BM_CLICK на кнопку приложения

Привет всем, я немного запутался, как следствие этой проблемы BM_CLICK.

Вот мой код:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer

Dim hwndParent As Long = FindWindow(vbNullString, "Video Source")
  Debug.Print("findwindow: " & hwndParent)
Dim hwndButton As Long = FindWindowEx(hwndParent, IntPtr.Zero, "Button", "OK")
  Debug.Print("OK: " & hwndButton)
hwndButton = SendMessage(hwndButton, BM_CLICK, 0, 0)
  Debug.Print("Clicked: " & hwndButton)

Отладочный вывод:

findwindow: 856318
        OK: 1052904
   Clicked: 0

Теперь я понятия не имею, почему он не находит и не нажимает кнопку ОК.

Spy++ для этой кнопки выглядит так:

Любая помощь будет отличной!

Источник

0 ответов

Другие вопросы по тегам