SecureCRT infinite loop script

The product is found to switch repeatedly during the test ip Address , There is a small probability that the picture will stop or the image will turn gray , structure securecrt ip The script of automatic switching button is as follows , However, the button script cannot test indefinitely .

/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
 

Build an infinite loop vbs The script is as follows , You can record the operation through the script first , Get the of related commands vbs Script , Then add while sentence , Note that the text should be saved as ansi Format , otherwise utf-8 The following statement may identify exceptions . Save the following text directly securecrt, Script , perform , that will do .

#$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