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.函数调用：
Dim strweb1 As String
strweb1=HtmlStr("http://www.baidu.com")
二、获取 WebBrowser 控件中网页源代码
1.函数代码：
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
2.调用
Dim strweb As String
strweb=WebDaima(frmIndex.WebBrowser1,"All") '获取整个网页源代码
strweb=WebDaima(frmIndex.WebBrowser1,"Body") '只获取 body 中源代码
三、提取字符串或网页源代码中指定的资源（可利用这一函数做文章采集器）
1.函数代码：
Public Function FindStrMulti$(Strall$, FirstStr$, EndStr$, SplitStr$) '提取字符串或网页源代码中所有指定
代码
'参数
'总文本,起始字符串,终止字符串,分隔符
Dim i&, j&
j = 1
Do
i = InStr(j, Strall, FirstStr)
If i = 0 Then
Exit Do
End If
i = i + Len(FirstStr)
剩余15页未读，继续阅读
资源评论
