循环单击鼠标左键直到达到特定时间

Question

我正在尝试在一个循环中运行无限左键鼠​​标单击，当时间达到特定值（即特定小时）时，该循环应该被中断。 左击应始终在同一单元格中进行，间隔为5秒。 我正在使用Windows 10和Excel 2016。

我试图编译一些代码，但是计时器功能似乎无法正常工作，并且在同一单元格中没有发生鼠标单击。 任何建议，将不胜感激。

Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Public Declare PtrSafe 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
Public Const MOUSEEVENTF_LEFTUP = &H4
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Timer()
Dim t As Date, tStop As Date

t = Now
tStop = t + TimeValue("19:43:00") 'Adjust the TimeValue as needed "hh:mm:ss"


Do Until t = tStop
DoEvents

  SetCursorPos 634, 371 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  Sleep 5000
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


t = Now
Loop


MsgBox "t = " & t & vbCrLf & "tStop = " & tStop


End Sub

Answer 1

这种情况为真将是罕见的事件：

Do Until t = tStop

特别是让您睡5秒钟：

Sleep 5000

而是检查其是否等于或大于：

Do Until t >= tStop

提示：该代码很难阅读，使用DateDiff函数不言自明，例如：

Do Until secondCount >= 0
   secondCount = DateDiff("ss", dateToEnd, Now)