1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　　免费在线　　　验证码识别　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. //　　《如果不能识别请重新抓一下［起点坐标］跟［10个数字的颜色］即可》　　//
5. //　　　　［验证码］网页地址　《http://www.leocn.com/html/6269.html》　　//
6. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
7. //《定义变量》
8. Dim c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,cb,x,cx,y,n,cn,color,okn
9. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
10. //《10个数字的颜色》
11. c0="00498C"
12. c1="0000DE"
13. c2="0024C6"
14. c3="A56D00"
15. c4="0059A5"
16. c5="DE3C00"
17. c6="0045CE"
18. c7="6300A5"
19. c8="42A600"
20. c9="E76500"
21. //《验证码背景的颜色》
22. cb="EFEFEF"
23. //《起点x , y坐标变量赋值(验证码图片左上角那个点)》
24. x=129:y=420
25. //《两个数字之间距离》
26. n=10
27. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
28. okn=""
29. //《识别4个数字的循环次数 (为4)》
30. 循环 4 遍
31.     //《起点颜色cx坐标变量赋值》
32.     cx=x
33.     //《识别1个数字横向点的循环次数 (为5)》
34.     循环 5 遍
35.         调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
36.         //《判断是否为背景色》
37.         如果表达式 (color<>cb) 为真,则
38.             //《判断每次得到的颜色跟10个数字的颜色对比》
39.             如果表达式 (color=c0) 为真,则
40.                 cn="0"
41.             否则如果(color=c1)为真,则
42.                 cn="1"
43.             否则如果(color=c2)为真,则
44.                 cn="2"
45.             否则如果(color=c3)为真,则
46.                 cn="3"
47.             否则如果(color=c4)为真,则
48.                 cn="4"
49.             否则如果(color=c5)为真,则
50.                 cn="5"
51.             否则如果(color=c6)为真,则
52.                 cn="6"
53.             否则如果(color=c7)为真,则
54.                 cn="7"
55.             否则如果(color=c8)为真,则
56.                 cn="8"
57.             否则如果(color=c9)为真,则
58.                 cn="9"
59.             条件结束
60.             跳转到标记 〖离开1个数字横向点的循环〗
61.         否则
62.             //《继续循环直到5次完》
63.             cx=cx+1
64.         条件结束
65.     循环结束
66.     标记 〖离开1个数字横向点的循环〗
67.     //《接着识别下一个数字》
68.     x=x+n
69.     //《得到验证码4个数字》
70.     okn=okn & cn
71. 循环结束
72. //《显示验证码4个数字》
73. 调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
74. 脚本停止运行
75. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
76. //【脚本作者】一只鱼　　　　　　　　　 【QQ群】5619170
77. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
78. //【创作日期】2007.01.05　　　　　　　【修改日期】2007.01.12
79. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//