VB网络校时.

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

 

1. Option Explicit
3. Dim SvrName(14) As String
4. '
6. Private Sub SetTime()
8.     On Error Resume Next
9.     
10.     Dim i As Long
11.     For i = 1 To 14
12.         With Winsock1(i)
13.             If .State = 9 Then Exit Sub
14.             If .State > 0 Then .Close
15.             .Connect SvrName(i), 13
16.         End With
17.     Next
18.     
19.     Timer2.Enabled = True
20.     labMsg.Caption = "开始校时..."
21.