FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY While intX = - 1 and intY = - 1 MoveTo 784, 16 LeftClick 1 Delay 500 FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY Wend //KeyPress "Down", 10 MoveTo 273, 307 RightClick 1 MoveTo 100, 0 FindColor 0,0,800,600,"FDCA09",X2,Y2 While X2 <> 271 and Y2 <> 302 //如果颜色不等于就说明没有移动到指定位置 //X3 = X2 //Y3 = Y2 Delay 2000 X3 = X2 Y3 = Y2 If X3 = - 1 and Y3 = - 1 Then Delay 100 KeyPress "Esc", 2 Delay 100 Call 点击确定() Delay 100 Goto C End If Delay 500 FindColor 0,0,800,600,"FDCA09",X2,Y2 If X3 = X2 and Y3 = Y2 Then 停止次数 = 停止次数 + 1 Else 停止次数 = 0 X3 = X2 Y3 = Y2 End If If 停止次数 >= 4 Then Delay 100 KeyPress "Esc", 2 Delay 100 Call 点击确定() Delay 100 Goto C End If If Y2 = 181 Then Y2 = 180 End If MoveTo 273, 303 RightClick 1 MoveTo 200, 0 Wend FindPic 0, 0,800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY While intX > - 1 and intY > - 1 MoveTo 786, 14 LeftClick 5 Delay 200 FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY Wend X2=-1 While X2 = - 1 KeyPress "Esc", 2 KeyPress "Left", 8 //如果无法开启分解向左走。目测可以一直走到雪域... // FindPic 0, 0, 640, 480, "Attachment:\分解店.bmp", 0.9, intX, intY MoveTo 350, 570 Delay 200 LeftClick 1 Delay 500 MoveTo 393, 487 LeftClick 1 Delay 500 /* MoveTo 259, 188 LeftClick 1*/ MoveTo 0,0 KeyPress "9", 4 Call 点击确定() //架设这一步比较烦。毕竟你的分解机可能和人家的重叠,所以要判断分解机是否架设成功很蛋疼 //我决定用随机数的方式来写。 X1 = 150 Y1 = 380 //生成一个随机的坐标,用来架设分解机 MoveTo X1, Y1 LeftClick 2 Delay 1000 /*MoveTo 430,240 LeftClick 1 MoveTo 390,240 LeftClick 1 MoveTo 350,240 LeftClick 1*/ MoveTo 300,240 LeftClick 1 Delay 100 MoveTo 260,240 LeftClick 1 Delay 100 MoveTo 230,240 LeftClick 1 Delay 100 MoveTo 200,240