1,486
社区成员
发帖
与我相关
我的任务
分享
Private Sub Timer1_Timer()
Dim iRst&
If (iFlag > 20) Then
iFlag = iFlag - 50
txtTime.Text = iFlag & " ms"
If (iFlag < 50) Then iFlag = 1
Else
If (iFlag = 1) Then
iRst = GetCursorPos(stcPoint)
mouse_event 8&, stcPoint.X, stcPoint.Y, 0&, 0&
Label2.Caption = "x:" & stcPoint.X & "; y:" & stcPoint.Y
iFlag = 2
Else
Timer1.Enabled = False
DoEvents
mouse_event 16&, stcPoint.X, stcPoint.Y, 0&, 0& '再次触发Label3_Click()
txtTime.Text = strSet
End If
End If
End Sub