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

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

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

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//　　《如果不能识别请重新抓一下［起点坐标］跟［10个数字的颜色］即可》　　//  
//　　　　［验证码］网页地址　《http://www.leocn.com/html/6269.html》　　//  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//《定义变量》  
Dim c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,cb,x,cx,y,n,cn,color,okn  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//《10个数字的颜色》  
c0="00498C"  
c1="0000DE"  
c2="0024C6"  
c3="A56D00"  
c4="0059A5"  
c5="DE3C00"  
c6="0045CE"  
c7="6300A5"  
c8="42A600"  
c9="E76500"  
//《验证码背景的颜色》  
cb="EFEFEF"  
//《起点x , y坐标变量赋值(验证码图片左上角那个点)》  
x=129:y=420  
//《两个数字之间距离》  
n=10  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
okn=""  
//《识别4个数字的循环次数 (为4)》  
For 4  
    //《起点颜色cx坐标变量赋值》  
    cx=x  
    //《识别1个数字横向点的循环次数 (为5)》  
    For 5  
        VBSCall color=GetPixelColor(cx,y)  
        //《判断是否为背景色》  
        If color<>cb  
            //《判断每次得到的颜色跟10个数字的颜色对比》  
            If color=c0  
                cn="0"  
            ElseIf color=c1  
                cn="1"  
            ElseIf color=c2  
                cn="2"  
            ElseIf color=c3  
                cn="3"  
            ElseIf color=c4  
                cn="4"  
            ElseIf color=c5  
                cn="5"  
            ElseIf color=c6  
                cn="6"  
            ElseIf color=c7  
                cn="7"  
            ElseIf color=c8  
                cn="8"  
            ElseIf color=c9  
                cn="9"  
            EndIf   
            Goto 〖离开1个数字横向点的循环〗  
        Else   
            //《继续循环直到5次完》  
            cx=cx+1  
        EndIf   
    EndFor   
    Rem 〖离开1个数字横向点的循环〗  
    //《接着识别下一个数字》  
    x=x+n  
    //《得到验证码4个数字》  
    okn=okn & cn  
EndFor   
//《显示验证码4个数字》  
VBSCall MessageBox(okn)  
EndScript