主题：怎么提取网页中的数据
wangmin0920
[专家分：0] 发布于 2010-12-31 10:05:00
各位大虾你们好，请教一下如何提取里面的流量数据呢？不知道webBrowser里面的空间怎么使用。请高手指点迷津、谢谢。附件还是那张图[img]http://hiphotos.baidu.com/wangmin0920/pic/item/10fa8e518fe4fa6a43a75b7d.jpg[/img]
回复列表 （共4个回复）
沙发
wangmin0920 [专家分：0] 发布于 2010-12-31 10:06:00
附件也能直接显示啊，不晓得。
板凳
prof [专家分：90] 发布于 2011-03-08 11:19:00
多年中小型项目开发经验，熟悉VB，VBA，Delphi和.NET平台，如有需要请联系QQ：3 8 3 1 4 7 8 1 8 请注明：pfan
3 楼
lijiaoyand [专家分：50] 发布于 2011-11-20 12:30:00
这个用起来会不会麻烦些。
SIGNATURE:-----------------------------------
Life is not merely living but living in health.
[url=http://www.4bootssale.com/ugg-bailey-button-triplet-c-32.html]ugg bailey button triplet[/url] , [url=http://www.4bootssale.com/ugg-bailey-button-bomber-c-39.html]ugg bailey button bomber[/url] , [url=http://www.4bootssale.com/ugg-bailey-button-krinkle-c-31.html]ugg bailey button krinkle[/url]
4 楼
老大徒悲伤 [专家分：660] 发布于 2011-11-24 00:49:00
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://www.126.com", False
http.send
If http.readystate <> 4 Then Exit Sub
S1 = http.responsetext
i1 = InStr(S1, "本帐号已使用时间 :")
If i1 > 0 Then
S1 = Mid(S1, i1 + Len("本帐号已使用时间 :") + 1)
i2 = InStr(S1, "分钟")
If i2 > 0 Then
S2 = Left(S1, i2 - 1)
Do While InStr(S2, ">")
i1 = InStr(S2, "<")
i2 = InStr(S2, ">")
If i1 > 0 And i2 > i1 Then
S2 = Left(S2, i1 - 1) + Mid(S2, i2 + 1)
End If
Loop
End If
End If
i1 = InStr(S1, "本帐号已使用流量 :")
If i1 > 0 Then
S1 = Mid(S1, i1 + Len("本帐号已使用流量 :") + 1)
i2 = InStr(S1, "MByte")
If i2 > 0 Then
S3 = Left(S1, i2 - 1)
Do While InStr(S3, ">")
i1 = InStr(S3, "<")
i2 = InStr(S3, ">")
If i1 > 0 And i2 > i1 Then
S3 = Left(S3, i1 - 1) + Mid(S3, i2 + 1)
End If
Loop
End If
End If
MsgBox (S2 + Chr(13) + Chr(10) + S3)
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 怎么提取网页中的数据