- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 系统打开后如何自动检测当前电脑的日期时间是正确的？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61210)
-- 发布时间：2014/12/8 22:54:00
-- 系统打开后如何自动检测当前电脑的日期时间是正确的？
如题！
如果不正确，如何自动调整？
-- 发布时间：2014/12/8 23:01:00
--
设置系统时间: TimeOfDay = #17:21:10 AM# 或 TimeString = "17:21:10"
设置系统日期: Today = #7/8/2005# 或 DateString = "2005-7-8"
-- 发布时间：2014/12/8 23:02:00
--
获取北京时间，参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59358&replyID=398025&skin=1
-- 发布时间：2014/12/8 23:19:00
--
谢了
-- 发布时间：2014/12/8 23:51:00
--
加入代码后测试成功，但是不能保证百分百正常。
出现过两次错误。
一次是不能正确解析。
一次是我故意断网，然后无法解析。
问题：如何保证解析不成功时，循环解析，直到成功？
-- 发布时间：2014/12/8 23:53:00
--
-- 发布时间：2014/12/8 23:55:00
--
加入代码后测试成功，但是不能保证百分百正常。
出现过两次错误。
一次是不能正确解析。
一次是我故意断网，然后无法解析。
问题：如何保证解析不成功时，循环解析，直到成功？
此主题相关图片如下：qq图片20150101235705.jpg
-- 发布时间：2014/12/9 8:09:00
--
网络不稳定吧
-- 发布时间：2014/12/9 9:05:00
--
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
-- 发布时间：2014/12/9 9:50:00
--
ok