内容导航:
{image}
一 、用vb能否编写出一个自动获取和填写验证码的程序
Dim vCode As String
Private Sub Command1_Click()
drawvc
End Sub
Private Sub drawvc() '显示校验码
Dim i, px, py As Long, vc As String
Dim r, g, b As Byte
Randomize '初始化随碰卜橘机种子
'生成随机校验码
For i = 1 To 4
Do
num = Rnd() * 74 + 48
Loop While num <笑团 48 Or (num > 57 And num < 65) Or (num > 90 And num < 97) Or
num > 122
vc = vc & Chr(num)
Next i
vCode = vc
'显示校验码
vc
'添加噪点(防止自动图像识别)
For i = 0 To 2000 '画2000个噪点
'画点随弊圆机位置
px = CLng( * Rnd)
py = CLng( * Rnd)
'画点随机颜色
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
(px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub
Private Sub Command2_Click()
If = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
= 12
= True
w = True
drawvc
End Sub
二、按键精灵验验证码识别
识别以上类型验证码的代码怎么写~(@^_^@)~FLEX常用功能中提供的生成随机字符串的代码常用来作为用户登录界面的验证码生成,代码如下:
private function GenerateCheckCode():String
{
//初始化
var ran:Number;
var number:Number;
var code:String;
var checkCode:String ="";
//生成四位随机数
for(var i:int=0; i<4; i++)
{
//生成数为类似为0.1234
ran=();
number =(ran*);
//如果是2的倍数生成一个数字
if(number % 2 == 0)
//"0"的ASCII码是48
code = ode(48+(number % 10));
//生成一个字母
else
//"A"的ASCII码为65
code = ode(65+(number % 26)) ;
checkCode += code;
}
return checkCode;
}
跟你说实话
即使是使用编程方式 ,也是很难做到的
否则验证码也不会用的这么广,
按键精灵更不用说了
三、谁能提供一下用VB自动识别网于乱源原站注册识别码的源代码
如果有这么简单识 来自 别,那还要识别码干嘛 。貌似还有人巨额现金求正确率有80%的验证码识别软件。楼主你还是放弃吧。
四 、SP中产生数字验证码源码有哪些呢
数字验证码是一种最常用的验证字符码形式 ,以下为数字实现的JSP源码:255)cc=255;if(bc>255)bb=255;intr=cc+(bb- cc);intg=cc+(bb-cc);intb=cc+(bb-cc);returnnewColor(r,g,b);}//获取随机颜色%>