VB网络校时.

最新推荐文章于 2015-06-08 14:53:37 发布

原创

最新推荐文章于 2015-06-08 14:53:37 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #网络 #sqlserver #microsoft #timer #文件同步

这篇博客介绍了一个VB程序，用于从多个天文台或国家授时中心获取精确时间，并将计算机的本地时间设置为获取的时间，确保误差在一秒以内。这对于需要高精度时间的场景，如SQL Server服务器同步和文件同步非常重要。

有时我们对某些场合,对系统时间的要求是很高的,例如:SQLSERVER服务器间的同步或文件同步.但计算机的时钟运行一段时间,会出现一个误差.时间长了,可能达分钟以上.下面程序可以解决这个问题.该程从各天文台或国家授时中心读取时间后,并设置为计算机的本地时间.误差在一秒以内.

 
 Option Explicit
Dim SvrName(14) As String
' 
Private Sub SetTime()
    On Error Resume Next
    
    Dim i As Long
    For i = 1 To 14
        With Winsock1(i)
            If .State = 9 Then Exit Sub
            If .State > 0 Then .Close
            .Connect SvrName(i), 13
        End With
    Next
    
    Timer2.Enabled = True
    labMsg.Caption = "开始校时..."
 