VB.NET中抓取網(wǎng)頁亂碼怎么辦

這篇文章將為大家詳細(xì)講解有關(guān)VB.NET中抓取網(wǎng)頁亂碼怎么辦，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

舉一個小案例如下。以下為VB.Net抓取網(wǎng)頁的函數(shù)LobDotCn  注：url_Link為抓取的目標(biāo)頁面 IsGb2312為是否Gb2312字符。

VB.NET實用教程代碼：

Public Function LobDotCn(ByVal url_Link As String, ByVal IsGb2312 As Boolean)    On Error Resume Next  Dim XmlHttp As Object  XmlHttp = CreateObject("Microsoft.XMLHttp")  XmlHttp.Open("POST", url_Link, False)  XmlHttp.Send()  Dim WebContent As Object  Dim Str_WebContent As String  If IsGb2312 Then  WebContent = XmlHttp.ResponseBody  Str_WebContent = System.Text.Encoding.Default.GetString(WebContent)  Else  WebContent = XmlHttp.ResponseText  Str_WebContent = WebContent.ToString  End If  XmlHttp = Nothing LobDotCn = Str_WebContent End Function

調(diào)用方式 ：

變量  = LobDotCn("http://www.lob.cn", True)   '抓取 Gb2312網(wǎng)頁    
變量  = LobDotCn("此處填寫網(wǎng)址", False)    ' 抓取utf-8網(wǎng)頁

附Microsoft.XMLHttp組件的相關(guān)說明：
Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ）
◆bstrMethod：  數(shù)據(jù)傳送方式，即GET或POST。
◆bstrUrl：     服務(wù)網(wǎng)頁的URL。
◆varAsync：   是否同步執(zhí)行。缺省為True，即同步執(zhí)行，但只能在DOM中實施同步執(zhí)行。用中一般將其置為False，即異步執(zhí)行。
◆bstrUser：    用戶名，可省略。
◆bstrPassword：用戶口令，可省略。
Send（ varBody ）
◆varBody：指令集?？梢允荴ML格式數(shù)據(jù)，也可以是字符串，流，或者一個無符號整數(shù)數(shù)組。也可以省略，讓指令通過Open方法的URL參數(shù)代入。
◆setRequestHeader（ bstrHeader, bstrvalue ）
◆bstrHeader：HTTP 頭(header)
◆bstrvalue： HTTP 頭(header)的值

如果Open方法定義為POST，可以定義表單方式上傳：
xmlhttp.setRequestHeader（ "Content-Type", "application/x-www-form-urlencoded"）

XMLHTTP屬性：
◆onreadystatechange：在同步執(zhí)行方式下獲得返回結(jié)果的事件句柄。只能在DOM中調(diào)用。
◆responseBody：    結(jié)果返回為無符號整數(shù)數(shù)組。
◆responseStream：   結(jié)果返回為IStream流。
◆responseText ：    結(jié)果返回為字符串。
◆responseXML：    結(jié)果返回為XML格式數(shù)據(jù)。

關(guān)于“VB.NET中抓取網(wǎng)頁亂碼怎么辦”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。