secureCRT用vbs写一个60s大循环，在crt.GetTab(3).Screen和crt.GetTab(4).Screen同时以20s周期，再发送1s周期信号

以下是在SecureCRT中使用VBScript编写的一个循环60秒的示例脚本，其中在`crt.GetTab(3).Screen`和`crt.GetTab(4).Screen`同时以20秒的周期发送信号，并在每个周期内以1秒的周期发送消息：

# $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
        Dim innerStartTime, innerCurrentTime, innerElapsedTime

        ' 获取当前时间
        innerStartTime = Timer

        Do While innerElapsedTime < 20
            ' 获取当前时间
            innerCurrentTime = Timer

            ' 计算已经过去的时间
            innerElapsedTime = innerCurrentTime - innerStartTime

            ' 每秒发送消息
            If innerElapsedTime Mod 1 = 0 Then
                ' 在 Tab 3 的屏幕发送消息
                crt.GetTab(3).Screen.Send "Signal 1" & vbCr
                ' 在 Tab 4 的屏幕发送消息
                crt.GetTab(4).Screen.Send "Signal 2" & vbCr
            End If

            ' 等待一秒钟
            crt.Sleep 1000
        Loop
    End If

    ' 等待一秒钟
    crt.Sleep 1000
Loop

crt.GetTab(1).Screen.Send "Loop finished." & vbCr

请注意，以上脚本使用了SecureCRT的`crt.GetTab(index).Screen`来获取指定标签页的屏幕对象，并使用`Send`方法向屏幕发送消息。

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