End If
    Call 关闭地图
End Sub
Sub 坐标四
    Rem 坐标四
    Call 打开地图
    MoveTo 179, 439//坐标4：31，57
    LeftDoubleClick 1
    Delay 500
    dm_ret = dm.FindStr(843,23,994,61, "坐标四", "3db2ff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call 关闭地图
        Delay 500
        KeyPress "F1", 1
        Delay 1000
    Else
        Goto 坐标四
    End If
    Call 关闭地图
End Sub
Sub 坐标五
    Rem 坐标五
    Call 打开地图
    MoveTo 164, 438//坐标5：28,52
    LeftDoubleClick 1
    Delay 500
    dm_ret = dm.FindStr(843,23,994,61, "坐标五", "3db2ff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call 关闭地图
        Delay 500
        KeyPress "F1", 1
        Delay 1000
    Else
        Goto 坐标五
    End If
    Call 关闭地图
End Sub
dm_ret = dm.FindStr(0, 0, 1440, 900, "字", "ffffff-000000", 1, x, y)
If x > 0 and y > 0 Then 
End If