关于鼠标和键盘调用问题

 

VB中写出以鼠标为对象   程序运行鼠标3秒单击左键一次代码

 

'VB中鼠标的模拟点击
'建立新工程 加TIMER控件设置其参数INTERVAL=3000 即每3秒点击一下鼠标
Private Declare Sub mouse_event Lib "user32 " _
(ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long _
)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
'每隔3秒中模拟一次鼠标事件
Private Sub Timer1_Timer()
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 1, 1, 0, 0
End Sub

'回答完毕谢谢！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息