1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. //　　《如果不能识别请重新抓一下［起点坐标］跟［10个数字的颜色］即可》　　//
5. //　　　　　［验证码］网页地址　《http://club.excelhome.net/》　　　　　　//
6. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
7. //《定义变量》
8. Dim no0,no1,no2,no3,no4,no5,no6,no7,no8,no9,nob,ux,uy,x,y,n,cno,color,okno,i,co
9. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
10. //《10个数字的上半个字特征码》
11. no0="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000000011"
12. no1="000011100000000111100000000111100000001111100000001101100000000001100000000001100000000001100000"
13. no2="000011111100001111011110011110000110111000000011110000000011000000000001000000000111000000001111"
14. no3="111111111111000000001111000000011100000000111000000011110000000111100000000111111100000001111111"
15. no4="000000110000000000110000000000110000000000110000001000110000001100110000011100110000011000110000"
16. no5="111111111110100000000000100000000000100000000000100000000000100000000000111111111000111111111100"
17. no6="000111110000011111111100111100001110110000000011110000000000110000000000110111111000111111111110"
18. no7="111111111111000000000001000000000011000000000111000000000110000000001110000000011100000000011000"
19. no8="001111111000011111111100011000000110011000000110011000000110011000001110011111111110000111111000"
20. no9="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000001111"
21. //《起点ux , uy坐标变量赋值(验证码图片左上角红色那个点)》
22. ux=355 : uy=383
23. //《两个数字之间距离》
24. n=20
25. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
26. okno=""
27. //《识别5个数字的循环次数 (为5)》
28. 循环 5 遍
29.     co=""
30.     //《起点颜色y坐标变量赋值》
31.     y=uy
32.     //16行(只循环8次)特征点
33.     循环 8 遍
34.         //《起点颜色x坐标变量赋值》
35.         x=ux
36.         //每行12个特征点(循环12次)
37.         循环 12 遍
38.             调用外部VBScript子程序 color=得到指定点的颜色(x,y)
39.             如果表达式 (color="FFFFFF") 为真,则
40.                 i="1"
41.             否则
42.                 i="0"
43.             条件结束
44.             co=co & i
45.             x=x+1
46.         循环结束
47.         y=y+1
48.     循环结束
49.     //《判断每次得到的特征码跟10个数字的特征码对比》
50.     如果表达式 (co=no0) 为真,则
51.         cno="0"
52.     否则如果(co=no1)为真,则
53.         cno="1"
54.     否则如果(co=no2)为真,则
55.         cno="2"
56.     否则如果(co=no3)为真,则
57.         cno="3"
58.     否则如果(co=no4)为真,则
59.         cno="4"
60.     否则如果(co=no5)为真,则
61.         cno="5"
62.     否则如果(co=no6)为真,则
63.         cno="6"
64.     否则如果(co=no7)为真,则
65.         cno="7"
66.     否则如果(co=no8)为真,则
67.         cno="8"
68.     否则如果(co=no9)为真,则
69.         cno="9"
70.     否则
71.         cno="?"
72.     条件结束
73.     //《接着识别下一个数字》
74.     ux=ux+n
75.     //《得到验证码5个数字》
76.     okno=okno & cno
77. 循环结束
78. //《显示验证码5个数字》
79. 调用外部VBScript子程序 color=得到指定点的颜色(x,y)
80. 脚本停止运行
81. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
82. //【脚本作者】一只鱼　　　　　　　　　 【QQ群】5619170
83. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
84. //【创作日期】2007.01.18　　　　　　　【修改日期】
85. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//