vbnet浏览器源码,vb 浏览器

VB.NET自己做的网页浏览器

vb.net2008， 网上找的，网页没加载完可能会出错

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

WebBrowser1.Navigate("")

End Sub

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

Dim urlNew

e.Cancel = True

urlNew = WebBrowser1.Document.ActiveElement.GetAttribute("href")

WebBrowser1.Navigate(urlNew)

End Sub

End Class

VB怎么获取网页源码

1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代码如下：

Dim strhtml As String

Dim STRURL As String

STRURL=""

strhtml = Inet1.OpenURL(STRURL)

2）用System.Net命空间下的HttpWebRequest来取得，代码如下：

Dim url As String=" " ' 网址

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就是网页源代码.

vb.NET webbrowser 修改网页源码

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 '这个是为了防止这个过程无限执行下去

c = c + 1

tmp = WebBrowser1.Document.body.innerhtml

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

WebBrowser1.Document.body.innerhtml = tmp

End Sub

如何编写vb.net程序，打开IE浏览器

如下两种方法，

1，

采用默认的浏览器打开FTP站点,不需要知道IE在什么地方，建议采用。

Shell("rundll32

url.dll

FileProtocolHandler

")

2，采用IE打开，只要更改为你的ie路径就可以了。不建议使用这个方法。

Shell("C:\Program

Files\Internet

Explorer\iexplore.exe

")

如何用vb.net获取网页源代码

使用webbrowser控件来加载网页，然后再

Private

Sub

WebBrowser

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

InnerHtml

来获取网页的源代码，或使用

WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者

正则表达式

来精确获取到你所需的数据。

如何用vb.net获得网页的源代码

Dim url As String=" 网址"

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就是网页源代码