VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱2.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱3.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱4.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱5.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱6.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
        EndFor 
    EndWhile 
Return 
Sub 补血补蓝
    ///////////////////////////////////////////////////////////////////人物血蓝
    While 1
        Delay sj
        IfColor 221,57,808de,1
            KeyPressS 113,1
            //按键F2
            Delay buxue
        EndIf 
        Delay sj
        IfColor 139,74,a65a12,1
            KeyPressS 112,1
            //按键F1
            Delay sj
            KeyPressS 114,1
            //按键F3
            Delay bulan
        EndIf 
    EndWhile 
Return 
Sub 检测验证码
    While 1
        Delay 200000
        VBSCall FindPic(0,0,1024,768,"Attachment:\验证码.bmp",0.9,xb,yb)
        If xb>=0 and yb>=0
            VBSCall RunApp("1.mp3")
            Goto 停止
        EndIf 
    EndWhile 
Return 
Rem 停止
KeyPress 123,1