自动征战+劫掠。 

第一个脚本。试试手艺。希望大家多提意见。谢谢。 

脚本附件：海域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