Question

vb 如何获取网页的指定内容？？

内容如下
<td>
网上学时
</td>
<td>
5小时33分钟
</td>
<td>
18小时27分钟
</td>
<td>
24小时
</td>
我想获取 5小时33分钟 和 18小时27分钟 这两串数据，InStr改怎么用 0.0 求大神
<div class="clear">
</div>
<div class="schedule_con">
<div id="Div1">
<table cellpadding="0" cellspacing="0" class="schconlist">
<tr>
<th>
分类
</th>
<th>
在线学时
</th>
<th>
未完成学时
</th>
<th>
规定学时
</th>
</tr>

<tr >
<td>
网上学时
</td>
<td>
5小时33分钟
</td>
<td>
18小时27分钟
</td>
<td>
24小时
</td>
</tr>

这段完整一点的 0.0 实在没分了 各位请见谅

Answer 1

vb6,新建一个工程粘贴以下代码,马上运行,一切OK!!!!!!
Private Sub Form_Load()
a = getHTTPPage(")
b = Split(a, "[")(1)
c = Split(b, "]")(0)
MsgBox c
End Sub
Function getHTTPPage(url)
On Error Resume Next
  Dim http
  Set http = CreateObject("MSXML2.XMLHTTP")
 http.Open "GET", url, False
   getHTTPPage = http.Send()
'MsgBox http.ReadyState
  If http.ReadyState <> 4 Then
  MsgBox "无法连接服务器"
      Exit Function
  End If
  getHTTPPage = BytesToBstr(http.responseBody, "GB2312")
  Set http = Nothing
End Function
Function BytesToBstr(body, Cset)
      Dim objstream
      Set objstream = CreateObject("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