secureCRT无限循环脚本

产品在测试过程中发现反复切换ip地址，会有小概率画面卡停或者图像变灰，构建securecrt ip自动切换按钮脚本如下，但是该按钮脚本无法无限循环测试。

/app/spi_gpio_decoder write 0x28 0x01000000\r
/app/spi_gpio_decoder write 0x2c 0xc0a80115\r
/app/spi_gpio_decoder write 0x2a 0xc0a8010a\r
/app/spi_gpio_decoder write 0x28 0x01000800\r
usleep 300000 \r
/app/spi_gpio_decoder write 0x28 0x01000000\r
/app/spi_gpio_decoder write 0x2c 0xc0a80116\r
/app/spi_gpio_decoder write 0x2a 0xc0a8010b\r
/app/spi_gpio_decoder write 0x28 0x01000800\r
usleep 300000 \r
 

构建无限循环的vbs脚本如下，可先通过脚本录制操作，获取相关命令的vbs脚本，再加入while语句，注意文本要保存为ansi格式，否则utf-8下语句可能识别异常。保存下面文本直接securecrt，脚本，执行，即可。

 

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

Sub main
 While 1
 crt.Screen.Send "/app/spi_gpio_decoder write 0x28 0x01000000" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x2c 0xc0a80115" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x2a 0xc0a8010a" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x28 0x01000800" & chr(13)
 crt.Sleep(300) & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x28 0x01000000" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x2c 0xc0a80116" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x2a 0xc0a8010b" & chr(13)
 crt.Screen.Send "/app/spi_gpio_decoder write 0x28 0x01000800" & chr(13)
 crt.Sleep(300) & chr(13)
 WEnd
End Sub