求助VB 中想实现 按住滚轮自动点击鼠标左右键，松开滚轮就停止

Question

求大神指点下。
打开程序窗口后 按住滚轮自动点击鼠标左右键，松开滚轮就停止~

Answer 1

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 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 4 Then
    Timer1.Enabled = True
End If
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 4 Then
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '最好加个抬起鼠标，否则有可能一直卡着鼠标不抬起来
    Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

大概是这个意思吧，鼠标中键是 button=4 ，这个是必须窗体在焦点才可以，如果想做后台的还是比较麻烦，用热键OCX或者是全局钩子，探测鼠标事件。

Answer 2

自动点击软件不好用，实用性不强，本店有做自动点击鼠标，也可以代改装，点击速度可以调，左右键都可以做，想开左键就左键，想开右键就开右键，有兴趣可以加我“望望号”。“望望号”就是我的百度名。

Answer 3

非要VB实现吗 用案件精灵 插入几个指令就能搞定 超级简单 下个案件精灵 打开一看就懂追问

按键精灵很好实现，但是我想用VB做出来~呵呵