VB6源代码：获取服务器时间