Question

我使用以下代码点击按钮以显示另一个表单以点击：

Dim hwnd As Integer = FindWindow(vbNullString, "Virtual CDRom Control Panel")
Dim x As Integer = FindWindowEx(hwnd, 0, vbNullString, "Driver Control ...")

SendMessage(x, BM_CLICK, 0&, 0&)
Thread.Sleep(200)
hwnd = FindWindow(vbNullString, "Virtual CD-ROM Driver Control")
Debug.Print(hwnd)

问题是当它到达

时

SendMessage（x，BM_CLICK，0＆amp;，0＆amp;）

单击该按钮，它会停止那里的代码，直到我退出弹出的框。我希望能够继续而不必退出框，因为下一行

hwnd = FindWindow（vbNullString，“虚拟CD-ROM驱动程序控制”）

找到弹出窗口，然后点击该框内的按钮。

任何帮助都会很棒！：O）

大卫

解决

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As IntPtr, ByVal hWndChildAfter As Integer, ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As IntPtr
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As IntPtr

Dim hwnd As IntPtr = FindWindow(vbNullString, "Virtual CDRom Control Panel")
Dim x As IntPtr = FindWindowEx(hwnd, 0, vbNullString, "Driver Control ...")

PostMessage(x, BM_CLICK, 0&, 0&)
Thread.Sleep(200)
hwnd = FindWindow(vbNullString, "Virtual CD-ROM Driver Control")
Debug.Print(hwnd)

Answer 1

尝试将SendMessage更改为PostMessage。

另请注意，所有HWND必须声明为IntPtr wParam和lParam的{{1}}和SendMessage也是PostMessage。这将使您的代码与x64环境兼容。

VB.net SendMessage等待问题

1 个答案: