Dim url As String=" 網(wǎng)址"
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供樂清網(wǎng)站建設(shè)、樂清做網(wǎng)站、樂清網(wǎng)站設(shè)計、樂清網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、樂清企業(yè)網(wǎng)站模板建站服務(wù),十多年樂清做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
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)頁源代碼
使用webbrowser控件來加載網(wǎng)頁,然后再 Private Sub WebBrowser1_DocumentCompleted下通過使用WebBrowser1.Document.Body.InnerHtml 來獲取網(wǎng)頁的源代碼,或使用 WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者正則表達(dá)式來精確獲取到你所需的數(shù)據(jù)。
有點困難……有一個方案,使用自身的webbrowser控件(瀏覽器控件)這樣簡單很多
不過系統(tǒng)附帶的webbrowser控件不帶這個接口的。
我有一個方案可以告訴你,不過我也不會做
1.導(dǎo)出網(wǎng)頁源碼
dim?a
a?=?WebBrowser1.DocumentText'這里的documenttext就是網(wǎng)頁的源碼,是純文本
'下面可以寫修改的代碼了
2.修改代碼,反正是txt純文本,這不需要說明了吧
3.修改完后保存為xml文件(保存代碼→百度一下保存txt文件,然后你把保存的txt后綴名改成xml就OK了)
4.將瀏覽器要顯示的網(wǎng)頁設(shè)定為剛才保存的xml文件就OK了
WebBrowser1.Navigate?“剛才保存的xml文件路徑.xml”'注:此處不需要等于號
分享標(biāo)題:vb.net網(wǎng)頁源碼 vb 網(wǎng)頁
URL鏈接:http://muchs.cn/article48/dospiep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設(shè)、App設(shè)計、App開發(fā)、軟件開發(fā)、動態(tài)網(wǎng)站、靜態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)