主题：[求助]QQServer

老师  您好

     我有很多地方要用到服务器的日期，所以就做了一个全局代码。

当用户登录时，写入服务器的当前日期，但是如果用户一直没有下线的话，这个日期就一直不变。

所以我想在服务端写个代码，当时间到00:01时，就把当前日期发送给所有在线用户，用户收到后再保存到全局代码中。

 

请问老师这个思路行不行，还有没有其它的思路。但是不知道服务端的代码要怎样写。谢谢老师

方法一：每次都直接访问服务器获取日期

 

http://www.foxtable.com/webhelp/scr/2318.htm

 

方法二：启动的时候，获取服务器时间，赋值给当前电脑

 

Dim d As Date = new Date(2017, 2, 24, 12, 3, 4)
Today = d
TimeOfDay = d

 

方法三：按照你的方法，做一个计时器，检测当前时间，满足，就给在线用户发信息，客户端接收到信息后，修改全局变量的值。

老师 请问这个计时器要怎么做？能不能帮我写下代码，谢谢

参考

 

http://www.foxtable.com/webhelp/scr/0657.htm