vb 如何获取time.windows.com时间 来源：网页搜索 GO!
vb 如何获取time.windows.com时间 来源：网页搜索
比如在标签上显示当前时间
label1.caption=time$
在不同控件中有不同效果。比如在计时器中，能一直更换，但是在form click中
只能显示当前点时间。
不知道你明白了吗？
自己试试啊
good luck~
我想获得的是当前的北京时间。而不是我本计算机的系统时间。因为我的计算机的时间不准啊。
最佳答案 - 由投票者2008-10-30 10:22:30选出
用Winsock
代码:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim NoSrv As Boolean
Dim TimeFromNet
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
NetTime "www.time.ac.cn"
If NoSrv Or TimeFromNet = "" Then
NetTime "time.nist.gov"
If NoSrv Or TimeFromNet = "" Then
MsgBox "检测不到网络标准时间服务器time.nist.gov！"
Else
NetTime "time.nist.gov"
If TimeFromNet = "" Then
MsgBox "网络标准时间服务器time.nist.gov超时！"
Else
TimeFromNet = Mid(TimeFromNet, 17, 8)
TimeFromNet = TimeSerial((Hour(TimeFromNet) + 8) Mod 24, Minute(TimeFromNet), Second(TimeFromNet))
Time = TimeFromNet '设置系统时间
End If
End If
Else
NetTime "www.time.ac.cn"
If TimeFromNet = "" Then
MsgBox "网络标准时间服务器www.time.ac.cn超时！"
Else
Time = Mid(TimeFromNet, 12, 8) '设置系统时间
End If
End If
End
End Sub
Private Sub Winsock1_Close()
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
TimeFromNet = String(bytesTotal, " ")
Winsock1.GetData TimeFromNet, vbString, bytesTotal
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
NoSrv = True
End Sub
Private Sub NetTime(TimeSrv As String)
NoSrv = False
TimeFromNet = ""
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.RemoteHost = TimeSrv ' "www.time.ac.cn" 或 "time.nist.gov"
Winsock1.RemotePort = 13
Winsock1.LocalPort = 0
Winsock1.Connect
Do While TimeFromNet = ""
If NoSrv Then Exit Do
Sleep 55
DoEvents
Loop
If Winsock1.State <> sckClosed Then Winsock1.Close
End Sub
然后系统时间就准了。用time可以取到
#If you have any other info about this subject , Please add it free.# |