这是一个模拟鼠标点击的小程序,仿照这个来做'上面的是声明部分.只有声明了,才可以使用.. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_LBUTTONDOWN = &H201Private Const WM_LBUTTONUP = &H202Private Sub Command1_Click() PostMessage Command2.hwnd, WM_LBUTTONDOWN, 0&, 0& PostMessage Command2.hwnd, WM_LBUTTONUP, 0&, 0&End SubPrivate Sub Command2_Click() msgbox "ok" End Sub
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_LBUTTONDOWN = &H201Private Const WM_LBUTTONUP = &H202Private Sub Command1_Click()
PostMessage Command2.hwnd, WM_LBUTTONDOWN, 0&, 0&
PostMessage Command2.hwnd, WM_LBUTTONUP, 0&, 0&End SubPrivate Sub Command2_Click()
msgbox "ok"
End Sub