百度知道上以前有的，不过网站的变动因素很大，你是想做一个用自己界面登陆的客户端是不是啊？可以用Winsock传送一下指定名称的验证码文件，名称的话。。。。。。自己探索一下。但是网站并不是每次输入密码都要验证码的，这个比较麻烦的。。。。。。
可以
先找到验证码的地址
一般这个地址不是以jpg 结尾的 因为验证码是动态生成的
比如<IMG src="includes/checkcodephp">
先用webbrowser1documentbodyinnnerhtml 返回<body></body>之间的HTML代码
用正则或其他任何方法 或 instr 找到该地址 然后把
Picture 的路径设为这个就行了
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
'显示校验码
Picture1Cls
Picture1Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画2000个噪点
'画点随机位置
px = CLng(Picture1Width Rnd)
py = CLng(Picture1Height Rnd)
'画点随机颜色
r = CByte(255 Rnd)
g = CByte(255 Rnd)
b = CByte(255 Rnd)
Picture1Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub
Private Sub Command2_Click()
If Text1Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
Picture1FontSize = 12
Picture1FontBold = True
Picture1AutoRedraw = True
drawvc
End Sub
建立一个access数据库，建立一个abc表，建立一个username字段和userpass字段。保存数据库为c:\aaamdb。
dim conn,rs,uname,upass
uname=requestquerystring("userid")
upass=requestquerystring("password")
set conn=servercreateobject("adodbconnection")
connopen "provider=microsoftjetoledb40; data source=c:\aaamdb"
set rs=servercreateobject("adodbrecordset")
rsopen "select from [abc] where [username]='" & uname & "' and [userpass]='" & upass & "'",conn,1,3
if rsrecordcount=0 then'没有记录
responsewrite "密码有误"
else
responsewrite "登陆成功！日哦！"
end if
以上就是关于vb 获取WebBrowser1验证码图片到Picture1全部的内容，包括:vb 获取WebBrowser1验证码图片到Picture1、VB有谁可以将WebBrowser网站中的验证码读取到 Picture上、用vb能否编写出一个自动获取和填写验证码的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）