VB.NET編程語言特點比較突出，它是一個真正的實現(xiàn)面向?qū)ο笠约爸С掷^承性的編程語言，其應(yīng)用范圍廣泛，功能強大，幫助開發(fā)人員大大提高了編程效率。在調(diào)試VB.NET調(diào)用Microsoft.XMLHttp組件抓取網(wǎng)頁時，遇到了抓取中文字符出現(xiàn)亂碼，經(jīng)測試若網(wǎng)頁meta標簽charset為utf-8的網(wǎng)頁不會亂碼，而charset為Gb2312的則會出現(xiàn)亂碼，本文提供了一個完整的解決方法，希望對研究VB.NET抓取網(wǎng)頁或者VB.NET實現(xiàn)采集功能的朋友有所幫助。

以下為VB.NET抓取網(wǎng)頁的函數(shù)LobDotCn 注：url_Link為抓取的目標頁面 IsGb2312為是否Gb2312字符

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  

VB.NET抓取網(wǎng)頁的調(diào)用方式 ：

變量 = LobDotCn("http://www.lob.cn", True) '抓取 Gb2312網(wǎng)頁

變量 = LobDotCn("此處填寫網(wǎng)址", False) ' 抓取utf-8網(wǎng)頁

【編輯推薦】

1. VB.NET讀取內(nèi)存具體代碼編寫方法
2. VB.NET類型轉(zhuǎn)換相關(guān)運算符應(yīng)用技巧分享
3. 四步完成VB.NET讀寫注冊表
4. VB.NET條件分支語句應(yīng)用方法概述
5. VB.NET控件數(shù)組正確使用方法分析