SecureCRT VBScript脚本实现自动化测试

SecureCRT VBScript实现简单自动化测试，SecureCRT 输入命令，前提是终端支持串口命令控制。

脚本内容：（可以自己扩展）

#$language = "VBScript"

#$interface = "1.0"
' AutoResponder.vbs
'
' Description:
'    Auto switch on/off 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Const END_TEST_COUNT = 2000
Sub Main()
    Dim nEpvCount
    Dim nResult
    Set objTab = crt.GetScriptTab
    
    nEpvCount = 0
    nResult = 0
    ' Ensure that we don't "miss" data coming from the remote by setting
    ' our Screen's Synchronous flag to true.
    ' objTab.Screen.Synchronous = true


    Do
        crt.Screen.Send "test cmd" & vbcr
    nEpvCount =