Rem 开始 Delay 500 FindPic 273,241,1154,821,"Attachment:\ci.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+5, intY+6 Delay 50 LeftClick 1 Delay 100 End If Call 工作() Call 抓捕() Call 找银帽子() Call XX() Call 交战() Delay 1000 Sub 抓捕() // 找抓捕图标 Delay 200 FindPic 640,250,1280,960,"Attachment:\1.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+10, intY+15 Delay 100 LeftClick 1 Delay 100 End If End Sub Sub 找银帽子() FindPic 300,300,1279,959,"Attachment:\YM.bmp",0.8,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY GetCursorPos x, y Delay 50 FindPic x-5,y,x+100,y+170,"Attachment:\ZN1.bmp",0.8,intX,intY If intX> 0 And intY> 0 Then MoveTo X+40,Y+40 Delay 300 LeftClick 1 End If FindPic x-5,y,x+100,y+170,"Attachment:\ZQ1.bmp",0.8,intX,intY If intX> 0 And intY> 0 Then MoveTo X+40,Y+40 Delay 300 LeftClick 1 End If End If // 经验卷 // FindPic 300,300,1279,959,"Attachment:\YM.bmp",0.8,intX,intY // If intX > 0 And intY > 0 Then // MoveTo intX+35,intY+40 // Delay 200 // LeftClick 1 // End If Delay 1000 End Sub Sub XX() FindPic 200,100,1280,930,"Attachment:\XX.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+5, intY+5 Delay 100 LeftClick 1 End If Delay 1000 End Sub Sub 交战() FindPic 560,775,900,885,"Attachment:\ck.bmp",0.8,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+10, intY+5 LeftClick 1 Delay 500 End If Delay 200 FindPic 500, 530, 875, 625, "Attachment:\guan.bmp", 0.8, intX, intY If intX > 0 And intY > 0 Then MoveTo intX+10, intY+5 LeftClick 1 End If Delay 500 End Sub Sub 工作() // 找开工图标 FindPic 300,300,1280,959,"Attachment:\2.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+13,intY+15 Delay 50 LeftClick 1 End If Delay 1000 // 找女娲石 FindPic 300,300,1280,959,"Attachment:\AN0.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY GetCursorPos x, y Delay 50 FindPic x-80,y,x+100,y+80,"Attachment:\kg.bmp",0.9,x,y If x >= 0 And y > 0 Then MoveTo x+8,y+8 End If