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

首先要添加一個Microsoft

成都創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的新吳網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(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中控件的命名肯能有點不同,比如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控件來實現(xiàn)。

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

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

要這樣

web1=webbrowser1

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

'要具體判斷是哪個控件還要看這兩個

'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è)置一個值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

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

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