VB如何制作自动校对时间?

我要的是我的系统时间对回北京时间

你是什么意思？？

我的代码的功能是 连接标准北京时间的网站 获取时间 然后更改你本机的系统时间为北京时间~和你的要求有什么不一样吗

Dim a, b, c, x, y

Private Sub Command1_Click()

Dim time As String

Dim day As String

Dim m As String

Dim n As String

WebBrowser1.navigate "http://bjtime.cn/"

s = a(0) &"-" &b(0) &"-" &c(0) &" " &y

If s <>"" Then

time = y

day = a(0) &"-" &b(0) &"-" &c(0)

m = "cmd /c time " &time

n = "cmd /c date " &day

Shell m

Shell n

Else

End If

End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)

z = WebBrowser1.document.body.innertext

x = Mid(z, InStr(z, "2009"), 9)

y = Mid$(z, InStr(z, "农历") + 7, 8)

a = Split(x, "年") 'a(0)为年

b = Split(a(1), "月") 'b(0)为月

c = Split(b(1), "日") 'c(0)为日

'Label1.Caption = "标准北京时间的：" &a(0) &"-" &b(0) &"-" &c(0) &" " &y

End Sub

添加一个按钮~~一个webbrowser控件 （部件-添加--microsoft internet control)

按下按钮将直接更改你 系统的时间（标准的北京时间~精确程度就取决你网速了。）

源码下载附件，解压缩用vb6打开，至于修改时间的权限，可以编译成exe后建立一个快捷方式，然后更改快捷方式的属性，设置为以管理员身份运行，可看以下图解照为设置，第一幅图里点“高级”按钮

---