vb.net验证图片的简单介绍

vb.net中怎么判断图片的类型

1-有扩展名，依据扩展名判断（这个简单）

成都创新互联主营江海网站建设的网络公司,主营网站建设方案,重庆APP开发公司,江海h5成都微信小程序搭建,江海网站营销推广欢迎江海等地区企业咨询

2-没有扩展名，比如给你个图片文件image,文件没有扩展名，可以通过以下方式进行判断，但同时如果确定是图片且系统支持的类型，则无需关心文件类型，直接读取到Image就可以，系统也是依据以下的方式判断

1.JPEG【判断文件开始2字节与结束2字节】

- 文件头标识 (2 bytes): $ff, $d8 (SOI) (JPEG 文件标识)

- 文件结束标识 (2 bytes): $ff, $d9 (EOI)

2.TGA

- 未压缩的前5字节 00 00 02 00 00

- RLE压缩的前5字节 00 00 10 00 00

3.PNG

- 文件头标识 (8 bytes) 89 50 4E 47 0D 0A 1A 0A

4.GIF

- 文件头标识 (6 bytes) 47 49 46 38 39(37) 61

G I F 8 9 (7) a

5.BMP

- 文件头标识 (2 bytes) 42 4D

B M

6.PCX

- 文件头标识 (1 bytes) 0A

7.TIFF

- 文件头标识 (2 bytes) 4D 4D 或 49 49

8.ICO

- 文件头标识 (8 bytes) 00 00 01 00 01 00 20 20

9.CUR

- 文件头标识 (8 bytes) 00 00 02 00 01 00 20 20

10.IFF

- 文件头标识 (4 bytes) 46 4F 52 4D

F O R M

11.ANI

- 文件头标识 (4 bytes) 52 49 46 46

R I F F

vb.net 怎么将网页验证码显示在窗体上

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里也可以用

asp.net vb怎样制作图片验证码

实现过程，在需要调用的页面使用image控件调用验证码生成的页面，验证码生成的页面生成验证图片且将验证信息保存至Session中，调用页面中通过Session判断用户是否输入正确。道理是这样，以下看代码：

生成验证码页面：

gif.ASPx

%@importnamespace="System"%

%@importnamespace="System.io"%

%@importnamespace="System.Drawing"%

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

scriptlanguage="VB"runat="server"

SubPage_Load(ByValSenderAsObject,ByValeAsEventArgs)

'RndNum为生成随机码的函数，

DimVNumAsString=RndNum(4)'该值为生成验证码的位数

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

ValidateCode(VNum) '根据Session生成图片

EndSub

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

'生成图象验证码函数

SubValidateCode(ByValVNum)

DimImgAsSystem.Drawing.Bitmap

DimgAsGraphics

DimmsAsMemoryStream

DimgheightAsInteger=Int(Len(VNum)*14)

'gheight为图片宽度，根据字符长度自动更改图片宽度

Img=NewBitmap(gheight,24)

g=Graphics.FromImage(Img)

g.DrawString(VNum,(NewFont("Arial",12)),(NewSolidBrush(Color.Red)),3,3)'在矩形内绘制字串（字串，字体，画笔颜色，左上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

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

'函数名称:RndNum

'函数参数:VCodeNum--设定返回随机字符串的位数

'函数功能:产生数字和字符混合的随机字符串

FunctionRndNum(ByValVcodeNum)

DimVcharAsString="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函数中的字体

DimVcArray()AsString=Split(Vchar,"，")'将字符串生成数组

DimVNumAsString=""

DimiAsByte

Fori=1ToVcodeNum

Randomize()

VNum=VNumVcArray(Int(35*Rnd()))'数组一般从0开始读取，所以这里为35*Rnd

Next

ReturnVNum

EndFunction

/script

调用页面：

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

!--调用验证图片生成页---

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

/tr

tr

tdvalign="top"输入验证码:/td

tdvalign="top"asp:textboxID="txtValidateCode"runat="server"TextMode="SingleLine"/fontcolor="#FF0000"size="2"*区分大小写/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