VB 模拟按鼠标右键n次如休做?

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:49:49
VB 想写一段代码,运行后,游戏的窗口被激活,并起到不断按下右键的功能,在游戏窗口中要能够执行模拟不断按下右键的功能,直到指定次数如50次后停止.
激活另一个窗口我也会做,模拟鼠标右键按下也有代码,但是模拟鼠标右键按下再弹起却不行了,请高手指教.
高手要测试才行,我说代码,测试了再发过来

'用api函数
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)
'先定义
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = &H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = &H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = &H1 '模拟鼠标指针移动

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在鼠标的当前位置点击右键就写
mouse_event(MOUSEEVENTF_RIGHTDOWN, 10, 10, 0, 0) '按下
mouse_event(MOUSEEVENTF_RIGHTUP, 10, 10, 0, 0) '释放
End Sub

用sleep 200间隔一