—
本帖被 幻想. 执行取消锁定操作(2009-01-19)
—
验证码 特点 如题。
图片地址：
http://fy.lqn.cn/img是投票验证的
http://fy.lqn.cn/myDispath.fy?method=showClass&classId=6&pageNum=1里面随便点个工会（鼠标移在上面没反映的，但是只要点一下就进投票窗口了）
这个虽然没什么难度！ 主要是想让新人学习用的！
//封印传说，工会投票
http://fy.lqn.cn/myDispath.fy?method=showClass&classId=6&pageNum=1// 直接图片地址
http://fy.lqn.cn/imgVBS Dim x,y,uu,tt
VBS x=12:y=130
//这里x y只要找验证图里背景最左上交的坐标点，这个不对就识别不出的VBS tt=""
VBS x=x+10:y=y+4
//这里是在上面x y的基础上，把它调整到字符的起始位置。为了方便才这样的。For 4
Gosub {0}
Gosub {9}
Gosub {8}
Gosub {7}
Gosub {6}
Gosub {5}
Gosub {4}
Gosub {3}
Gosub {2}
Gosub {1}
Rem {下1位数字}
VBS tt=tt&uu
VBS x=x+10
//字符间距，这样就换下个字符开始了
EndFor
MessageBox tt
EndScript
Sub {0}
VBSCall c=GetPixelColor(x+1,y+4)
//字符上取的特征点的坐标，并把颜色值赋予c
If Cint("&H" & Right(c,2))+Cint("&H" & Mid(c,3,2))+Cint("&H" & Left(c,2)) //因为字符上的点不是纯黑色的。但是通过观察，点的RGB之和小于120
VBSCall c=GetPixelColor(x+1,y+7)
If Cint("&H" & Right(c,2))+Cint("&H" & Mid(c,3,2))+Cint("&H" & Left(c,2)) //满足上面的2个IF条件，就说明是“0”这个字符
Goto {下1位数字}
EndIf
EndIf
Return {0}
Sub {9}
VBSCall c=GetPixelColor(x+1,y+3)
If Cint("&H" & Right(c,2))+Cint("&H" & Mid(c,3,2))+Cint("&H" & Left(c,2))本来是别人要的，结果那人做好了说要自己学习，不要了。汗！白白浪费我休息的时间。希望对你们对学习验证码识别脚本有用。
