初学请教高手一段编码，关于取网页时间的，望不吝赐教谢谢
近日想做一个抓取网页时间（网页服务器的即时准确时间而非网页发布时间）的小软件，在网上搜到一段编码网址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 编辑 ]
