问如何在SecureCRT中等待屏幕跟上我的VBScript？
EN

Stack Overflow用户

提问于 2021-04-09 16:10:00

回答 1查看 94关注 0票数 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

(这很糟糕，我知道-我原本有一个函数来消除所有的重复，但我失去了一些进展)

vbscript

secure-crt

回答 1

Stack Overflow用户

发布于 2021-04-12 01:41:01

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

Function Pause(PauseTime)       
Dim Start = Timer
    Do While Timer < Start + PauseTime
        'Pause
    Loop
End Function

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/67017379

复制

相似问题

问如何在SecureCRT中等待屏幕跟上我的VBScript？
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在SecureCRT中等待屏幕跟上我的VBScript？EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在SecureCRT中等待屏幕跟上我的VBScript？
EN