vb下如何实现鼠标连发?

Question

要代码,好的可以加分
2楼想要专业语言是不是,利用全局HOOK捕获鼠标按下事件,然后模拟点击鼠标键100次,S b不会就不要 bi,回乡下耕田去

Answer 1

Option Explicit On
Public Class Form1
Dim x As Long, y As Long
Dim yn As Double
Dim i As Integer

Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)
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 Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'x = System.Windows.Forms.Cursor.Position.X
'y = System.Windows.Forms.Cursor.Position.Y
i = i + 1
If i > 100 Then Timer1.Enabled = False
x = Form1.MousePosition.X
y = Form1.MousePosition.Y
TextBox1.Text = x
TextBox2.Text = y
SetCursorPos(x, y)
If yn = True Then
Form1.mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
'mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0) '鼠标左键按下
yn = False
Else : yn = True
Form1.mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0) '鼠标左键抬起
End If
End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Timer1.Enabled = True
End Sub

End Class
......................
鼠标按下后，连击100次。

Answer 2

是按键精灵吗
如果是
声名：
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
用法：
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
这个就是按键

Answer 3

我在想什么叫鼠标连发.学了这么长时间,还真不知什么叫连发.难道是连续多次发送某一鼠标事件?