y 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
KeyDown 18, 1
KeyPress 50, 1
KeyUp 18, 1
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\坐标.bmp", 0.9, intX, intY
    Next
If intX > 0 And intY > 0 Then 
MoveTo intX+25,intY+8
    Delay 500
        LeftClick 2
        Delay 350
    KeyPress "9", 1
        Delay 200
    KeyPress "9", 1
    KeyPress "Enter", 1
    KeyPress "1", 1
            Delay 200
    KeyPress "5", 1
            Delay 200
    KeyPress "7", 1
    KeyPress "Enter", 2
End If
Rem aaa
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\洱海地图.bmp", 0.9, intX, intY
        Next
If intX > 0 And intY > 0 Then 
Else
Goto aaa
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去大理.bmp", 0.9, intX, intY
            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+10,intY+1
Delay 500
        LeftDoubleClick 2
End If
Rem dali
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\大理地图.bmp", 0.9, intX, intY
                Next
If intX > 0 And intY > 0 Then 
Else
Goto dali
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去剑阁.bmp", 0.9, intX, intY
                    Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+10,intY+1
Delay 500
        LeftDoubleClick 2
End If
Rem dunhuang
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\剑阁地图.bmp", 0.9, intX, intY
                        Next
If intX > 0 And intY > 0 Then 
Else
Goto dunhuang
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
        KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去敦煌.bmp", 0.9, intX, intY
                            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+10,intY+1
Delay 500