返回列表 发帖
key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-11-3 09:17 | 只看该作者

[问题求助] 求助VBS在SecureCRT执行的循环嵌套语句循环失效问题

本人自学，所以遇到问题可能很简单，高手请请喷。
事情是这样的，因为设备启动时出现不定的多次启动，因此我希望前面的语句可以循环执行到满足条件，代码如下：
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 SubCOPY
实际运行的时候do loop不起作用，如果只启动一次，那么脚本会顺利执行结束，如果启动两次的话，还是会卡在“Hit ESC to stop autoboot: 60 ”这一句，也没有大神看出问题在哪？
收藏 分享

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
2楼
发表于 2022-11-3 09:19 | 只看该作者
我只想知道代码也没有问题，如果没有的话，我就去找别的方面原因。

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 2022-11-3 15:58 | 只看该作者
如果只启动一次，那么脚本会顺利执行结束，如果启动两次的话

这里，启动两次是什么意思？
是硬件断电重启，全新开机吗？
这个支持什么输出指令吗，比如msgbox啊，或输出文件到磁盘啊，可以加几句看看到底执行到哪一步了，还是一句都没执行

QQ 20147578

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
4楼
发表于 2022-11-3 18:14 | 只看该作者
本帖最后由 key9527 于 2022-11-3 19:04 编辑

回复 3# czjt1234


    启动两次就是，我上一次电，它会自动重启一次，也就是会出现两次要输入指令的情况，关键还是随机的，所以我在输入指令的地方加了一个DO循环。
检查软件，它会停留在DO循环下面那一句，也就是我贴的代码的第4行，检测到了条件，但是也不继续执行。
奇怪的是，如果只启动一次，它是可以正常执行循环里的内容的，并且遇到until的条件就跳出循环，所以问题就是DO这个循环不知道什么原因没有起到循环的作用。
我想了想，莫非是软启动不会触发FOR这个循环？因为FOR循环要执行到NEXT后才能下一个循环，而软启动重新上电后FOR循环其实还停留上一次执行那里，也就是DO循环那里？
但这样也不应该啊，DO循环重启动后又不再起作用？这样的话，上电必须换什么循环才能像FOR循环一样接着上次跑呢？

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
5楼
发表于 2022-11-3 18:28 | 只看该作者
这个支持什么输出指令吗，比如msgbox啊，或输出文件到磁盘啊，可以加几句看看到底执行到哪一步了，还是一句都没执行

所以我要问这个啊，看看第二次是不是就没运行这个vbs

QQ 20147578

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
6楼
发表于 2022-11-3 19:03 | 只看该作者
回复 5# czjt1234


    For语句重新上电是会继续执行的，没有这个BUG的时候我用这个脚本跑了很多次，是可以顺利执行的。不过FOR语句必须完全执行到NEXT那里才能循环到第一句，所以要是中途哪里停了，脚本也就会一直卡在那里了。

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
7楼
发表于 2022-11-3 19:08 | 只看该作者
可能我上面没说清楚，我说的是，我用CRT软件检查了，卡主的时候就是卡在了DO下面的那一句那里，说明重新上电后DO循环就不执行了。但我记得DO循环会一直执行到UNTIL条件出现，难道重新上电就不行了吗？

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
8楼
发表于 2022-11-3 19:41 | 只看该作者
那你在Do下面加一句别的，看看到底是Do不执行了，还是那句
crt.Screen.WaitForString
在重新上电后就不认当前显示为crt.Screen了

crt.Screen2  ？

QQ 20147578

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
9楼
发表于 2022-11-3 19:46 | 只看该作者
那你在Do下面加一句别的，看看到底是Do不执行了，还是那句
crt.Screen.WaitForString
在重新上电后就不认 ...
czjt1234 发表于 2022-11-3 19:41



    好吧，我试试

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
10楼
发表于 2022-11-3 20:01 | 只看该作者
能麻烦你在SecureCRT中测试下吗
vbNewLine = Chr(10)
看看等式是否成立

QQ 20147578

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
11楼
发表于 2022-11-4 09:13 | 只看该作者
回复 10# czjt1234


    没怎么看明白，这个不是赋值吗？而且CRT需要进入一个操作系统里面才能使用命令，我这个系统应该不认识这个命令。
不过我今天会帮你试试，看看是什么结果。

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
12楼
发表于 2022-11-4 10:45 | 只看该作者
比如
Do
...
Loop until vbNewLine = Chr(10)
看看是否一直循环

QQ 20147578

TOP

key9527

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2022-11-3 
13楼
发表于 2022-11-4 11:20 | 只看该作者
比如
Do
...
Loop until vbNewLine = Chr(10)
看看是否一直循环
czjt1234 发表于 2022-11-4 10:45



    还是会停留在DO下面那一句……

TOP

返回列表