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

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

成都創(chuàng)新互聯(lián)從2013年創(chuàng)立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務公司，擁有項目網(wǎng)站設(shè)計制作、做網(wǎng)站網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元漣水做網(wǎng)站,已為上家服務,為漣水各地企業(yè)和個人服務,聯(lián)系電話:028-86922220

那首先要 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里也可以用

求一個vb.net寫的驗證碼？

建一個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是用于處理由像素數(shù)據(jù)定義的圖像

Dim g As Graphics = Graphics.FromImage(Img) 'Graphics.FromImage 從指定的Image創(chuàng)建新的Graphics

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

Dim ms As MemoryStream = New MemoryStream '創(chuàng)建其支持存儲區(qū)為內(nèi)存的流。

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

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

當前名稱：vb.net讀取驗證碼,vb驗證碼代碼
文章網(wǎng)址：http://chinadenli.net/article39/dseieph.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、品牌網(wǎng)站設(shè)計、服務器托管、做網(wǎng)站、企業(yè)建站、定制開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)