下载后可任意编辑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 Stringstrweb1=HtmlStr("http://www.baidu.com") 二、猎取 WebBrowser 控件中网页源代码 1.函数代码：Public Function WebDaima(WebBrowser, BuFen) '猎取 WebBrowser 控件中网页源代码 Select Case BuFen Case "Body" '只猎取与之间的代码 WebDaima = WebBrowser.Document.body.innerhtml Case "All" '猎取整个网页源代码 WebDaima = WebBrowser.Document.documentelement.outerhtml Case Else WebDaima = WebBrowser.Document.documentelement.outerhtml End SelectEnd Function 2.调用Dim strweb As Stringstrweb=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) j = InStr(i, Strall, EndStr) If j > 0 Then FindStrMulti = IIf(Len(FindStrMulti) > 0, FindStrMulti & SplitStr, "") & Mid(Strall, i, j - i) Else Exit Do End If LoopEnd Function 2.函数调用 截取字符串中的内容Dim str1 As StringDim str2 As Stringstr1 = "
