VB NET 中怎樣實現(xiàn)動態(tài)驗證碼

需要寫個驗證碼類：

創(chuàng)新互聯(lián)建站成立10多年來，這條路我們正越走越好，積累了技術(shù)與客戶資源，形成了良好的口碑。為客戶提供成都網(wǎng)站制作、成都網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)頁設(shè)計、域名注冊、網(wǎng)絡(luò)營銷、VI設(shè)計、網(wǎng)站改版、漏洞修補等服務(wù)。網(wǎng)站是否美觀、功能強大、用戶體驗好、性價比高、打開快等等，這些對于網(wǎng)站建設(shè)都非常重要，創(chuàng)新互聯(lián)建站通過對建站技術(shù)性的掌握、對創(chuàng)意設(shè)計的研究為客戶提供一站式互聯(lián)網(wǎng)解決方案，攜手廣大客戶，共同發(fā)展進步。

例如

public class ValidCode

public shared function Create() as integer

return Rand(0,100)

end Function

end class

需要在頁面里面去調(diào)用類的共享方法，然后顯示驗證碼（你也可以生成圖片~~）

誰會用vb6.0做一個帶有驗證碼識別的登陸界面

新建工程，添加一個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

你也可以自己畫點其他的東西，增加識別難度

vb點虐 如何使用HttpWebRequest模擬登陸帶驗證碼的網(wǎng)站

一般登陸網(wǎng)站時候首先要打開一個網(wǎng)頁對吧？

那首先要 GET 一個網(wǎng)址。GetResponse后，得到的流就是這個頁面的源碼。

源碼里肯定會包含這個驗證碼的提問段（可能是個圖片的網(wǎng)址，也可能是個 5+5=？ 之類的字符串之類的），可以分析一下這段代碼出現(xiàn)的位置，讓程序自動尋找。找到這個圖片的網(wǎng)址，把這個圖片 GET 下來，然后，就是orc識別或你人工識別咯。。。