4

次のコードを使用して、クリックする別のフォームを表示するためのボタンをクリックしています。

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＆、0＆）

ボタンをクリックすると、ポップアップするボックスから出るまでコードが停止します。次の行からボックスを出なくても続行できるようにしたい

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)
4

1 に答える 1

6

に変更SendMessageしてみてくださいPostMessage。

HWNDまた、すべての s は として宣言する必要があることに注意してくださいIntPtr。
またwParam、およびlParamforSendMessageおよびPostMessageはIntPtrs です。
これにより、x64 環境と互換性のあるコードが作成されます。

于 2011-03-02T14:30:55.747 に答える