UC知道vb中的模拟鼠标点击怎么只能执行一次后面怎么没反应了？
来源：百度知道 编辑：UC知道 时间：2024/06/20 06:36:09
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = &H61 Then
SetCursorPos 300, 300
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H62 Then
SetCursorPos 400, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H63 Then
SetCursorPos 450, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H64 Then
SetCursorPos 500, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H65 Then
SetCursorPos 550, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H66 Then
SetCursorPos 600, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End If
End Sub
If KeyCode = &H61 Then
SetCursorPos 300, 300
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H62 Then
SetCursorPos 400, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H63 Then
SetCursorPos 450, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H64 Then
SetCursorPos 500, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H65 Then
SetCursorPos 550, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
ElseIf KeyCode = &H66 Then
SetCursorPos 600, 400
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End If
End Sub
好像不能把按键按下和放开同时发送吧
我以前写的时候是分成两条执行模拟一次单击
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
你试试
先按下，再松开，重复