webbrowser相关操作大全--2：提取网页源码

最新推荐文章于 2024-07-19 00:13:51 发布

npen1452

最新推荐文章于 2024-07-19 00:13:51 发布

阅读量975

点赞数

本文链接：https://blog.csdn.net/mf0188_com/article/details/9963621

版权

本文介绍了两种提取网页源码的方法：使用XMLHTTP对象和WebBrowser控件。通过XMLHTTP对象的GET请求获取网页内容，而WebBrowser控件则能分别获取整个网页源码或<body>标签内的代码。提供了具体函数示例及应用实例。

摘要由CSDN通过智能技术生成

方法1：XMLHTTP对象

Public Function HtmlStr$(URL$) '提取网页源码函数
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", URL, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responsebody,vbUnicode)
End Function

方法2: WEBBROWSER控件

Public Function WebDaima(WebBrowser, BuFen) '获取WebBrowser控件中网页源代码
Select Case BuFen
    Case "Body"    '只获取<body>与</body>之间的代码
      WebDaima = WebBrowser.Document.body.innerhtml
    Case "All"     '获取整个网页源代码
      WebDaima =WebBrowser.Document.documentelement.outerhtml
    Case Else
      WebDaima =WebBrowser.Document.documentelement.outerhtml
End Select
End Function

Dim strweb As String
strweb=WebDaima(frmIndex.WebBrowser1,"All") '