vb中提取网页中的数据

2024年11月30日 01:52

有1个网友回答

网友（1）：

提取网页中的某些数据用以下代码实现：
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