时间自动校验源代码,使用AU3编写。
#NoTrayIcon
#Include
$http = ObjCreate("microsoft.xmlhttp")
$http.Open("Get","http://time.windows.com/?" & _Now(),False)
$http.Send("")
$time = $http.GetResponseHeader("Date")
$S = StringSplit("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
For $i = 1 To 12
$time = StringReplace($time,$S[$i],$i)
Next
$S = StringSplit($time,", :")
$tNew = _Date_Time_EncodeSystemTime($S[4],$S[3],$S[5],$S[6],$S[7],$S[8])
_Date_Time_SetSystemTime(DllStructGetPtr($tNew))
领取专属 10元无门槛券
私享最新 技术干货