VBSCall Call FindPic(837, 146, 847, 160,"Attachment:\主线0621.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Goto 主线错误01
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 主线错误01
    KeyDownH 39,1
    Delay 4000
    KeyUpH 39,1
    Goto 主线001
Return 主线错误
Sub 一号出口
    Gosub 主线
    For 10
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(840, 82, 854, 92,"Attachment:\一号1909.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 一号出口01
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 一号出口01
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(740, 117, 749, 129,"Attachment:\一号1609.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(711, 87, 721, 99,"Attachment:\一号1509.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(843, 133, 850, 141,"Attachment:\一号0808.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 1000
            Goto 一号出口02
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 一号出口02
    For 10
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(841, 159, 852, 170,"Attachment:\一号0806.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 一号出口03
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 一号出口03
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(841, 159, 852, 170,"Attachment:\一号0806.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindColorEx(710, 108, 771, 209,"5555EE",1,0.8,x9,y9)
        If x9>0 and y9>0
            Gosub 四线错误
        EndIf 
        VBSCall Call FindPic(787, 123, 794, 136,"Attachment:\一号0605.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 1000
            Goto 一号出口04
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 一号出口04
    For 10
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(814, 101, 827, 112,"Attachment:\一号0604.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 一号出口05
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 一号出口05
    For 300
        KeyDownH 39,1
        Delay 100
        VBSCall Call FindPic(802, 123, 811, 136,"Attachment:\一号0704.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call FindColorEx(720, 100, 732, 109,"80FBBF",1,0.8,x9,y9)
            If x9>0 and y9>0
                KeyPressH 32,1
                Delay 1000
            EndIf 
        EndIf 
        VBSCall Call FindPic(882, 104, 890, 113,"Attachment:\一号0904.bmp",0.8,intX,intY)