vb 如何实现鼠标键连发

Question

即长按鼠标键，则模拟多次鼠标点击
要代码 追加分 急用啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊
鼠标左右键都要

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次。
..............................................................
............黑龙江省巴彦县兴隆镇中心校 张志晨...............
.............以诚待友..............守信为人...............