本人自学,所以遇到问题可能很简单,高手请请喷。
事情是这样的,因为设备启动时出现不定的多次启动,因此我希望前面的语句可以循环执行到满足条件,代码如下:- Sub Main
- for i = 1 to 500
- Do
- crt.Screen.WaitForString ("Hit ESC to stop autoboot: 60 ") // 设备启动时会出现选择对话框
- crt.Screen.Send chr(27) //chr27是按ESC的意思
- crt.Screen.WaitForString( "Option?" )
- crt.Screen.Send "1" & chr(13)
- loop until crt.Screen.WaitForString ("sw0 login: ") //关键句就在这里,每次启动都要按ESC然后选择1,设备才会继续往下走到 sw0 login:那里,所以我做了一个条件循环,目的是只要没达到条件就一直循环到DO下面的语句执行
- crt.Screen.Send "root" & chr(13) //达到条件后输入账户名
- next
- End Sub
复制代码 实际运行的时候do loop不起作用,如果只启动一次,那么脚本会顺利执行结束,如果启动两次的话,还是会卡在“Hit ESC to stop autoboot: 60 ”这一句,也没有大神看出问题在哪? |