校准系统时间的VBS代码.pdfVIP

更新为自动判断时间格式， WIN7 XP 测试通过， WIN8 待测试， 主要是通过获取百度的 相关信息然后跟系统时间进行比较 代码如下 : VBS 校准系统时间 BY BatMannbsp; Dim objXML, Url, Messagenbsp; Message = 恭喜你，本机时间非常准确无需校对！ nbsp; Set objXML = CreateObject(MSXML2.XmlHttp)nbsp; Url = /special/time/nbsp; objXML.open GET, Url, Falsenbsp; objXML.send()nbsp; Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loopnbsp; Dim objStr, LocalDatenbsp; objStr = objXML.responseTextnbsp; LocalDate = Now()nbsp; Set objX