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程序安装不完成还是 我这个 源码问题

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

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

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的提示。

乱加才完整～

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

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