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

如题！

如果不正确，如何自动调整？

设置系统时间: 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