两段secureCRT VBS脚本

#$language = "VBScript"
#$interface = "1.0"
' +++++++++++++++++脚本使用说明++++++++++++++++++++++++++++ '
' + 1、该脚本应用于A8B02装备版本的HASA测试                + '
' + 2、运行该脚本前必须将装备内核镜像放入tftp本地目录下   + '
' + 3、重新运行该脚本时必须重启设备                       + '
' + 4、槽位1: VGA输入板(辅助测试板)                       + '
' + 5、槽位2: DVI输出板(辅助测试板)                       + '
' + 6、槽位5: DVI输入板(待测试板)                         + '
' + 7、槽位6: DVI输入板(待测试板)                         + '
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '
Option Explicit ' 声明该文件中所有变量必须先定义后使用


Dim MainBdIp ' 主控板IP
Dim TestDev ' 待测试设备编号(1或者2)
Private Const HasaVbsName = "MPPV8R1B01_hasa.vbs" ' hasa测试脚本文件名
Private Const DestIp = " 192.168.0.50 " ' 裸码流目的IP
Private Const GateWayIp = " 192.168.0.1 " ' 网关IP
Private Const KernelName = "equ.bin" ' hasa测试内核文件名


Sub CrtSleep(Time)
Crt.Sleep Time
End Sub


Function RestartGetTestDev()
Dim DevIndex


RestartGetTestDev = True
Do
DevIndex = InputBox("您想测试哪台设备?(1或者2)")
If IsEmpty(DevIndex) Then
RestartGetTestDev = False
Exit Do
ElseIf DevIndex = "1" Then
MainBdIp = " 192.168.0.100 "
Exit Do
ElseIf DevIndex = "2" Then
MainBdIp = " 192.168.0.130 "
Exit Do
Else
MsgBox "输入的设备序号有误，请输入1或者2，1表示第一台设备，2表示第二台设备 "
End If
Loop


If RestartGetTestDev = True Then
MsgBox "请确保文件" & KernelName & "在tftp目录下，然后手动重启第(" & DevIndex & ")台设备"
TestDev = DevIndex
End If


End Function


Sub LoadEquBin()
Crt.Screen.WaitForString "EQUIPMENT_TEST_START"
Crt.Screen.SendKeys("^{b}")
Crt.Screen.WaitForString "UBOOT #"
Crt.Screen.Send "setenv gatewayip" & GateWayIp
Crt.Screen.SendKeys("{ENTER}")
Crt.Screen.Send "setenv ipaddr" & MainBdIp
Crt.Screen.SendKeys("{ENTER}")
C