vb點(diǎn)虐 中如何利用api函數(shù)獲取網(wǎng)頁源代碼？？？

Dim MyClient As WebClient = New WebClient

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),烏拉特前企業(yè)網(wǎng)站建設(shè),烏拉特前品牌網(wǎng)站建設(shè),網(wǎng)站定制,烏拉特前網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,烏拉特前網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

Dim MyReader As New System.IO.StreamReader(MyClient.OpenRead(url), System.Text.Encoding.Default) '定義新的文件流并讀取網(wǎng)頁文件數(shù)據(jù)，url表示需要打開的網(wǎng)頁地址

Dim longTxt As String = MyReader.ReadToEnd 'longtxt存儲了網(wǎng)頁的源碼

MyReader.Close()

VB如何通過工程查看源代碼，如圖，這個樣子的

如果這個程序帶工程文件，你找到.vbp文件雙擊打開，然后在各窗體雙擊查看代碼。

如果沒有工程文件，你可以自己建一個工程文件，然后把這些窗體文件加入。

如果不想建你可以直接雙擊某個窗體文件，也能打開，打開后雙擊窗體，可以看到代碼。

如何用vb點(diǎn)虐 獲得網(wǎng)頁的源代碼

Dim url As String=" 網(wǎng)址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設(shè)置一個值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁源代碼

如何用vb點(diǎn)虐 獲取網(wǎng)頁源代碼

使用webbrowser控件來加載網(wǎng)頁，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通過使用WebBrowser1.Document.Body.

InnerHtml

來獲取網(wǎng)頁的源代碼，或使用

WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者

正則表達(dá)式

來精確獲取到你所需的數(shù)據(jù)。