提取网页中的某些数据用以下代码实现：
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024