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 Class
①.)使用MICROSOFT INTERNET TRANSFER CONTROL的,代码如下:
Dim strhtml As String
Dim STRURL As String
STRURL=""
strhtml = Inet1.OpenURL(STRURL)
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就是网页源代码.
Dim c
Private Sub Form_Load()
URL = ""
c = 0
WebBrowser1.Navigate URL
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
WebBrowser1.Document.body.innerhtml = tmp
如下两种方法,
采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用.
url.dll
FileProtocolHandler
")
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
使用webbrowser控件来加载网页,然后再
Private
Sub
WebBrowser
①._DocumentCompleted下通过使用WebBrowser1.Document.Body.
InnerHtml
来获取网页的源代码,或使用
WebBrowser1.Document.Body.InnerText来获取网页中的文本.之后可以通过字符串控制指令或者
正则表达式
来精确获取到你所需的数据.
Dim url As String=" 网址"
httpReq.KeepAlive = False ' 获取或设置一个值,该值指示是否与
Internet资源建立持久连接.
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
以上就是土嘎嘎小编为大家整理的vbnet浏览器源码相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!