关于网页上的信息！
我想在VB的label控件里显示网页上的一个信息怎么做。
拿csdn举例：登录后，都会有一个。欢迎您：XXX 可用分XXX，总信誉分：XXX
可是这些XXX都是不确定的。我想在登录时后自动在三个label里显示这三个值，怎么做？希望大大们帮
我。小弟不胜感激！
问题点数：0、回复次数：3Top
1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-01 13:54:44 得分 0
你首先要检测是在什么tag里面，就是类似与<span><p> <a>等等标记，首先要判断这个，用
getelementsbytagname的方法Top
2 楼jnghlng（龙门一族）回复于 2005-04-01 14:32:37 得分 0
有例子可以参考一下吗？我是门外汉！谢谢了。Top
3 楼cly2004（学习ing！）回复于 2005-04-01 15:01:05 得分 0
模块中
Option Explicit
Dim HTTP As XMLHTTP
Public Function GetTheContent(src As String) As String '窃取目标URL地址的HTML代码/方法
Set HTTP = New XMLHTTP
If src <> "" Then
HTTP.open "GET", src, False
HTTP.send
If HTTP.readyState <> 4 Then
Exit Function
End If
GetTheContent = BytesToBstr(HTTP.responseBody, "GB2312")
Set HTTP = Nothing
If Err.Number <> 0 Then Err.Clear
Else
GetTheContent = "no source"
End If
End Function
Private Function BytesToBstr(body, Cset) As String '中文处理
Dim objstream As New ADODB.Stream
objstream.Type = 1
objstream.Mode = 3
objstream.open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function
窗体
Option Explicit
Private Sub Command1_Click()
Dim freeNO As Integer
Dim strGet As String
freeNO = FreeFile
strGet = GetTheContent(Text1.Text)
If strGet = "" Then
MsgBox "get failed"
Exit Sub
End If
Dim i As Long
i = InStr(1, strGet, "星期", vbTextCompare) + 3
Print Mid(strGet, i - Len("2005年03月31日 星期四"), Len("2005年03月31日 星期四"))
Print Len("2005年03月31日 星期四")'取得人民网上的日期
End Sub
Top
