//得到第一个数字的位置
    pX=x:pY=y
    //清空验证码
    numText=""
    //分别读取4个数字
    For 4
        n=0:numtp=""
        For addy
            i=0
            For addx
                VBSCall co=GetPixelColor(px+i,py+n)
                //得到9C
                b=CInt("&H" & Left(co,2))
                If b>150 and b<235
                    tp=1
                Else 
                    tp=0
                EndIf 
                //得到颜色01字符串
                numtp=numtp & tp
                i=i+1
            EndFor 
            n=n+1
        EndFor 
        //判断是数字几
        If StrComp(numtp,"001010100100100100100100100100010")=0
            number=0
        ElseIf StrComp(numtp,"000000001010000000000000000000000")=0
            number=1
        ElseIf StrComp(numtp,"001010100000000000000000000001010")=0
            number=2
        ElseIf StrComp(numtp,"001010100000000001000000000100110")=0
            number=3
        ElseIf StrComp(numtp,"000000000001001010100000111000000")=0
            number=4
        ElseIf StrComp(numtp,"011010010100111100000000000100010")=0
            number=5
        ElseIf StrComp(numtp,"001010100100101110100100100100010")=0
            number=6
        ElseIf StrComp(numtp,"111000000000000000000000000001001")=0
            number=7
        ElseIf StrComp(numtp,"001010100100010001010100100100010")=0
            number=8
        ElseIf StrComp(numtp,"001010100100100100010001000100010")=0
            number=9
        EndIf 
        //读取下一位数字
        pX=pX+add
        //记录数字
        numText=numText & number
    EndFor 
Return 读取数字