包含vb.net原碼顯示網(wǎng)頁的詞條

vb 做個(gè)窗口,顯示網(wǎng)頁內(nèi)容

首先要添加一個(gè)Microsoft

成都創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的新吳網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

Web瀏覽器

控件

sub

page_load()

try

AxWebBrowser1.Anchor=AnchorStyles.Top

or

AnchorStyles.Botton

or

_

AnchorStyles.Left

or

AnchorStyles.Right

AxWebBrowser1.Navigate(ComboBox1.Text)'地址欄

catch

ex

as

exception

Msgbox(ex.Message)

end

try

end

sub

sub

ComboBox1_SelectedIndexChanged()

AxWebBrowser1.Navigate(combobox1.text)

end

sub

sub

combobox1_keypress()

if

asc(e.keychar)=system.windows.forms.keys.enter

then

AxWebBrowser1.Navigate(combobox1.text)'響應(yīng)回車,開始連接

end

if

end

sub

以上是在vb.net環(huán)境的代碼,在vb中控件的命名肯能有點(diǎn)不同,比如combobox在vb中是combox.

如何用vb.net獲取網(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ù)。

VB程序中顯示網(wǎng)頁

想只顯示一部分的話可以用“Scriplet”控件（工具箱右鍵－“部件...”－“Windows HTML Object Libary”），然后在屬性窗口填URL地址，很簡單。

想顯示全部可以用webbrowser控件來實(shí)現(xiàn)。

VB.net使用WebBrowser控件顯示網(wǎng)頁

當(dāng)然不行，那個(gè)是整個(gè)網(wǎng)頁的

要這樣

web1=webbrowser1

For i = 0 To Web1.Document.All.Count - 1

'要具體判斷是哪個(gè)控件還要看這兩個(gè)

'Web1.Document.All(i).TagName

'Web1.Document.All(i).Name

Text1.Text=Web1.Document.All(i).InnerText

Next i

如何用vb.net獲得網(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è)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

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

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

新聞標(biāo)題：包含vb.net原碼顯示網(wǎng)頁的詞條
標(biāo)題路徑：http://muchs.cn/article40/hjscho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、做網(wǎng)站、定制開發(fā)、搜索引擎優(yōu)化、App設(shè)計(jì)、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)