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

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

10余年的臨沭網(wǎng)站建設經(jīng)驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同，自動調(diào)整臨沭建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“臨沭網(wǎng)站設計”,“臨沭網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

Private

Sub

WebBrowser

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

InnerHtml

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

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

正則表達式

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

如何用vb點虐 獲得網(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 ' 獲取或設置一個值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

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

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

vb.NET webbrowser 修改網(wǎng)頁源碼

Dim c

Private Sub Form_Load()

URL = ""

c = 0

WebBrowser1.Navigate URL

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If c = 1 Then Exit Sub '這個是為了防止這個過程無限執(zhí)行下去

c = c + 1

tmp = WebBrowser1.Document.body.innerhtml

tmp = Replace(tmp, "88753967", "好玩嗎？")

WebBrowser1.Document.body.innerhtml = tmp

End Sub

vb點虐 webbrowser 網(wǎng)頁源碼中查找某個某個字符串

dim lc as long

lc=InStr(1, WebBrowser1.Document.body.innerhtml, "下載完畢！")

lc大于零的話說明包含，否則說明不包含。