自动征战+劫掠。
第一个脚本。试试手艺。希望大家多提意见。谢谢。
脚本附件：海域1.bmp, 海域2.bmp, 海域3.bmp, 海域4.bmp, 海域5.bmp, 劫掠开始.bmp, 刷屏.bmp, 征战1.bmp, 征战2.bmp, 征战3.bmp, 征战4.bmp, 征战6.bmp, 征战5.bmp, 劫掠.bmp, 2.bmp
运行环境：分辨率：1024×768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.20.10818
@wddd5672012/3/23
FindPic 0,0,1024,768,"Attachment:\劫掠开始.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Delay 2000 LeftClick 1 Delay 5000 End If For 3 FindPic 0,0,1024,768,"Attachment:\2.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then Delay 2000 MoveTo intX, intY Delay 2000 LeftClick 1 Delay 5000 End If FindPic 0,0,1024,768,"Attachment:\劫掠.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Delay 300 LeftClick 1 Delay 5000 End If Next FindPic 0,0,1024,768,"Attachment:\刷屏.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then Delay 1000 MoveTo intX, intY Delay 1000 LeftClick 1 Delay 3000 End If FindPic 0,0,1024,768,"Attachment:\刷屏.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then Delay 1000 MoveTo intX, intY Delay 1000 LeftClick 1 Delay 3000 End If FindPic 0,0,1024,768,"Attachment:\征战1.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 5000 End If FindPic 0,0,1024,768,"Attachment:\征战2.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 5000 End If FindPic 0,0,1024,768,"Attachment:\征战3.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 1000 KeyPress "9", 1 Delay 5000 End If Rem bj FindPic 0,100,1024,768,"Attachment:\征战4.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Delay 1000 LeftClick 1 Delay 5000 else Goto ba End If MoveTo 450, 340 Delay 2000 LeftClick 1 Delay 1000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 368 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 398 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 450 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 489 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 525 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 565 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If MoveTo 449, 608 Delay 2000 LeftClick 1 Delay 2000 FindPic 0,0,1024,768,"Attachment:\征战6.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 500 End If Goto bj Rem ba FindPic 0,0,1024,768,"Attachment:\刷屏.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then Delay 1000 MoveTo intX, intY Delay 1000 LeftClick 1 Delay 5000 End If For 3 FindPic 0,0,1024,768,"Attachment:\刷屏.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then Delay 1000 MoveTo intX, intY Delay 1000 LeftClick 1 End If Next