按钮问题推动应用程序外部

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

好吧，正如Alex指出的那样，我实际上并没有按下按钮..现在他指出我可以修复我的代码..这就是我现在使用的内容：

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)