Delay 500
        VBSCall Call FindPic(168,78,222,114,"Attachment:\生命.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 关掉M01
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 关掉M01
Return 关掉M
Sub 主线
    Rem 主线001
    For 600
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(769, 85, 777, 96,"Attachment:\主线01.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 500
            Goto 主线01
        EndIf 
        VBSCall Call FindPic(837, 146, 847, 160,"Attachment:\主线0621.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            KeyDownH 39,1
            Delay 3000
            KeyDownH 39,1
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 主线01
    For 20
        KeyPressH 32,1
        Delay 500
        VBSCall Call FindPic(721, 96, 736, 110,"Attachment:\主线0917.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 主线02
        EndIf 
    EndFor 
    Gosub 主线错误
    Rem 主线02
    For 100
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(737, 99, 745, 108,"Attachment:\主线0817.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 500
            Goto 主线03
        EndIf 
    EndFor 
    Gosub 主线错误
    Rem 主线03
    For 20
        KeyPressH 32,1
        Delay 500
        IfColor 718,89,80fce7,2
            Goto 主线04
        EndIf 
    EndFor 
    Gosub 主线错误
    Rem 主线04
    For 6
        KeyDownH 39,1
        Delay 500
        KeyPressH 32,1
        Delay 500
    EndFor 
    For 100
        KeyDownH 39,1
        Delay 500
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(840, 91, 871, 102,"Attachment:\主线1911.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 600
            KeyUpH 39,1
            Delay 100
            KeyPressH 32,1
            Delay 500
            Goto 主线05
        EndIf 
        VBSCall Call FindColorEx(831, 189, 841, 205,"06DDF0",1,0.8,x9,y9)
        If x9>0 and y9>0
        Else 
            KeyUpH 39,1
            KeyUpH 37,1
            Gosub 四线错误
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 主线05
Return 主线
Sub 主线错误
    Gosub 是否在线
    KeyUpH 37,1
    KeyUpH 39,1
    Delay 500
    For 50
        KeyDownH 37,1
        Delay 500