日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET抓取網(wǎng)頁出現(xiàn)錯誤解決方案

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標(biāo)簽charset為utf-8的網(wǎng)頁不會亂碼，而charset為Gb2312的則會出現(xiàn)亂碼，本文提供了一個完整的解決方法，希望對研究VB.NET抓取網(wǎng)頁或者VB.NET實現(xiàn)采集功能的朋友有所幫助。

創(chuàng)新互聯(lián)服務(wù)項目包括椒江網(wǎng)站建設(shè)、椒江網(wǎng)站制作、椒江網(wǎng)頁制作以及椒江網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，椒江網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到椒江省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

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

 
 
 
      
  
  
  1. Public Function LobDotCn(ByVal url_Link 
    As String, ByVal IsGb2312 As Boolean)   
    2.   
  
  
  2. On Error Resume Next   
    3.   
  
  
  3. Dim XmlHttp As Object   
    4.   
  
  
  4. XmlHttp = CreateObject("Microsoft.XMLHttp")   
    5.   
  
  
  5. XmlHttp.Open("POST", url_Link, False)   
    6.   
  
  
  6. XmlHttp.Send()   
    7.   
  
  
  7. Dim WebContent As Object   
    8.   
  
  
  8. Dim Str_WebContent As String   
    9.   
  
  
  9. If IsGb2312 Then   
    10.   
  
  
  10. WebContent = XmlHttp.ResponseBody   
    11.   
  
  
  11. Str_WebContent = System.Text.Encoding.
    Default.GetString(WebContent)   
    12.   
  
  
  12. Else   
    13.   
  
  
  13. WebContent = XmlHttp.ResponseText   
    14.   
  
  
  14. Str_WebContent = WebContent.ToString   
    15.   
  
  
  15. End If   
    16.   
  
  
  16. XmlHttp = Nothing   
    17.   
  
  
  17. LobDotCn = Str_WebContent   
    18.   
  
  
  18. End Function  
    19.

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ù)組正確使用方法分析

當(dāng)前題目：VB.NET抓取網(wǎng)頁出現(xiàn)錯誤解決方案
文章路徑：http://www.dlmjj.cn/article/dpighij.html