求时间同步vb代码

Question

我是一个新手，想编写一个小程序，在程序中有一个“时间同步”按钮，点击以后我的程序时间就可以与服务器同步时间，请各位大侠指点迷津，最好说的详细一点

Answer 1

Private Sub Command1_Click()
Dim NowTime As String
NowTime = Format(Now, "yyyymmddhhmmss")  '年月日时分秒 例如20090225195405，
                                               '格式可以自己设，如NowTime = Format(Now, "yyyy-mm-dd hh:mm:ss")就成了2009-02-25 19:54:05
                                         '还可以NowTime = Format(Now, "yyyymmdd")  或 NowTime = Format(Now, "hhmmss")
                                         '想要什么格式的随你
print NowTime
End Sub

Answer 2

2楼误解了吧 他想要的大概是shell time url /set/yes 这类的

Answer 3

打字打丢了关键词Net
shell "net time \url /set/y" 
好象就这样的

Answer 4

晕了 键盘感觉总是跑
shell "net time \\url /set/yes"