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