求时间同步vb代码

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



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

--------------------编程问答--------------------

引用 1 楼 ajunajun 的回复:

VB code
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")
…

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

引用 2 楼 fzx4936 的回复:

引用 1 楼 ajunajun 的回复:

VB code
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")  或 N…

打字打丢了关键词Net
shell "net time \url /set/y"
好象就这样的 --------------------编程问答-------------------- 晕了键盘感觉总是跑
shell "net time \\url /set/yes"

补充：VB ,  基础类