不知道这种方法可以吗? 你向该网站发一个HTTP请求,然后去读取头信息,里面有时间的。 Private Sub Command1_Click()Winsock1.Connect End SubPrivate Sub Winsock1_Connect() Dim strCommand As String Dim strWebPage As String strWebPage = "http://www.sina.com.cn" strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf strCommand = strCommand + "Accept: */*" + vbCrLf strCommand = strCommand + "Accept: text/html" + vbCrLf strCommand = strCommand + vbCrLf Winsock1.SendData strCommand End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim webData As String Dim aa As Variant Dim bb As Variant Winsock1.GetData webData, vbString aa = Split(webData, "Date:") aa = Split(aa(1), "Content") If InStr(aa(0), "GMT") Then bb = Replace(aa(0), "GMT", "") bb = Trim(bb)Else bb = aa(0) End If Debug.Print bb End Sub
网站在一般只开80口,是没有的,除非有特别的服务功能.
所以我想可能可以,就问一下了,
据说 格林尼治时间有专门的 webservice服务器 但我也不知道该怎么获取
有人已经实现!一起努力吧!
有消息我什么通知你
你有进展后也要通知我! OK?这是我的帖子
http://expert.csdn.net/Expert/topic/2460/2460678.xml?temp=.4397089
你向该网站发一个HTTP请求,然后去读取头信息,里面有时间的。
Private Sub Command1_Click()Winsock1.Connect
End SubPrivate Sub Winsock1_Connect()
Dim strCommand As String
Dim strWebPage As String strWebPage = "http://www.sina.com.cn"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand = strCommand + vbCrLf Winsock1.SendData strCommand
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim webData As String
Dim aa As Variant
Dim bb As Variant
Winsock1.GetData webData, vbString
aa = Split(webData, "Date:")
aa = Split(aa(1), "Content")
If InStr(aa(0), "GMT") Then
bb = Replace(aa(0), "GMT", "")
bb = Trim(bb)Else
bb = aa(0)
End If
Debug.Print bb
End Sub