Plugin Str=Maple.GetCharRect(St_x,St_y,143,11,1,&H312507,&H281414,0)
    If var2=2
        For 2
            Beep beep
            Delay 2000
        EndFor 
        For 30
            Beep beep
            Delay 2000
            WaitKey Xc
            If Xc
                Goto 题库收集01
            EndIf 
        EndFor 
        Goto 题库收集02
        Rem 题库收集01
        VBS Input = InputBox("输入答案", "西瓜网络",,4000,7000)
        Delay 1000
        VBS a = 0
        If a=input
            Goto 题库收集结速
        EndIf 
        Str=Input&"|"&Str
        Plugin File.WriteFileEx("d:\题库.txt",Str)
        Goto 行脚出题
    EndIf 
    If var2=1
        Rem 题库收集02
        //选择ABCD的坐标
        MoveTo 153,55
        Delay 300
        LeftClick 1
        //判断是否答错（图和坐标自己改了）
        VBSCall FindPic(0,0,1024,768,"答错.bmp",0.9,intX,intY)
        //答错，跳出，结束
        If intX<0 and intY<0
            Goto 题库收集结速
        Else 
            //答对。。。选A这个地方就改成A B就改成B 以此类推
            Str="a"&"|"&Str
            Plugin File.WriteFileEx("d:\题库.txt",Str)
        EndIf 
    EndIf 
    Rem 题库收集结速
Return 题库收集
EndScript 
VBSCall Call FindPic(770, 86, 776, 95,"Attachment:\主线01.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
EndIf 
VBSCall Call FindColorEx(489,373,510,391,"81FBFF",1,0.8,x9,y9)
If x9>0 and y9>0
EndIf 
VBSCall Call FindPic(791, 77, 830, 98,"Attachment:\主线2209.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
    Delay 1000
    KeyUpH 39,1
    Goto 主线05
EndIf