secureCRT用vbs写一个60s循环,第0秒,第20s和第40s在屏幕3和4分别以1s周期发送ssm1,ssm2和ssm3
时间: 2024-04-12 12:31:37 浏览: 35
以下是一个在SecureCRT中使用VBScript编写的循环60秒、在第0秒、第20秒和第40秒分别在屏幕3和屏幕4以1秒周期发送消息 "ssm1"、"ssm2" 和 "ssm3" 的示例脚本:
```vbscript
# $language = "VBScript"
# $interface = "1.0"
Dim startTime, currentTime, elapsedTime
' 获取当前时间
startTime = Timer
Do While elapsedTime < 60
' 获取当前时间
currentTime = Timer
' 计算已经过去的时间
elapsedTime = currentTime - startTime
' 判断所属的循环
If elapsedTime = 0 Then
' 在屏幕3发送消息 "ssm1"
crt.Screen.SendTo 3, "ssm1" & vbCr
ElseIf elapsedTime = 20 Then
' 在屏幕3发送消息 "ssm2"
crt.Screen.SendTo 3, "ssm2" & vbCr
ElseIf elapsedTime = 40 Then
' 在屏幕4发送消息 "ssm3"
crt.Screen.SendTo 4, "ssm3" & vbCr
End If
' 等待一小段时间,以免循环过于频繁占用系统资源
crt.Sleep 100
Loop
crt.Screen.Send "Loop finished." & vbCr
```
请将以上脚本保存为`.vbs`文件,并在SecureCRT中运行。在该示例中,使用`crt.Screen.SendTo` 方法将消息发送到指定的屏幕窗口。
请注意,SecureCRT使用的是VBScript的子集,因此需要使用SecureCRT提供的对象和方法来实现操作。希望对您有所帮助!如果还有其他问题,请随时提问。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)