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