1

我正在尝试在 VBScript 中为 SecureCRT 编写一个脚本，该脚本发送击键来自动化我的一些更重复的任务。通常，我所要做的就是按几个键，但我正在尝试让脚本为我按下它们。

问题是，无论我将屏幕设置为使用 crt.Sleep 等待多长时间，它似乎都只是等待，然后以光速按下所有键。

本质上，我的代码如下所示：

crt.Screen.SendKeys "{TAB}"
crt.Sleep 10
crt.Screen.SendKeys "{TAB}"
crt.Sleep 10
crt.Screen.SendKeys "f"
crt.Sleep 10
crt.Screen.SendKeys "p"
crt.Sleep 10
crt.Screen.SendKeys "p"
crt.Sleep 10
crt.Screen.SendKeys "r"
crt.Sleep 10
crt.Screen.SendKeys "{F10}"
crt.Sleep 10
crt.Screen.SendKeys "{ENTER}"
crt.Sleep 250
crt.Screen.SendKeys "v"
crt.Sleep 10
crt.Screen.SendKeys "{F10}"
crt.Sleep 10
crt.Screen.SendKeys "{ENTER}"
crt.Sleep 250

（这很糟糕，我知道——我最初编写了一个函数来消除所有重复，但我失去了一些进步）

4

1 回答 1

0

我经常使用以下函数来添加暂停时间。我不确定“crt.Sleep 10”是如何工作的，但这可能对你更有效。

Function Pause(PauseTime)       
Dim Start = Timer
    Do While Timer < Start + PauseTime
        'Pause
    Loop
End Function
于 2021-04-11T17:41:01.017 回答