vb点虐 如何使用HttpWebRequest模拟登陆带验证码的网站

一般登陆网站时候首先要打开一个网页对吧？

创新互联公司致力于互联网品牌建设与网络营销，包括网站设计制作、成都网站设计、SEO优化、网络推广、整站优化营销策划推广、电子商务、移动互联网营销等。创新互联公司为不同类型的客户提供良好的互联网应用定制及解决方案，创新互联公司核心团队十载专注互联网开发，积累了丰富的网站经验，为广大企业客户提供一站式企业网站建设服务，在网站建设行业内树立了良好口碑。

那首先要 GET 一个网址。GetResponse后，得到的流就是这个页面的源码。

源码里肯定会包含这个验证码的提问段（可能是个图片的网址，也可能是个 5+5=？ 之类的字符串之类的），可以分析一下这段代码出现的位置，让程序自动寻找。找到这个图片的网址，把这个图片 GET 下来，然后，就是orc识别或你人工识别咯。。。

vb点虐 做出类似这样的验证码 白色字体，字形扭曲

这个是可以使用api来做的。图像处理之类的函数。

另外，还有一种方法是将所有的字符和数字做成不同的小图片进行拼接而成的一个字符串序列；

小图片要自己去做；效果就可以任意展现了。

谁会用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点虐 写的验证码？

建一个YanzhenCard.aspx文件

保留%@ Page Language="VB" AutoEventWireup="false" CodeFile="YanzhenCard.aspx.vb" Inherits="YanzhenCard" %,其余删除

如下是代码:

Imports System.IO

Imports System.Drawing

Partial Class YanzhenCard

Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

Dim VNum As String = GenerateRandom(4)

Session("VNum") = VNum

ValidateCode(VNum)

End If

End Sub

Private Sub ValidateCode(ByVal VNum As String)

Dim Gheight As Integer = CType((VNum.Length * 15), Integer)

Dim Img As Bitmap = New Bitmap(Gheight, 20) 'Bitmap是用于处理由像素数据定义的图像

Dim g As Graphics = Graphics.FromImage(Img) 'Graphics.FromImage 从指定的Image创建新的Graphics

g.DrawString(VNum, New Font("Arial", 12), New SolidBrush(Color.Red), 5, 0) 'g.DrawString()在指定位置并且用指定的Brush和Font对象绘制指定的文本字符串。

Dim ms As MemoryStream = New MemoryStream '创建其支持存储区为内存的流。

Img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)

Response.ClearContent()

Response.ContentType = "image/PNG"

Response.BinaryWrite(ms.ToArray)

Response.Write(VNum)

g.Dispose()

Img.Dispose()

Response.End()

End Sub

Private Shared constant As Char() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}

Public Shared Function GenerateRandom(ByVal Length As Integer) As String

Dim newRandom As System.Text.StringBuilder = New System.Text.StringBuilder(26)

Dim rd As Random = New Random

Dim i As Integer = 0

While i Length

newRandom.Append(constant(rd.Next(26)))

System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)

End While

Return newRandom.ToString

End Function

End Class

调用方法:asp:ImageButton ID="Yanzhengma_Card" runat="server" ImageUrl="YanzhenCard.aspx" Height="20px" Width="75px" BorderColor="#6699cc" BorderStyle="Solid" BorderWidth="1px" /

分享名称：包含vb点虐 识别验证码的词条
转载注明：http://kswjz.com/article/ddsjocj.html