vb中提取网页中的数据

提取网页中的某些数据用以下代码实现：

Set h = CreateObject("Microsoft.XMLHTTP")

h.Open "GET", "你所要提取信息的网页完整地址", False

h.Send

If h.ReadyState = 4 Then

s = StrConv(h.Responsebody, vbUnicode)

End If

If InStr(s, "本账号已使用时间：") >0 And InStr(s, "分钟") >0 Then

Text1.Text = Split(Split(s, "本账号已使用时间：")(1), "分钟")(0)'提取出来的时间

Else

MsgBox "信息提取失败"

End If

VB中处理网页文件好象只有这个控件,它是IE的内核,功能已经很强大了.

你遇到的问题我估计是因为网页中使用了框架,你可以这么处理

因为框架网页其实也是由两个或更多的单独网页构成的,所以你也可以把构成框架网页的其中一个页单独打开来浏览,这样做后,就可以用webbrowser.document来取得数据了.

这就有点难的。首先你得用VB实现HTTP协议，

才能与像IE浏览器一样的软件通信，才可以谈

“如何获取浏览器POST数据”的问题了。

不建议你这样做，你可以用WEBBROWSE控件

来实现，该控件本身已经就是像IE浏览器一样

可直接载入网页，要获取POST数据之话，

只需在该控件的事件中写代码就可以了

---