//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
// 免费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 【修改日期】 ||
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★搞★定★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓||