编程论坛 → VB6论坛

蛋疼的编辑错误 loop少了do

li86791177 发布于 2013-02-05 19:57， 524 次点击

只有本站会员才能查看附件，请登录

程序代码：

If s1 = s2 Then
GoTo aa3 '跳转标记3
End If

Do
waittime 1.6
dm_ret = Dm.FindStr(0, 0, 1024, 768, "团", "ffc800-856707", 0.9, intX, intY) 'NPC任务判断颜色
If intX >= 0 And intY >= 0 Then
waittime 0.5
Dm.MoveToEx intX, intY + 15, 36, 98
waittime 0.6
Dm.LeftClick
End If
waittime 1.42
dm_ret = Dm.FindStr(422, 305, 541, 323, "我要回", "c1a763-766947", 0.9, intX, intY) 'NPC界面判断
If intX >= 0 And intY >= 0 Then
waittime 0.3
Dm.MoveToEx intX, intY, 119, 18
waittime 0.6
Dm.LeftClick
waittime 3
dm_ret = Dm.FindStr(898, 5, 959, 22, "军团", "ffffff-d5d5d5", 0.9, intX, intY) '地图判断
If intX >= 0 And intY >= 0 Then
waittime 0.21
Exit Do
End If
waittime 0.22
Loop

我代码 loop 前面有 DO 可是生成执行文件弹出这个编辑错误

请问看的透的大大们指点下这个是我VB程序安装不完成还是我这个源码问题

6 回复

#2

wube2013-02-05 21:37

這樣寫不累嗎？
看得人也很累～
區塊也分一下吧～Tab
不然等你程式寫長～
就死定了～

#3

li867911772013-02-05 22:28

回复 2楼 wube

我也注意到了大哥有时间能方便指点下小弟怎么区坏一下说说你的心得的一些小技巧没有你们写程序时间长一些地方没掌握我自己感觉有时候太长都看到眼花

#4

lowxiong2013-02-05 22:48

If intX >= 0 And intY >= 0 Then
waittime 0.3
Dm.MoveToEx intX, intY, 119, 18
waittime 0.6
Dm.LeftClick
waittime 3
dm_ret = Dm.FindStr(898, 5, 959, 22, "军团", "ffffff-d5d5d5", 0.9, intX, intY) '地图判断

上面一段代码是第二个if块，没有对应的endif，if语句未完成就出现了一个完成do的终结语句（loop），因此会出现loop无do的提示。

#5

yz10252013-02-06 08:12

乱加才完整～

只有本站会员才能查看附件，请登录

#6

li867911772013-02-06 20:20

谢谢大哥明白了谢谢你们指点使我明白了弹出错误不一定配套代码也可能出现镶嵌源码错误也包括在这个里面

#7

li867911772013-02-06 20:23

版主说不要投它可是还是谢谢他的指导同事一楼的大哥没说出来也谢谢他指出一些小问题让我反思二楼的大哥跟版主让我明白嵌套源码错误也算

是do.. loop 错误

1