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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET實(shí)用教程之抓取網(wǎng)頁亂碼解決方案

VB.NET實(shí)用教程教你調(diào)試VB.Net調(diào)用Microsoft.XMLHttp組件抓取網(wǎng)頁時(shí)，遇到抓取中文字符出現(xiàn)亂碼的問題，在這里給大家仔細(xì)分析一下，舉一個(gè)小案例如下。以下為VB.Net抓取網(wǎng)頁的函數(shù)LobDotCn  注：url_Link為抓取的目標(biāo)頁面 IsGb2312為是否Gb2312字符。

站在用戶的角度思考問題，與客戶深入溝通，找到綿竹網(wǎng)站設(shè)計(jì)與綿竹網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名與空間、虛擬主機(jī)、企業(yè)郵箱。業(yè)務(wù)覆蓋綿竹地區(qū)。

VB.NET實(shí)用教程代碼：

 
 
 
    
  
  
  
  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.

調(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中實(shí)施同步執(zhí)行。用中一般將其置為False，即異步執(zhí)行。
◆bstrUser：    用戶名，可省略。
◆bstrPassword：用戶口令，可省略。
Send（ varBody ）
◆varBody：指令集。可以是XML格式數(shù)據(jù)，也可以是字符串，流，或者一個(gè)無符號(hào)整數(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é)果返回為無符號(hào)整數(shù)數(shù)組。
◆responseStream：   結(jié)果返回為IStream流。
◆responseText ：    結(jié)果返回為字符串。
◆responseXML：    結(jié)果返回為XML格式數(shù)據(jù)。

以上就是VB.NET實(shí)用教程為你提供的一個(gè)完整的解決方法，希望對(duì)研究VB.Net抓取網(wǎng)頁或者VB.Net實(shí)現(xiàn)采集功能的朋友有所幫助。


網(wǎng)站標(biāo)題：VB.NET實(shí)用教程之抓取網(wǎng)頁亂碼解決方案
文章網(wǎng)址：http://www.dlmjj.cn/article/dpsjccs.html