Goto 六号出口04
        EndIf 
    EndFor 
    Gosub 三号错误
    Rem 六号出口04
    For 20
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(737, 112, 746, 121,"Attachment:\六号3915.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 40,1
            Goto 六号出口05
        EndIf 
    EndFor 
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    Gosub 三号错误
    Rem 六号出口05
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(885, 123, 893, 135,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 500
            Goto 六号出口06
        EndIf 
    EndFor 
    Gosub 三号错误
    Rem 六号出口06
    For 20
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(737, 104, 746, 114,"Attachment:\六号3818.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 40,1
            Goto 六号出口07
        EndIf 
    EndFor 
    KeyDownH 37,1
    Delay 5000
    KeyUpH 37,1
    Gosub 三号错误
    Rem 六号出口07
    For 3
        For 3
            For 100
                KeyDownH 39,1
                Delay 100
                VBSCall Call FindPic(886, 123, 894, 135,"Attachment:\人物.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0
                    KeyUpH 39,1
                    Delay 500
                    Goto 六号出口08
                EndIf 
            EndFor 
            KeyUpH 39,1
            KeyDownH 37,1
            Delay 5000
            KeyUpH 37,1
        EndFor 
        Gosub 持续报警
        Rem 六号出口08
        For 10
            KeyDownH 40,1
            Delay 1000
            KeyPressH 32,1
            Delay 1000
            VBSCall Call FindPic(737, 89, 746, 99,"Attachment:\六号3821.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                Delay 500
                KeyUpH 40,1
                Goto 六号出口09
            EndIf 
        EndFor 
        KeyUpH 40,1
        KeyDownH 37,1
        Delay 5000
        KeyUpH 37,1
    EndFor 
    Gosub 持续报警
    Rem 六号出口09
    For 3
        For 3
            For 600
                KeyDownH 37,1
                Delay 100
                VBSCall Call FindPic(849, 148, 857, 160,"Attachment:\人物.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0
                    KeyUpH 37,1
                    Delay 500
                    Goto 六号出口10
                EndIf