vb浏览器源代码

❶ 请问如何用VB获取网页源码

使用Inet控件获取网页源码。

Internet Transfer 控件实现了两种广泛使用的 Internet 协议： 超文本传送协议（HyperText Transfer
Protocol）(HTTP) 和文件传送协议（File Transfer Protocol） (FTP)。使用 Internet Transfer
控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。

PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub

❷ 如何用VB 获取网页源码 最好能给一个完整的步骤 谢谢！

在窗体上添加一个“Microsoft Internet transfer Control”控件，默认名称为Inet1，然后用下面一行代码就可以获得指定网页的源码了：
html = Inet1.OpenURL("网址写在这里")

❸ vb如何获取当前IE中打开的网页源代码

在窗体内加入控件text1(Multiline=true,scrollbars=2),timer1(interval=1000)，
然后在代码区复制下面代码，
运行，即可在text1内实时显示当前IE中打开的网页源代码：

Option Explicit
Dim oShellApp, oShellAppWindows, oWin
Dim UrlLst As String

Private Sub Timer1_Timer()
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.document)) = "htmldocument" Then
If InStr(1, UrlLst, oWin.locationurl, vbTextCompare) = 0 Then
UrlLst = UrlLst & oWin.locationurl & ","
Text1.Text = oWin.document.body.innerHTML
Me.Caption = oWin.locationname
End If
End If
Next
End Sub

❹ VB：如何通过VB获取某个网站的所有页面源代码

两种实现方式：
1、先用WebBrowser控件、iNet控件或xmlhttp组件获取网站首页代码（这个网上有一大堆介绍，就不啰嗦了），然后分析代码，找出其中的超链接，然后再逐个获取其页面代码，这里要注意的是，要区分外链和内链，外链就不要去获取代码了（否则的话如果网站上有个网络的链接，那么你的程序就要去获取网络的页面了）；另外还要控制获取的层数（比如说一级子页面是第二层，二级子页面是第三层），否则的话遇到大型网站你的程序很可能进入死循环。
2、利用浏览器的缓存来获取，主要是IE的缓存。windows系统有专门的对IE缓存进行读写操作的API函数。要想获取某个网站的源码，可以用IE打开这个网站，然后把里面的链接都手工点击一遍，使页面代码能被IE自动放入缓存文件夹中即可。当然，如果网站比较大，这个过程可能会比较繁复。然后再通过程序遍历IE的整个缓存系统，把与该网站相关的所有资源都提取出来。通过这种方法，不但可以提取HTML代码，还有js代码、css代码，以及页面上的所有图片、动画、视频等资源。我个人比较喜欢这种方法。

❺ 如何用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就是网页源代码

❻ VB 获取网页源代码（成功后给分50）

Private Function GetHtmlStr$(StrUrl$) '获取源码
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", StrUrl, False
XmlHttp.send
stime = Now '获取当前时间
While XmlHttp.ReadyState <> 4
DoEvents
ntime = Now '获取循环时间
If DateDiff("s", stime, ntime) > 3 Then GetHtmlStr = "": Exit Function '判断超出3秒即超时退出过程
Wend

GetHtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode)

Set XmlHttp = Nothing
End Function

❼ VB怎么获取网页源码

1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代码如下：
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)

2）用System.Net命空间下的HttpWebRequest来取得，代码如下：
Dim url As String=" http://mgxx520.blog.com.cn" ' 网址
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 webbrowser获取带框架网页的全部源代码

获取第1个框架的源代码：
WebBrowser1.Document.frames(0).Document.documentElement.outerHTML

遍历框架就可以得到所有的（WebBrowser1.Document.frames(0).count框架个数） ；

❾ 如何用vb webbrowser获取带框架网页的全部源代码

用vb webbrowser获取带框架网页的全部源代码，指令如下：

WebBrowser1.Document.frames(0).Document.documentElement.outerHTML

遍历框架就可以得到所有的（WebBrowser1.Document.frames(0).count框架个数）。

❿ VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢

1、提取：用这个vb小程序可以！