//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　《如果不能识别请重新抓一下［起点坐标］跟［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 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【脚本作者】一只鱼　　　　　　　　　 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
//【创作日期】2007.01.05　　　　　　　【修改日期】2007.01.12
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//