Question

用vb模拟鼠标点击

不用mouse_event 请高手说下其它方法 最好给段代码实例 万分感激

Answer 1

用api 可以办到,我经常用这个. 我给你写一个简单的例子你就明白了..

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 Long

Private Const WM_LBUTTONDOWN = &H201

Private Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
PostMessage Command2.hwnd, &H201, 0&, 0&
PostMessage Command2.hwnd, &H202, 0&, 0&
End Sub

Private Sub Command2_Click()
Static i As Long
i = i + 1
Print "command2按钮点了" & i & "次"
End Sub

Answer 2

可以试试用API SendMessage/PostMessage,发送WM_LBUTTONDOWN、WM_LBUTTONUP消息