运行环境：分辨率：1440×900 色深：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