用VB编写局域网时间同步程序

转贴：

获得局域网内指定计算机的时间

我记得有网友问过如何获得局域网上服务器或其它计算机的时间，确实在一个应用系统中保持各客户端的时间一致是非常重要的，我们可 以在客户端程序中通过NetRemoteTOD函数获得局域网内指定计算机的时间（例如以该机时间作为大家时间同步的基准），然 后再以此时间设置本机时间，就可以保持各客户端的时间一致性。下面的代码就是1个通过指定计算机网络名或IP地址获得该机时间的 VB程序：

Option Explicit

'通过NetBIOS的netapi32.dll中的API函数NetRemoteTOD

'获得局域网内指定计算机的时间

'在FORM1中添加1个TEXT1和Command1控件

'将下列代码剪贴到代码窗体即可

Private Const NERR_SUCCESS = 0&

Private Type TIME_OF_DAY_INFO

tod_elapsedt As Long

tod_msecs As Long

tod_hours As Long

tod_mins As Long

tod_secs As Long

tod_hunds As Long

tod_timezone As Long

tod_tinterval As Long

tod_day As Long

tod_month As Long

tod_year As Long

tod_weekday As Long

End Type

Private Declare Function NetRemoteTOD Lib "netapi32" _

(UncServerName As Byte, BufferPtr As Long) As Long

Private Declare Function NetApiBufferFree Lib "netapi32" _

(ByVal lpBuffer As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(pTo As Any, uFrom As Any, ByVal lSize As Long)

Private Sub Command1_Click()

Dim CPT_Date As TIME_OF_DAY_INFO

Dim Str_Tmp As String

Dim N_Data As Date

CPT_Date = GetRemoteTOD(Text1.Text)

N_Data = DateAdd("s", CPT_Date.tod_elapsedt, #1/1/1970#) '将获得的秒数转换为当前GMT(UTC)时间

N_Data = DateAdd("n", -CPT_Date.tod_timezone, N_Data) '再转化为本地时间（北京时间）

If Text1.Text = "" Then

Str_Tmp = "本机" '若Text1.Text为空，则获得本机余禅时间

Else

Str_Tmp = Text1.Text

End If

Str_Tmp = Str_Tmp &"计算机当前时间雀桐为：" &N_Data

MsgBox Str_Tmp

End Sub

'获得顷毁坦局域网内指定计算机的时间

'CPT_Name为计算机名字，也可以为IP地址，若为空则为本机时间

Private Function GetRemoteTOD(ByVal CPT_Name As String) As TIME_OF_DAY_INFO

Dim bCPT_Name() As Byte

Dim tod As TIME_OF_DAY_INFO

Dim bufptr As Long

CPT_Name = Trim(CPT_Name)

If CPT_Name <>vbNullChar And CPT_Name <>"" Then '计算机名不为空

If Left$(CPT_Name, 2) <>"\" Then

CPT_Name = "\" &CPT_Name '计算机名前加2条\

End If

End If

bCPT_Name = CPT_Name &vbNullChar

'获得指定计算机的日期时间

If NetRemoteTOD(bCPT_Name(0), bufptr) = NERR_SUCCESS Then

'复制buffer的TIME_OF_DAY_INFO结构数据到tod

CopyMemory tod, ByVal bufptr, LenB(tod)

End If

Call NetApiBufferFree(bufptr) '释放buffer内存

GetRemoteTOD = tod

End Function

这种架构一般用在以下三类场景

1. 备份多台 Server 的数据到一台如果按照数据切分方向来讲，那就是垂直切分。比如图 2，业务 A、B、C、D 是之前拆分好的业务，现在需要把这些拆分好的业务汇总起来备份，那这种需求也很适用于多源复制架构。实现方法我大概描述下：业务 A、B、C、D 分别位于 4 台 Server，每台 Server 分别有一个数据库来隔离前端的业务数据，那这样，在从库就能把四台业务的数据全部汇总起来，而不需要做额外的 *** 作。那没有多源复制之前，要实现这类需求，只能在汇总茄汪伍机器上搭建多个颤或 MySQL 实例，那这样势必会涉及到跨库关联的问题，不但性能急剧下降，管理多个实例也没有单陵郑台来的容易。

2. 用来聚合前端多个 Server 的分片数据。

同样，按照数据切分方向来讲，属于水平切分。比如图 3，按照年份拆分好的数据，要做一个汇总数据展现，那这种架构也非常合适。实现方法稍微复杂些：比如所有 Server 共享同一数据库和表，一般为了开发极端透明，前端配置有分库分表的中间件，比如爱可生的 DBLE。

3. 汇总并合并多个 Server 的数据

第三类和第一种场景类似。不一样的是不仅仅是数据需要汇总到目标端，还得合并这些数据，这就比第一种来的相对复杂些。比如图 4，那这样的需求，是不是也适合多源复制呢？答案是 YES。那具体怎么做呢？

---