[◆提问帖] 求大神帮忙解答代码问题出在哪里 [复制链接]

代码如下， 问题出在 退出子程序， 不找图 或者找不到图 （子程序退出的代码 基本和开始的代码一样） 能看到鼠标移动


求大神帮忙解答







Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Arr = Split(srect, "|")
Bx = Clng(Arr(0))
By = Clng(Arr(1))
Cx = Clng(Arr(2))
Cy = Clng(Arr(3))
Do
Call 开始()
Call 选择挑战()
Call 点火()
Call 攻击()
Call 退出()
Delay 3000
Loop
Sub 开始()
While i = 0
FindPic Bx, By, Cx, Cy, "Attachment:\laoren.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
i = 1
End If
MoveTo intX+20, intY-5
Delay 100
LeftClick 1
Wend
Delay 500
End Sub
Sub 选择挑战()
MoveTo Bx++358+166, By+261+105
Delay 300
LeftClick 1
Delay 300
End Sub
Sub 点火()
KeyPress "F5", 1
Delay 300
KeyPress "F5", 1
Delay 300
MoveTo Bx+788, By+427
Delay 1000
LeftDoubleClick 1
Delay 200
MoveTo Bx+578, By+266//
Delay 2400
LeftDoubleClick 1
Delay 200
MoveTo Bx+359, By+426
Delay 2400
LeftDoubleClick 1
Delay 200
MoveTo Bx+571, By+586
Delay 2400
LeftDoubleClick 1
Delay 2200
End Sub
Sub 攻击()
KeyDown "F7", 1
Delay 200
KeyUp "F7", 1
Delay 33000
End Sub
Sub 退出()
While i = 0
FindPic Bx, By, Cx, Cy, "Attachment:\laoren.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
i = 1
End If
MoveTo intX+20, intY-5
Delay 100
LeftClick 1
Wend

MoveTo Bx++361+140, By++261+120//133.121
Delay 500
LeftClick 1
Delay 1000
End Sub