secureCRT用vbs写一个60s循环，第0秒，第20s和第40s在窗口1和2同时以1s周期发送ssm1，ssm2和ssm3

对不起，我之前给出的示例脚本有一些错误。在SecureCRT中，要在窗口1和窗口2同时发送消息，可以使用`crt.Session`对象的`SendString`方法来实现。以下是一个在SecureCRT中使用VBScript编写的循环60秒、在第0秒、第20秒和第40秒分别在窗口1和窗口2同时以1秒周期发送消息 "ssm1"、"ssm2" 和 "ssm3" 的示例脚本：

# $language = "VBScript"
# $interface = "1.0"

Dim startTime, currentTime, elapsedTime

' 获取当前时间
startTime = Timer

Do While elapsedTime < 60
    ' 获取当前时间
    currentTime = Timer

    ' 计算已经过去的时间
    elapsedTime = currentTime - startTime

    ' 判断所属的循环
    If elapsedTime Mod 20 = 0 Then
        ' 在窗口1和窗口2同时发送消息 "ssm1"、"ssm2" 和 "ssm3"
        crt.Session.SendString "ssm1" & vbCr
        crt.Session.SendTo 2, "ssm2" & vbCr
        crt.Session.SendTo 2, "ssm3" & vbCr
    End If

    ' 等待一秒钟
    crt.Sleep 1000
Loop

crt.Session.SendString "Loop finished." & vbCr

请注意，以上脚本使用了SecureCRT的`crt.Session`对象的`SendString`方法来向窗口发送消息。使用`Mod`运算符来判断是否为第0秒、第20秒和第40秒。

请将以上脚本保存为`.vbs`文件，并在SecureCRT中运行。希望对您有所帮助！如果还有其他问题，请随时提问。