[vb]按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下
朋友你好我想用VB做一个这样的程序启动这个程序后,这个程序就有如下功能按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下这个如何能够实现呢我是...
朋友你好
我想用VB做一个这样的程序
启动这个程序后,这个程序就有如下功能
按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下
这个如何能够实现呢
我是初学者,也就是菜鸟
这样的问题对我来说无疑是最难的 展开
我想用VB做一个这样的程序
启动这个程序后,这个程序就有如下功能
按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下
这个如何能够实现呢
我是初学者,也就是菜鸟
这样的问题对我来说无疑是最难的 展开
1个回答
2013-09-07
展开全部
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button upPrivate Sub Form_Click()
MsgBox ""
End SubPrivate Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim a As Long
a = 0
If GetAsyncKeyState(vbKeyShift) Then
MsgBox "茄配请把鼠标移到你如纳蠢想连点10下的地方按ENTER"
Do
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0: mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
a = a + 1
If a > 10 Then Exit Do
Loop
End IfEnd Sub 一渣陪样满足你的要求
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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button upPrivate Sub Form_Click()
MsgBox ""
End SubPrivate Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim a As Long
a = 0
If GetAsyncKeyState(vbKeyShift) Then
MsgBox "茄配请把鼠标移到你如纳蠢想连点10下的地方按ENTER"
Do
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0: mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
a = a + 1
If a > 10 Then Exit Do
Loop
End IfEnd Sub 一渣陪样满足你的要求
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询