按键精灵免费在线《验证码识别脚本》2

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01 2009/3/19

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//　　《如果不能识别请重新抓一下［起点坐标］跟［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