do
picret = lw.FindPic(0, 0, 1080, 1920, "造化丹.bmp|造化丹选中.bmp", "202020", 1, 0, 2000, 1, 0, 0)
TracePrint prict
TracePrint lw.x
TracePrint lw.y
If lw.x >= 0 and lw.y >= 0 Then
picret = lw.FindPic(0, 0, 1080, 1920, "炼制.bmp", "202020", 0.7, 0, 2000, 0, 0, 0)
TracePrint prict
TracePrint lw.x
TracePrint lw.y
If lw.x >= 0 and lw.y >= 0 Then
lw.LeftClick
picret = lw.FindPic(0, 0, 1080, 1920, "确认.bmp", "202020", 0.7, 0, 2000, 1, 0, 0)
If lw.x < 0 and lw.y < 0 Then
picret = lw.FindPic(0, 0, 1080, 1920, "云丹.bmp|云丹选中.bmp", "202020", 1, 0, 2000, 1, 0, 0)
TracePrint prict
TracePrint lw.x
TracePrint lw.y
If lw.x >= 0 and lw.y >= 0 Then
Delay 500
picret = lw.FindPic(0, 0, 1080, 1920, "炼制.bmp", "202020", 1, 0, 2000, 1, 0, 0)
TracePrint prict
TracePrint lw.x
TracePrint lw.y
If lw.x >= 0 and lw.y >= 0 Then
picret = lw.FindPic(0, 0, 1080, 1920, "确认.bmp", "202020", 0.7, 0, 2000, 1, 0, 0)
else If lw.x < 0 and lw.y < 0 Then
Exit Do
picret = lw.FindPic(0, 0, 1080, 1920, "滑动.bmp", "202020", 0.7, 0, 2000, 0, 0, 0)//滑动
TracePrint prict
TracePrint lw.x
TracePrint lw.y
If lw.x >= 0 and lw.y >= 0 Then
lw.MoveTo lw.x(), lw.y()
lw.LeftDown
lw.MoveTo 504,563
End If
Loop
我在 exit do后面加了 但是走不到那一步就自动结束了