Delay 2000
    LeftClick 1
    Delay 2000
    Rem 反复确认掠夺标签是否存在
    VBSCall FindPic(0,0,1440,900,"掠夺标签.bmp",1.0,intX,intY)
    If intX>0 and intY>0
        Goto 反复确认掠夺标签是否存在
    Else 
        MoveTo 724,619
        Delay 100
        MoveTo 725,620
        VBSCall FindPic(0,0,1440,900,"叉叉.bmp",1.0,intX,intY)
        If intX>0 and intY>0
            Delay 2000
            MoveTo intX,intY
            Delay 2000
            LeftClick 1
            Delay 2000
            Goto 程序开始
            // 一次掠夺完成        可以返回再次进行掠夺操作
        Else 
            Goto 返回关闭出征确定标签
        EndIf 
    EndIf 
Return 掠夺
EndScript 
//================================================================================================================