Question

vb求一个简短的 鼠标不停点击代码

vb求一个简短的 鼠标不停点击代码 就是一运行鼠标就一直在点击
简短...

Answer 1

你要干什么...

Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

Sub Main()
Do While True
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
DoEvents
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
DoEvents
Loop
End Sub

Answer 2

建一个timer
Private Sub Timer1_Timer()
Command1_Click
End Sub