主题：系统打开后如何自动检测当前电脑的日期时间是正确的？

设置系统时间: TimeOfDay = #17:21:10 AM# 或 TimeString = "17:21:10"

设置系统日期: Today = #7/8/2005# 或 DateString = "2005-7-8"

 获取北京时间，参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59358&replyID=398025&skin=1

Dim url As String = "http://foxtable.sinaapp.com/time/?f=Y-m-d H:i:s"
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    Dim stm As System.IO.Stream = rsps.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    stm.Dispose()
    Output.Show(str)
catch ex As exception
    msgbox(ex.Message)
End try