goto 重新寻路
        End If
    Wend
End Sub
Sub 移动到
    dm_ret = dm.FindStr(XR - 350, YL, XR, YR, "坐标", "fff263-000000", 1.0, fcX, fcY)
    If fcx>0 and fcy>0 then
        moveto FCx+40,FCy+5
        Delay 20
        LeftDoubleClick 4
        delay 200
        SayString left(yddzb,3)
        delay 100
        MoveTo FCx + 70, FCy + 5
        Delay 20
        LeftDoubleClick 4
        delay 200
        SayString right(yddzb,3)
        Delay 100
        MoveTo FCx + 130, FCy + 5
        LeftDoubleClick 4
        Delay 50
        KeyPress "Tab",1
        Delay 50
        MoveTo xl + 45, yl + 45
        Delay 1000
        goto 防卡死
    End If
End Sub