编程小技巧 --用VB解决时间同步的问题

现在,许多C/S型的应用程序都要求客户机与服务器时间同步,大多数程序员用存储过程来解决这一问题,但存储过程编写起来有一定的难度。我在摸索中找到了一种方法,可以很好的解决这个问题。

Windows XP/2000中有一个命令:nettime。这个命令是用来读取服务器的时间,将客户机的系统时间设置为服务器的时间。以后当我们需要调用服务器时间的时候,可以直接读取本地时间,而读取本地时间对我们来说是很容易的。这样一来,问题就解决了。我们在程序启动前,使用shell函数加载net time命令,本地时间就和服务器时间一致了,而读取本地时间是很容易的。

Private Sub Form Load()

Dim tx As Integer

tx = Shell("net time dpca30517 /set /y", vb-Hide)

If tx=0Then

MsgBox”时间同步不成功",  vb( "C ritical+vbOKOnly,"时间同步"

Else

MsgBox  ”时间同步成功",vbInformation+vbOKOnly,  ”时间同步”

End If

End Sub

其中dpea30517为服务器的名称,以上程序在WinXP+VB6.0中运行通过。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值