MoveTo 449,386
                    Delay 500
                    LeftClickH 1
                    Delay 500
                EndIf 
                MoveTo 450,418
                Delay 500
                LeftClickH 1
                Delay 500
                MoveTo 825,233
                Delay 500
            EndIf 
        EndIf 
    EndFor 
    Gosub 上线报警
    Rem 已进入游戏02
    KeyPressH 27,1
    Delay 1000
    VBSCall Call FindColorEx(324,747,370,759,"000000",1,0.8,x9,y9)
    If x9>0 and y9>0
    Else 
        MoveTo 73,752
        Delay 1000
        LeftClickH 1
        Delay 2000
    EndIf 
    Goto 登陆start
Return 自动上号
Sub 持续报警
    Rem 持续报警01
    Beep beep
    For 1
        Delay 1000
    EndFor 
    Goto 持续报警01
Return 持续报警
Sub 自动答题
    Dim St_x,St_y
    //头文字坐标
    St_x=410:St_y=250
    //读取题库信息，取得题目数量
    VBSBegin 
        Dim Gx,Yz
        set fso=createobject("scripting.filesystemobject")
        set file=fso.opentextfile("d:\题库.txt")
        Gx=file.readall
        Yz=file.line
        file.close
    VBSEnd 
    i=Yz-1
    //创建题库数组，供识别用
    Redim Dct(i)
    //讲题库内容写入数组，供识别用
    t=0
    For i
        Li=Li&""
        Plugin R1=File.ReadFileEx("d:\题库.txt")
        Plugin R2=File.ReadFileEx("d:\题库.txt")
        Dct(t) = R1 & R2
        t=t+1
    EndFor 
    //开始识别
    Plugin Zf=Maple.EamChar(Dct,1,30,St_x,St_y,143,11,1,&H312507,&H281414)
    //识别完成，得出相应值，鼠标点击（坐标自己改）
    If Zf="a"
        MoveTo 414,350
        Delay 200
        LeftClick 1
        Delay 1000
        MoveTo 807,227
        Gosub 答题结果
    ElseIf Zf="b"
        MoveTo 413,379
        Delay 200
        LeftClick 1
        Delay 1000
        MoveTo 807,227
        Gosub 答题结果
    ElseIf Zf="c"
        MoveTo 414,408
        Delay 200
        LeftClick 1
        Delay 1000
        MoveTo 807,227
        Gosub 答题结果
    ElseIf Zf="d"
        MoveTo 414,438
        Delay 200
        LeftClick 1
        Delay 1000
        MoveTo 807,227
        Gosub 答题结果
    EndIf 
Return 自动答题
Sub 题库收集
    Dim St_x,St_y
    Dim Input
    //=========================================================
    //设置识别题目的初始坐标。具体看说明
    St_x=410:St_y=250