//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // 免费IE地址栏 数字识别 // //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // 《如果不能识别请重新抓一下[起点坐标]跟[10个数字的颜色]即可》 // // [数值识别码]网页地址栏中输入:0123456789 10个数字 // //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //《定义变量》 Dim no0,no1,no2,no3,no4,no5,no6,no7,no8,no9,nob,ux,uy,x,y,n,cno,color,okno,i,co //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// NO0="0111010001100011000110001100011000101110" NO1="0010001100001000010000100001000010001110" NO2="0111010001100010001000100010001000011111" NO3="0111010001000010011000001000011000101110" NO4="0001000110010100101010010011110001000011" NO5="1111110000100001111000001000011000101110" NO6="0111010010100001111010001100011000101110" NO7="1111110010000100010000100001000010000100" NO8="0111010001100010111010001100011000101110" NO9="0111010001100011000101111000010100101110" ux=108 : uy=62 //《起点ux , uy坐标变量赋值(IE地址栏验证码左上角为起点)》 n=6 //《两个数字之间距离(默认6)》 //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// okno="" For 10 //《识别10个数字的循环次数 (默认为10次)》 co="" //《空值》 y=uy //《起点颜色y坐标变量赋值》 For 8 //8行(默认只循环8次)特征点 x=ux //《起点颜色x坐标变量赋值》 For 5 //每行5个特征点(默认循环5次) color=GetPixelColor(x,y) If color="000000" Then //这里是数字颜色(默认黑色) i="1" Else i="0" End if co=co & i x=x+1 Next y=y+1 Next //《判断每次得到的特征码跟10个数字的特征码对比》 If co=no0 Then cno="0" ElseIf co=no1 Then cno="1" ElseIf co=no2 Then cno="2" ElseIf co=no3 Then cno="3" ElseIf co=no4 Then cno="4" ElseIf co=no5 Then cno="5" ElseIf co=no6 Then cno="6" ElseIf co=no7 Then cno="7" ElseIf co=no8 Then cno="8" ElseIf co=no9 Then cno="9" Else cno="?" End if //《接着识别下一个数字》 ux=ux+n //《得到验证码10个数字》 okno=okno & cno Next //《显示验证码10个数字》 Call MessageBox(okno) EndScript //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓|| //【脚本作者】豫舞奇迹 【QQ群】365389569 || //【E-Mail】365389569@qq.com 【致谢】欢迎使用我制作的脚本!! || //【创作日期】2012.08.10 【修改日期】 || //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★搞★定★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓||