本篇內(nèi)容主要講解“VB.NET抓取網(wǎng)頁(yè)出現(xiàn)錯(cuò)誤如何解決”，感興趣的朋友不妨來(lái)看看。本文介紹的方法操作簡(jiǎn)單快捷，實(shí)用性強(qiáng)。下面就讓小編來(lái)帶大家學(xué)習(xí)“VB.NET抓取網(wǎng)頁(yè)出現(xiàn)錯(cuò)誤如何解決”吧!

成都創(chuàng)新互聯(lián)專注于企業(yè)營(yíng)銷型網(wǎng)站、網(wǎng)站重做改版、蕭縣網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5建站、商城系統(tǒng)網(wǎng)站開(kāi)發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為蕭縣等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。

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

以下為VB.NET抓取網(wǎng)頁(yè)的函數(shù)LobDotCn 注：url_Link為抓取的目標(biāo)頁(yè)面 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)頁(yè)的調(diào)用方式 ：

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

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

到此，相信大家對(duì)“VB.NET抓取網(wǎng)頁(yè)出現(xiàn)錯(cuò)誤如何解決”有了更深的了解，不妨來(lái)實(shí)際操作一番吧！這里是創(chuàng)新互聯(lián)網(wǎng)站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！