vb编程语言读取网页（vb 不用webbrowser 如何读取网页元素）

本文目录

• vb 不用webbrowser 如何读取网页元素
• VB.NET 如何获取网页中的数据
• VB如何提取网页内容
• vb如何获取当前IE中打开的网页源代码
• VB 获取网页源代码（成功后给分50）
• 如何用vb.net获取网页源代码
• VB如何获取网页动态数据
• VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢
• vb中如何实现提取网页内容
• VB如何获取网页的内容

vb 不用webbrowser 如何读取网页元素

***隐藏网址***
***隐藏网址***
***隐藏网址***
***隐藏网址***
Set html = CreateObject("htmlfile") ’这两行是把网页源码重新解析为html文档
***隐藏网址***
Set Acollection = html.All.tags("input") ’这是获取html中的所有input元素
……后面的代码就跟你的完全一样了
这种方式，只会下载网页的html代码，不会下载网页中包含的图片、脚本、样式表等数据，而且不需要渲染和显示出网页内容，所以速度比用WebBrowser控件要快得多。

VB.NET 如何获取网页中的数据

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
’启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据
On Error Resume Next
Dim Str_WebContent As String = "请输入查找网站地址."
Dim wb As WebClient = New WebClient() ’//创建一个WebClient实例
If mWebsiteUrl.IndexOf("://") 》 0 Then
’//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）
wb.Credentials = CredentialCache.DefaultCredentials
’//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
’//转换字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent ’提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent ’
End Function

VB如何提取网页内容

1、现将网页另存到本地磁盘，假设文件名为XXX.HTM；
2、用VB读取存好的XXX.HTM文件的全部内容到一个变量或文本框；
3、用搜索函数InStr()和取字串的函数Mid()来抽取出介于“》”和“《”之间的文本，再将其放入另一个文本框，就是你想要的东西。

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 获取网页源代码（成功后给分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.net获取网页源代码

使用webbrowser控件来加载网页，然后再
Private
Sub
WebBrowser
1_DocumentCompleted下通过使用WebBrowser1.Document.Body.
InnerHtml
来获取网页的源代码，或使用
WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者
正则表达式
来精确获取到你所需的数据。

VB如何获取网页动态数据

首先VB读取网页这个没有问题。网上源代码很多。
具体到你这个问题，关键要把网页数据提取出来。
这样需要文本处理。
这样说你可能觉得一头雾水，我也等于啥都没有说。
那么就事论事。你这个页面是通过网页框架内嵌了一个数据页面。，就是最后那个地址。
但是，这个页面也不负责数据，他只是一个显示数据的页面。通过post方法往后台获取数据。
***隐藏网址***
你打开这个后台数据页面，就明白我说的需要文本处理的意思了。
难度不大，但是很麻烦。至少得看明白他的文本结构，我就不深入了。解答到这里。
如果需要我做，你得有耐心等我有空。

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

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

2、网页显示(必须先用上面程序将源码保存为txt，并且在打开窗口里选择该txt文件！)：

拖进一个webbrowser1，一个commondialog1，一个command1.

Private  Sub Command1_Click()

CommonDialog1.ShowOpen

WebBrowser1.Navigate (CommonDialog1.FileName)

End Sub

vb中如何实现提取网页内容

在vb窗体上加入webBrowser控件，并加入一个时钟控件，设置为200毫秒，加入一个文本框
Private Sub Form_Load()
webBrowser1.Silent = True’屏蔽脚本错误提示
End Sub
Private Sub Command1_Click()
***隐藏网址***
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Web1.Busy Then ’如果网页还没完全打开则退出
Exit Sub
Else
Timer1.Enabled = False
Text1.Text = webBrowser1.Document.body.innerHtml ’获取网页源码
’Text1.Text = webBrowser1.Document.body.innerText ’获取网页文本
end if
End Sub

VB如何获取网页的内容

相关代码如下：

1、相关代码如下：
Public Function getHtmlStr(strUrl As String)   ’获取远程网页源码
    On Error Resume Next
    Dim XmlHttp As Object, stime, ntime
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.open "GET", strUrl, True
    XmlHttp.send
    stime = Now ’获取当前时间
    While XmlHttp.ReadyState 《》 4
    DoEvents
    ntime = Now ’获取循环时间
    If DateDiff("s", stime, ntime) 》 3 Then getHtmlStr = "": Exit Function
    Wend
    getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function
2、代码使用：在窗体代码相应位置写如下代码
dim a as string
a=getHtmlStr("要获取的网站网址url")
上面a取得的值就是我们要的结果。