按键精灵征战+劫掠脚本

自动征战+劫掠。 

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

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

运行环境：分辨率：1024x768 色深：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