secureCRT用vbs写一个60s循环,第20s和第40s在窗口1和2分别发送ssm1和ssm3
时间: 2024-04-12 16:31:32 浏览: 9
对不起,我之前给出的示例脚本中使用的是纯VBScript,而SecureCRT使用的是VBScript的子集。在SecureCRT中,您可以使用其内置的对象和方法来实现您的需求。以下是一个在SecureCRT中使用VBScript编写的循环60秒、在第20秒和第40秒分别在窗口1和窗口2发送消息 "ssm1" 和 "ssm3" 的示例脚本:
```vbscript
# $language = "VBScript"
# $interface = "1.0"
Dim startTime, currentTime, elapsedTime
' 获取当前时间
startTime = Timer
Do While elapsedTime < 60
' 获取当前时间
currentTime = Timer
' 计算已经过去的时间
elapsedTime = currentTime - startTime
' 判断所属的循环
If elapsedTime = 20 Then
' 在窗口1发送消息 "ssm1"
crt.Screen.Send "ssm1" & vbCr
ElseIf elapsedTime = 40 Then
' 在窗口2发送消息 "ssm3"
crt.Screen.SendTo 2, "ssm3" & vbCr
End If
' 等待一小段时间,以免循环过于频繁占用系统资源
crt.Sleep 100
Loop
crt.Screen.Send "Loop finished." & vbCr
```
请注意,以上脚本是为SecureCRT编写的,所以它包含了SecureCRT特定的对象和方法。在该示例中,`crt.Screen.Send` 方法用于向当前窗口发送消息,`crt.Screen.SendTo` 方法用于向指定窗口发送消息。
请将以上脚本保存为`.vbs`文件,并在SecureCRT中运行。希望对您有所帮助!如果还有其他问题,请随时提问。