vb抓取网页内容(CF源代码短小精悍的连个短小精悍函数很不错收藏了(组图))

　　vb抓取网页内容(CF源代码短小精悍的连个短小精悍函数很不错收藏了(组图))

　　这两天一直在研究vb编程，想做一个软件，但是html源代码中某些区域的URL连接代码总是有问题。无奈了半天，百度也没找到好的。，不小心进了*敏*感*词*，然后看到了VB Nicole的百度空间，发现一个短小精悍的链接功能，很好用，解决了很久的郁闷问题，采集了。

　　推荐功能一：提取网页源代码。使用 XMLHTTP。不需要控制。当你再次打开它时，它会更快，因为 IE 缓存..所以它更快。

　　推荐功能2：提取网页内容。使用do循环..通用性非常高..从其他web源代码中提取基金信息、股息信息或内容。

　　================================================== ======

　　Private Sub Command1_Click()

　　调暗 a$, i&, burl$(), bname$(), bbz$(), bbb$()

　　a = HtmlStr("%CD%F8%C2%E7%D3%CE%CF%B7&word1=%D3%CE%CF%B7&pn=0&rn=500″)

　　a = FindStrMulti(a, “在线游戏”, “”, “”)

　　burl = Split(FindStrMulti(a, “”, vbCrLf), vbCrLf)

　　bname = Split(FindStrMulti(a, “target=_blank>”, “

　　”, vbCrLf), vbCrLf)

　　ReDim bbz(UBound(burl)), bbb(UBound(burl))

　　Text1 = Text1 & vbCrLf & “我正在分析...”

　　Text1 = Text1 & vbCrLf & "I found it" & UBound(burl) & "A game-like 贴吧..."

　　文本 1 = 文本 1 & vbCrLf

　　Text1 = Text1 & vbCrLf & “我正在继续分析……”

　　文本 1 = 文本 1 & vbCrLf

　　对于 i = 0 到 UBound(burl)

　　a = HtmlStr("" & burl(i))

　　a = FindStrMulti(a, ">Ba Master", "", ",")

　　bbz(i) = FindStrMulti(a, “target=_blank>”, “”, “,”)

　　bbb(i) = bname(i) & “:”& bbz(i)

　　下一个

　　Text1 = Text1 & vbCrLf & "结果出来了！下面：*^&^* ←←← VB Nicole" & vbCrLf

　　Text1 = Text1 & vbCrLf & String(60, “=”) & vbCrLf

　　Text1 = Text1 & vbCrLf & Join(bbb, vbCrLf)

　　结束子

　　Function HtmlStr$(url$)'提取网页源码功能