//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　《如果不能识别请重新抓一下［起点坐标］跟［10个数字的颜色］即可》　　//
//　　　　　［验证码］网页地址　《http://club.excelhome.net/》　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//《定义变量》
Dim no0,no1,no2,no3,no4,no5,no6,no7,no8,no9,nob,ux,uy,x,y,n,cno,color,okno,i,co
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//《10个数字的上半个字特征码》
no0="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000000011"
no1="000011100000000111100000000111100000001111100000001101100000000001100000000001100000000001100000"
no2="000011111100001111011110011110000110111000000011110000000011000000000001000000000111000000001111"
no3="111111111111000000001111000000011100000000111000000011110000000111100000000111111100000001111111"
no4="000000110000000000110000000000110000000000110000001000110000001100110000011100110000011000110000"
no5="111111111110100000000000100000000000100000000000100000000000100000000000111111111000111111111100"
no6="000111110000011111111100111100001110110000000011110000000000110000000000110111111000111111111110"
no7="111111111111000000000001000000000011000000000111000000000110000000001110000000011100000000011000"
no8="001111111000011111111100011000000110011000000110011000000110011000001110011111111110000111111000"
no9="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000001111"
//《起点ux , uy坐标变量赋值(验证码图片左上角红色那个点)》
ux=355 : uy=383
//《两个数字之间距离》
n=20
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
okno=""
//《识别5个数字的循环次数 (为5)》
For 5
    co=""
    //《起点颜色y坐标变量赋值》
    y=uy
    //16行(只循环8次)特征点
    For 8
        //《起点颜色x坐标变量赋值》
        x=ux
        //每行12个特征点(循环12次)
        For 12
            VBSCall color=GetPixelColor(x,y)
            If color="FFFFFF"
                i="1"
            Else 
                i="0"
            EndIf 
            co=co & i
            x=x+1
        EndFor 
        y=y+1
    EndFor 
    //《判断每次得到的特征码跟10个数字的特征码对比》
    If co=no0
        cno="0"
    ElseIf co=no1
        cno="1"
    ElseIf co=no2
        cno="2"
    ElseIf co=no3
        cno="3"
    ElseIf co=no4
        cno="4"
    ElseIf co=no5
        cno="5"
    ElseIf co=no6
        cno="6"
    ElseIf co=no7
        cno="7"
    ElseIf co=no8
        cno="8"
    ElseIf co=no9
        cno="9"
    Else 
        cno="?"
    EndIf 
    //《接着识别下一个数字》
    ux=ux+n
    //《得到验证码5个数字》
    okno=okno & cno
EndFor 
//《显示验证码5个数字》
VBSCall MessageBox(okno)
EndScript 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【脚本作者】一只鱼　　　　　　　　　 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
//【创作日期】2007.01.18　　　　　　　【修改日期】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//