vb获得网络时间的函数（历史上最全最完整最可靠的函数）