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