中财网卓人教育:vb.net实现图片验证码功能
来源：百度文库 编辑：中财网 时间：2024/05/06 00:25:26
实现过程，在需要调用的页面使用image控件调用验证码生成的页面，验证码生成的页面生成验证图片且将验证信息保存至Session中，调用页面中通过Session判断用户是否输入正确。道理是这样，以下看代码：
生成验证码页面：
gif.aspx
<%@ import namespace="System"%>
<%@ import namespace="System.io"%>
<%@ import namespace="System.Drawing"%>
<%@ import namespace="System.Drawing.Imaging"%>
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
'RndNum为生成随机码的函数，
Dim VNum As String = RndNum(4) '该值为生成验证码的位数
Session("VNum") = VNum '读取Session
ValidateCode(VNum) '根据Session生成图片
End Sub
'--------------------------------------------
'生成图象验证码函数
Sub ValidateCode(ByVal VNum)
Dim Img As System.Drawing.Bitmap
Dim g As Graphics
Dim ms As MemoryStream
Dim gheight As Integer = Int(Len(VNum) * 14)
'gheight为图片宽度，根据字符长度自动更改图片宽度
Img = New Bitmap(gheight, 24)
g = Graphics.FromImage(Img)
g.DrawString(VNum, (New Font("Arial", 12)), (New SolidBrush(Color.Red)), 3, 3) '在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
ms = New MemoryStream()
Img.Save(ms, ImageFormat.Png)
Response.ClearContent() '需要输出图象信息 要修改HTTP头
Response.ContentType = "image/Png"
Response.BinaryWrite(ms.ToArray())
g.Dispose()
Img.Dispose()
Response.End()
End Sub
'--------------------------------------------
'函数名称:RndNum
'函数参数:VcodeNum--设定返回随机字符串的位数
'函数功能:产生数字和字符混合的随机字符串
Function RndNum(ByVal VcodeNum)
Dim Vchar As String = "0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F，G，H，I，J，K，L，M，N，O，P，Q，R，S，T，U，W，X，Y，Z" '需要使用中文验证，可以修改这里和ValidateCode函数中的字体
Dim VcArray() As String = Split(Vchar, "，") '将字符串生成数组
Dim VNum As String = ""
Dim i As Byte
For i = 1 To VcodeNum
Randomize()
VNum = VNum & VcArray(Int(35 * Rnd())) '数组一般从0开始读取，所以这里为35*Rnd
Next
Return VNum
End Function
调用页面：
demo.aspx
Sub Page_Load(Sender as object，e as eventargs)
dim VNum as string=Session("VNum")
Session.Abandon()
ViewState("VNum")=VNum
End Sub
'下面的事件代码是用来测试验证码
Sub btnSubmit_click(sender as object，e as eventargs)
'判断输入的验证码与所给是否相同
If txtValidateCode.Text = CStr(ViewState("VNum")) Then
ensonShow.text = "提示:验证通过"
Else
ensonShow.text = "所填写的验证码与所给的不符"
End If
End Sub
验证码:
输入验证码:
*区分大小写
生成验证码页面：
gif.aspx
<%@ import namespace="System"%>
<%@ import namespace="System.io"%>
<%@ import namespace="System.Drawing"%>
<%@ import namespace="System.Drawing.Imaging"%>
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
'RndNum为生成随机码的函数，
Dim VNum As String = RndNum(4) '该值为生成验证码的位数
Session("VNum") = VNum '读取Session
ValidateCode(VNum) '根据Session生成图片
End Sub
'--------------------------------------------
'生成图象验证码函数
Sub ValidateCode(ByVal VNum)
Dim Img As System.Drawing.Bitmap
Dim g As Graphics
Dim ms As MemoryStream
Dim gheight As Integer = Int(Len(VNum) * 14)
'gheight为图片宽度，根据字符长度自动更改图片宽度
Img = New Bitmap(gheight, 24)
g = Graphics.FromImage(Img)
g.DrawString(VNum, (New Font("Arial", 12)), (New SolidBrush(Color.Red)), 3, 3) '在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
ms = New MemoryStream()
Img.Save(ms, ImageFormat.Png)
Response.ClearContent() '需要输出图象信息 要修改HTTP头
Response.ContentType = "image/Png"
Response.BinaryWrite(ms.ToArray())
g.Dispose()
Img.Dispose()
Response.End()
End Sub
'--------------------------------------------
'函数名称:RndNum
'函数参数:VcodeNum--设定返回随机字符串的位数
'函数功能:产生数字和字符混合的随机字符串
Function RndNum(ByVal VcodeNum)
Dim Vchar As String = "0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F，G，H，I，J，K，L，M，N，O，P，Q，R，S，T，U，W，X，Y，Z" '需要使用中文验证，可以修改这里和ValidateCode函数中的字体
Dim VcArray() As String = Split(Vchar, "，") '将字符串生成数组
Dim VNum As String = ""
Dim i As Byte
For i = 1 To VcodeNum
Randomize()
VNum = VNum & VcArray(Int(35 * Rnd())) '数组一般从0开始读取，所以这里为35*Rnd
Next
Return VNum
End Function
调用页面：
demo.aspx
Sub Page_Load(Sender as object，e as eventargs)
dim VNum as string=Session("VNum")
Session.Abandon()
ViewState("VNum")=VNum
End Sub
'下面的事件代码是用来测试验证码
Sub btnSubmit_click(sender as object，e as eventargs)
'判断输入的验证码与所给是否相同
If txtValidateCode.Text = CStr(ViewState("VNum")) Then
ensonShow.text = "
Else
ensonShow.text = "所填写的验证码与所给的不符"
End If
End Sub
ASP如何实现随机码验证功能？
(加急)ASP,NET中,用vb开发实现验证数据库的登陆界面,谁会??
VB能识别图片验证码吗
如何在ASP中实现验证码功能？
我想知道在vb.net里怎么实现自定义数据类型,就是实现C++中TypeDef一样的功能
怎么VB加法实现功能？
VB 日历功能的实现
VB如何实现会员密码验证
如何通过VB实现用户验证?
VB.net中的图片问题
VB.NET怎样实现导入导出文本文件
如何实现vb. net画四边形
vb.net 如何实现 sql的打包
用vb.net如何实现模拟键盘
在VB.NET中实现插件架构
用.net怎么实现rss功能
请问.net的回复功能怎么实现？
怎样用DreamweaverMX实现图片的验证系统!
如何实现数据统计功能（VB）？
vb如何实现调用数据库的功能
如何实现这样的VB功能
如何用VB实现这个功能?
如何利用VB实现这个功能?
如何用VB实现多媒体播放功能