如何用VB写个鼠标自动点开始 单击开始

来源：百度知道 编辑：UC知道 时间：2024/05/16 08:38:19

在form里加上一个command和timer控件，然后代码如下：

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

Private Sub Command1_Click()
Timer1.Interval = 2000'每隔2秒，点一次。
Timer1.Enabled = True
End Sub

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

没解决LZ的问题。