vb验证码源码

⑴ 求VB验证码识别程序,要完整原代码

做出来是不大可能的

⑵ 用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
'显示校验码
Picture1.Cls
Picture1.Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画2000个噪点
'画点随机位置
px = CLng(Picture1.Width * Rnd)
py = CLng(Picture1.Height * Rnd)
'画点随机颜色
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub
Private Sub Command2_Click()
If Text1.Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
Picture1.FontSize = 12
Picture1.FontBold = True
Picture1.AutoRedraw = True
drawvc
End Sub

⑶ VB识别验证码问题

1.调用API扫描指定部位像素。
2.和数据库对比！
3.判断相似程度。
其中2 可以进行一些处理后再对比（如二位化，把非背景色和背景色两个值列出方阵）
如：1 扫描后你会得到：
001100
111100
001100
001100
001100
001100
001100
111111
000000
这样一个阵列他的总数 和为22 ，当扫描到一个阵列的几列数字和为22 就有可能是1 了，只是有可能，当然可以进行跟详细的判断

⑷ 用vb怎么制作验证码

在窗体上添加一个PictureBox,代码: Private Sub Picture1_Click() Dim YZM As String Randomize Picture1.Cls Picture1.FontSize = 15 Picture1.FontBold = True YZM = Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) Picture1.Print YZM '验证码 Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) '产生干扰 Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) Picture1.Line (Int(Rnd * 500), Int(Rnd * 500))-(Int(Rnd * 500), Int(Rnd * 500)) End Sub

⑸ vb 获取验证码

你这段代码是看不出来什么的
EnterPress()这个函数，或者changeimgLogin()这两个函数看明白了，才有可能从源代码分析一下，也够呛。
还要最好修改一下这个网页的代码，把它的POST改为GET看能不获得一些什么东西（通常的网页是别人，想修改网页代码也挺麻烦）。
或者也可以通过修改EnterPress()或者changeimgLogin()这两个函数所以的js文件，让它alert将结果直接弹出来也可以，前提也要先下载了对方的网站，修改主页的Includ内容等。

感觉从这块入手，想获得验证码，难度还是不小的。
另，如果你有研究结果了，能不能将方法告诉我下，我对这块也有兴趣。

⑹ vb入门编写代码,产生4位验证码

x=1000+int(rnd*9000)

⑺ VB提取网页验证码代码

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim X, CtrlRange
Dim ii As Long
ii = 0
For Each X In WebBrowser1.Document.All
If X.tagname = "IMG" Then
If LCase(X.src) = "http://www.monternet.com/authcode" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy") '获取验证码
Image1.Picture = Clipboard.GetData '在Image1控件上显示
Exit Sub
End If
ii = ii + 1
End If
Next

End Sub

⑻ VB 获取网页中的验证码

小左,我真的郁闷哈

我不是给你说了嘛?

Dim X
Dim CtrlRange
For Each X In Web1.Document.All
If X.tagName = "IMG" Then
Web1.Stop
Set CtrlRange = Web1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next

Web1就是WebBrowser控件,Image1就是IMAGE控件啊?

等WebBrowser控件网页加载完毕就用上面的代码获得验证码图片了

保存本地更简单

SavePicture Image1.Picture, "c:\hxheiyao.bmp"

真搞不懂你!
是否可以解决您的问题？

⑼ vb 怎么从网页源文件中获取验证码图片到程序里

使用 WebBrowser1 控件 加载完网页后以下代码
ImgFileName = App.Path & "\temp.bmp"
For Each X In WebBrowser1.Document.All
If X.Id = "img_verify" Then'X.Id 为图片ID
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
SavePicture Clipboard.GetData, ImgFileName
Image1.Picture = LoadPicture(ImgFileName)
Kill ImgFileName
End If
Next

⑽ VB 如何实现随机图形验证码

新建工程，添加一个picturebox，一个textbox，两个command button
Dim vCode As String

Private Sub Command1_Click()

drawvc
End Sub

Private Sub drawvc() '显示校验码
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize '初始化随机种子
'生成随机校验码
vc = CLng(8999 * Rnd + 1000)
vCode = vc
'显示校验码
Picture1.Cls
Picture1.Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画2000个噪点
'画点随机位置
px = CLng(Picture1.Width * Rnd)
py = CLng(Picture1.Height * Rnd)
'画点随机颜色
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next

End Sub

Private Sub Command2_Click()
If Text1.Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub

Private Sub Form_Load()
Picture1.FontSize = 12
Picture1.FontBold = True
Picture1.AutoRedraw = True
drawvc
End Sub