asp.net vb怎樣制作圖片驗證碼

實現(xiàn)過程，在需要調(diào)用的頁面使用image控件調(diào)用驗證碼生成的頁面，驗證碼生成的頁面生成驗證圖片且將驗證信息保存至Session中，調(diào)用頁面中通過Session判斷用戶是否輸入正確。道理是這樣，以下看代碼：

謝家集網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司自2013年創(chuàng)立以來到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

生成驗證碼頁面：

gif.ASPx

%@importnamespace="System"%

%@importnamespace="System.io"%

%@importnamespace="System.Drawing"%

%@importnamespace="System.Drawing.Imaging"%

scriptlanguage="VB"runat="server"

SubPage_Load(ByValSenderAsObject,ByValeAsEventArgs)

'RndNum為生成隨機碼的函數(shù)，

DimVNumAsString=RndNum(4)'該值為生成驗證碼的位數(shù)

Session("VNum")=VNum'讀取Session

ValidateCode(VNum) '根據(jù)Session生成圖片

EndSub

'--------------------------------------------

'生成圖象驗證碼函數(shù)

SubValidateCode(ByValVNum)

DimImgAsSystem.Drawing.Bitmap

DimgAsGraphics

DimmsAsMemoryStream

DimgheightAsInteger=Int(Len(VNum)*14)

'gheight為圖片寬度，根據(jù)字符長度自動更改圖片寬度

Img=NewBitmap(gheight,24)

g=Graphics.FromImage(Img)

g.DrawString(VNum,(NewFont("Arial",12)),(NewSolidBrush(Color.Red)),3,3)'在矩形內(nèi)繪制字串（字串，字體，畫筆顏色，左上x.左上y）

ms=NewMemoryStream()

Img.Save(ms,ImageFormat.Png)

Response.ClearContent()'需要輸出圖象信息要修改HTTP頭

Response.ContentType="image/Png"

Response.BinaryWrite(ms.ToArray())

g.Dispose()

Img.Dispose()

Response.End()

EndSub

'--------------------------------------------

'函數(shù)名稱:RndNum

'函數(shù)參數(shù):VCodeNum--設(shè)定返回隨機字符串的位數(shù)

'函數(shù)功能:產(chǎn)生數(shù)字和字符混合的隨機字符串

FunctionRndNum(ByValVcodeNum)

DimVcharAsString="0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F(xiàn)，G，H，I，J，K，L，M，N，O，P，Q，R，S，T，U，W，X，Y，Z"'需要使用中文驗證，可以修改這里和ValidateCode函數(shù)中的字體

DimVcArray()AsString=Split(Vchar,"，")'將字符串生成數(shù)組

DimVNumAsString=""

DimiAsByte

Fori=1ToVcodeNum

Randomize()

VNum=VNumVcArray(Int(35*Rnd()))'數(shù)組一般從0開始讀取，所以這里為35*Rnd

Next

ReturnVNum

EndFunction

/script

調(diào)用頁面：

demo.ASPx

scriptlanguage="VB"Runat="Server"

SubPage_Load(Senderasobject，easeventargs)

dimVNumasstring=Session("VNum")

Session.Abandon()

ViewState("VNum")=VNum

EndSub

'下面的事件代碼是用來測試驗證碼

SubbtnSubmit_click(senderasobject，easeventargs)

'判斷輸入的驗證碼與所給是否相同

IftxtValidateCode.Text=CStr(ViewState("VNum"))Then

ensonShow.text="fontcolor='red'提示:驗證通過/font"

Else

ensonShow.text="所填寫的驗證碼與所給的不符"

EndIf

EndSub

/script

html

body

formrunat="server"

divalign="center"

tablewidth="750"

tr

tdvalign="middle"驗證碼:/td

!--調(diào)用驗證圖片生成頁---

tdvalign="top"asp:Imageid="Image1"runat="server"ImageUrl="gif.aspx"http://td

/tr

tr

tdvalign="top"輸入驗證碼:/td

tdvalign="top"asp:textboxID="txtValidateCode"runat="server"TextMode="SingleLine"/fontcolor="#FF0000"size="2"*區(qū)分大小寫/font/td

/tr

tr

tdcolspan="2"valign="top"align="center"asp:buttonID="btnSubmit"runat="server"Text="驗證"onclick="btnSubmit_click"/

asp:labelID="ensonShow"runat="server"/

/td

/tr

/table

/div

/form

/body

/html

vb.net 做出類似這樣的驗證碼 白色字體，字形扭曲

這個是可以使用api來做的。圖像處理之類的函數(shù)。

另外，還有一種方法是將所有的字符和數(shù)字做成不同的小圖片進行拼接而成的一個字符串序列；

小圖片要自己去做；效果就可以任意展現(xiàn)了。

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

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

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

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

vb.net 怎么將網(wǎng)頁驗證碼顯示在窗體上

Dim CtrlRange As Object

On Error Resume Next

Do

Err.Clear()

CtrlRange = Ie.Document.Body.DomElement.createControlRange()

CtrlRange.Add(Ie.Document.DomDocument.GetElementById("verifypic"))

CtrlRange.execCommand("Copy") '獲取驗證碼

If Clipboard.ContainsData(DataFormats.Bitmap) Then

PictureBox1.Image = Clipboard.GetData(DataFormats.Bitmap) '在Picture1控件上顯示

End If

If Err.Number 0 Then WaitingMS(100) ‘延時

Loop While Err.Number 0

以前找的 vbnet里也可以用