[General] Description=免费在线《验证码识别脚本》 [ ② ]
BeginHotkey=120
BeginHotkeyMod=0
RunOnce=1
Enable=1
[Repeat] Type=0
Number=1
[CallBack] OnSetup=
[Comment] Content=
[Script] //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // 免费在线 验证码识别 // //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // 《如果不能识别请重新抓一下［起点坐标］跟［10个数字的颜色］即可》 // // ［验证码］网页地址 《http://club.excelhome.net/》 //
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //《定义变量》 VBS 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坐标变量赋值(验证码图片左上角红色那个点)》
VBS ux=355 : uy=383
//《两个数字之间距离》 VBS n=20
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// VBS okno=""
//《识别5个数字的循环次数 (为5)》 For 5 
VBS co=""
//《起点颜色y坐标变量赋值》 VBS y=uy
//16行(只循环8次)特征点
For 8
//《起点颜色x坐标变量赋值》 VBS x=ux
//每行12个特征点(循环12次)
For 12 VBSCall color=GetPixelColor(x,y)
If color="FFFFFF" VBS i="1"
Else VBS i="0"
EndIf VBS co=co & i
VBS x=x+1
EndFor VBS y=y+1
EndFor
//《判断每次得到的特征码跟10个数字的特征码对比》
If co=no0 VBS cno="0"
ElseIf co=no1 VBS cno="1"
ElseIf co=no2 VBS cno="2"
ElseIf co=no3 VBS cno="3"
ElseIf co=no4 VBS cno="4"
ElseIf co=no5 VBS cno="5"
ElseIf co=no6 VBS cno="6"
ElseIf co=no7 VBS cno="7"
ElseIf co=no8 VBS cno="8"
ElseIf co=no9 VBS cno="9"
Else VBS cno="?"
EndIf
//《接着识别下一个数字》 VBS ux=ux+n
//《得到验证码5个数字》 VBS okno=okno & cno
EndFor //《显示验证码5个数字》 VBSCall MessageBox(okno)
EndScript //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //【脚本作者】一只鱼 【QQ群】5619170 //【E-Mail】[email protected] 【致谢】欢迎使用鱼鱼制作的脚本!! //【创作日期】2007.01.18 【修改日期】 //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//下面
2张图分别是[
抓点位置]跟[
例子图片]
[ 此贴被幻想.在2009-01-19 21:22重新编辑 ]
