Проблема с нажатием кнопки за пределами приложения

Question

Используя Spy++, я пытался управлять кнопками формы во внешней программе с помощью моей собственной программы.

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

    Dim hWnd As IntPtr = FindWindow(vbNullString, ListView4.SelectedItems(0).SubItems(3).Text)
    If hWnd.Equals(IntPtr.Zero) Then
        Return
    End If
    Dim hWndButton As IntPtr = _
    FindWindowEx(hWnd, IntPtr.Zero, "Button", "Load Settings")
    If hWndButton.Equals(IntPtr.Zero) Then
        Return
    End If

Однако, когда я запускаю код, ничего не происходит... одна возможность - неправильное имя окна, которое я получаю, но если это не так, мой код правильный?

Answer 1

Ну, как указал Алекс, я фактически не инициировал нажатие кнопки... теперь, когда он указал, что я смог исправить свой код... Вот что я сейчас использую:

Private Declare Auto Function FindWindow Lib "user32.dll" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As IntPtr

Private Declare Auto Function FindWindowEx Lib "user32.dll" ( _
ByVal hwndParent As IntPtr, _
ByVal hwndChildAfter As IntPtr, _
ByVal lpszClass As String, _
ByVal lpszWindow As String _
) As IntPtr

Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
Private Const BM_CLICK = &HF5


    Dim hwndParent As Long = FindWindow(vbNullString, ListView4.SelectedItems(0).SubItems(3).Text)
    Debug.Print("findwindow: " & hwndParent)
    Dim hwndButton As Long = FindWindowEx(hwndParent, IntPtr.Zero, "Button", "Save as")
    Debug.Print("OK: " & hwndButton)
    hwndButton = SendMessage(hwndButton, BM_CLICK, 0, 0)
    Debug.Print("Clicked: " & hwndButton)