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