vb中怎么抓取网页中的特定信息比如我要抓google中的信息我先在google中输入xx把返回的所有的数据中，取数
vb中怎么抓取网页中的特定信息
比如我要抓google中的信息
我先在google中输入"xx"
把返回的所有的数据中，取数据中域名
比如返回如下格式：
事实恒等式
http://www.xxx.com/dddd.asp?....
我要取www.xxx.com
请教如何取这样的值
之前有参考过这个代码
http://blog.csdn.net/zou_seafarer/archive/2008/01/23/2061405.aspx
但是好象要抓google的比较的难
不太一样，很多垃圾信息！
请大侠帮下忙！
[解决办法]
- VBScript code
Private Sub Command1_Click()Dim x() As String, i As Long, j As Long, url As Stringurl = "http://www.google.cn/search?num=100&q=" & InputBox("Please enter something to search:", "Info", "Olympic")For j = 0 To 5WebBrowser1.Navigate url & "&start=" & j * 100While WebBrowser1.BusyDoEventsWendx = Filter(Filter(Split(WebBrowser1.Document.body.innerhtml, "</a></nobr></div>", , vbTextCompare), "<br><span class=a>www.", , vbTextCompare), ".com/ -", , vbTextCompare)For i = 0 To UBound(x)x(i) = Replace(Replace("www." & Split(Split(x(i), "<br><span class=a>www.", , vbTextCompare)(1), ".com/ -", , vbTextCompare)(0) & ".com", "<b>", "", , , vbTextCompare), "</b>", "", , , vbTextCompare)If Not x(i) Like "*.*.*.*" Then List1.AddItem x(i)NextNextEnd Sub