If DateDiff("s",t(10),now)>=5
                    //< DateDiff 函数：返回两个日期之间的时间间隔>
                    //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
                    VBSCall FindColorEx(x+73,y+70,x+81,y+78,"0C33DB",1,0.5,x1,y1)
                    If x1>0 and y1>0
                        //到达挂机点检测
                        Delay 100
                        t(10)=now
                        //重新定义时间变量
                        MoveTo x6+4,y6+4
                        Delay 500
                        LeftClick 1
                        //关掉标记位置
                    Else 
                        Delay 10
                        Goto 跑路时间
                    EndIf 
                Else 
                    Delay 10
                    Goto 跑路时间
                EndIf 
            Else 
                MoveTo x6+4,y6+4
                Delay 500
                LeftClick 1
                //关掉标记位置
            EndIf 
        EndIf 
    EndIf 
Return 挂机点
//************************************************
//      挂机范围
//************************************************
Sub 挂机范围
    Delay 10
    If DateDiff("s",t(12),now)>=1800
        //< DateDiff 函数：返回两个日期之间的时间间隔>
        //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
        Delay 10
        t(12)=now
        Delay 10
        Gosub 挂机点
        //每半小时自动返回挂机点一次
    EndIf 
    Delay 10
    If BJ>=1
        If DateDiff("s",t(11),now)>=8
            //< DateDiff 函数：返回两个日期之间的时间间隔>
            //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
            t(11)=now
            //重新定义时间变量,使每10秒检测一次
            VBSCall FindPic(x-32,y-29,x+167,y+189,"Attachment:\挂机点.BMP",0.8,x4,y4)
            If x4>0 and y4>0
                VBSCall FindColor(x-32,y-29,x+167,y+189,"70F0FF",x5,y5)
                If x5>0 and y5>0
                    Delay 10
                    a=x5-x4-4
                    b=y5-y4-4
                    If Abs(a)>=BJ or Abs(b)>=BJ
                        //------------------
                        Gosub 挂机点
                        //------------------
                        Delay 10
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 挂机范围
//*****************************************************
Sub 放大地图
    Delay 10
    VBSCall FindPic(x-32,y-29,x+167,y+189,"Attachment:\放大地图.BMP",0.9,x7,y7)
    If x7>0 and y7>0
        MoveTo x7+4,y7+4
        Delay 500
        LeftClick 2
        //放大地图
    EndIf 
Return 放大地图
//***************************************************
Sub 初始化时间
    Delay 10
    j=1
    For 14
        t(j)=now
        j=j+1
    EndFor 
Return 初始化时间