显示计时器以及“暂停/恢复/停止”按钮

Question

我有一个小脚本，基本上每 4 分钟为我按一次“F2”，持续 8 小时用于活动应用程序。

因为我的 VB 技能非常有限，所以它很有效，而且非常基础。

我现在想到了一个新项目，但不知道是否可行或如何解决。

我基本上想要一个显示计时器的小窗口以及一个暂停、恢复和停止按钮。如果我可以像在另一个应用程序中一样拥有这些按钮，那将是一个巨大的优势，我不想按下 F2 按钮。

这是我所拥有的：

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

dim ti
ti=timer

Do

WshShell.SendKeys "{F2}"

For AA = 1 To 9

  IF AA = 8 Then BB = "in  30 seconds"
  IF AA = 9 Then BB = "now !"

WScript.Sleep 30000

Dim oShell
Set oShell= CreateObject("Wscript.Shell")
IF AA = 8 OR AA = 9 Then oShell.Popup " Refresh ... " & BB & " ",2,"Remind"

Next 

Loop while (timer-ti)<8*60*60

MsgBox "VB End: " & Time()

谢谢

Answer 1

好的，只是一个高级别的回答，因为时间不早了，我要去睡觉了。

在您的表单上，放置一个计时器控件。将其设置为 1000 间隔（1 秒）。
还可以放置开始和暂停按钮。
这是运行它的代码。

Dim IsRunning As Boolean

Private Sub cmdPause_Click()
    IsRunning = False
End Sub

Private Sub cmdStart_Click()
    IsRunning = True
End Sub

Private Sub Timer1_Timer()
    Static LastTime As Date
    If IsRunning Then
        If DateDiff("n", lastdate, Now()) >= 4 Then
            'sendkeys
            LastTime = Now()
        End If
    End If
End Sub

IsRunning 变量位于任何过程之外，称为共享变量。此表单中的任何程序都可以看到它。开始和暂停按钮将其值变为真或假。

定时器事件将每秒运行一次。在这里，我们正在检查 IsRunning 是否为真，以及 4 分钟是否已过期。如果是这样，那么您可以运行您的发送密钥。