近日想做一个抓取网页时间（网页服务器的即时准确时间而非网页发布时间）的小软件，在网上搜到一段编码网址http://zhidao.baidu.com/question/88669743.html却不能返回时间，应该是我没弄明白吧。请各位老师教我如何用，越详细越好，本人菜死了。或帮忙弄好发给我nietongcom@也行，多谢了。

原文：
Private Sub command1_click()
WebBrowser1.navigate "http://www.
End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
a = WebBrowser1.document.body.innertext
s = Mid(a, InStr(a, "服务器时间：") + 6, 17)
If IsDate(s) = True Then Label1.Caption = "服务器时间：" & s
End Sub


部件 添加 mircosoft internet controls

 0

[ 本帖最后由 nietong 于 2010-11-2 20:48 编辑 ]

它这个网页,我没找到 提供时间服务的 字段,所以你这段代码是执行后取不到时间的.

Private Sub command1_click()              '按钮单击
WebBrowser1.navigate "http://www.            '打开网页 ,参数为网址
End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)                 '当网页完全打开时触发事件
a = WebBrowser1.document.body.innertext                                        '变量a 的内容为网页源代码.经浏览器格式化的代码,不是显示源代码的那些,稍有不同.
s = Mid(a, InStr(a, "服务器时间：") + 6, 17)               '变量s ,从变量a 中,查找 服务器时间: 这串字符串的位置开始,先向后移6(正好是这个字符串长度),再取17个字符
If IsDate(s) = True Then Label1.Caption = "服务器时间：" & s    '如果取到的是 时间 数据,那么显示出来.
End Sub