If dqx>yd_x and dqy>yd_y
        Delay 150
        MoveTo 512,135
        Delay 70
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqx<YD_X and dqy<yd_y
        Delay 150
        MoveTo 512,600
        Delay 70
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If abs(dqx-yd_x)<=hit_xy/3 and abs(dqy-yd_y)<=hit_xy/3
        Delay 70
        Goto 回挂机范围结束
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqx>yd_x and dqy<YD_Y
        MoveTo 227,368
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqxyd_y
        MoveTo 831,368
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If abs(dqx-yd_x)<=hit_xy/3 and abs(dqy-yd_y)<=hit_xy/3
        Delay 70
        Goto 回挂机范围结束
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqx>yd_x
        MoveTo 192,236
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqx<YD_X
        MoveTo 831,511
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqy>yd_y
        MoveTo 853,227
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If dqy<YD_Y
        MoveTo 227,511
        Delay 150
        LeftClick 1
    EndIf 
    VBSCall ReadMemory(bitx,2,dqx)
    Delay 70
    VBSCall ReadMemory(bity,2,dqy)
    Delay 70
    If abs(dqx-yd_x)<=hit_xy/3 and abs(dqy-yd_y)<=hit_xy/3
        Delay 70
        Goto 回挂机范围结束
    EndIf 
    Goto pand
    Rem 回挂机范围结束
Return 回挂机范围结束
Sub 自动辅助
    //自动辅助子程序
    If datediff("s",fz1,now)>fsj1*60