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