Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click() Dim hwnd As Long hwnd = FindWindow(vbNullString, "Test") '获得A程序的句柄 Text1.Text = hwnd '观察是否获得A程序的句柄 PostMessage hwnd, WM_LBUTTONDOWN, 0, (10 And &HFFFF) + (20 And &HFFFF) * &H10000 Sleep 100 PostMessage hwnd, WM_LBUTTONUP, 0, (10 And &HFFFF) + (20 And &HFFFF) * &H10000 End Sub
