找回密码
 加入网盟
分割线
官方精品推荐
来自死性不改论坛的网友 000000000 问:有没有谁用着比较好的时间校准的软件的,推荐一下。谢谢

华夏网盟提供:
时间同步工具:
https://www.hxwglm.com/thread-37725-1-1.html

大神 adev8088 提供以下AU3代码,自己编译一下就可以了:
  1. #NoTrayIcon
  2. #Include <Date.AU3>
  3. $http = ObjCreate("micROSoft.xmlhttp")
  4. $http.Open("Get","http://time.Windows.com/?" & _Now(),False)
  5. $http.Send("")
  6. $time = $http.GetResponseHeader("Date")
  7. $S = StringSplit("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
  8. For $i = 1 To 12
  9.         $time = StringReplace($time,$S[$i],$i)
  10. Next
  11. $S = StringSplit($time,", :")
  12. $tNew = _Date_Time_EncodeSystemTime($S[4],$S[3],$S[5],$S[6],$S[7],$S[8])
  13. _Date_Time_SetSystemTime(DllStructGetPtr($tNew))
复制代码


博主自己写的、提供以下AU3代码,自己下个AU3编译即可:
  1. #NoTrayIcon
  2. #include <Date.au3>
  3. #include <Array.au3>
  4. $new_Time= _Time("http://www.baidu.com")
  5. $Time = StringSplit($new_Time, " :/")
  6. $Year = $Time[1]
  7. $Mon = $Time[2]
  8. $Day = $Time[3]
  9. $Hour = $Time[4]
  10. $Min = $Time[5]
  11. $Sec = $Time[6]
  12. $tNew = _Date_Time_EncodeSystemTime($Mon, $Day, $Year, $Hour, $Min, $Sec)
  13. _Date_Time_SetLocalTime($tNew)  
  14. Func _Time($url)
  15.                 Local $mon,$DAY
  16.                 Local Const $yue[12] = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
  17.                 Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
  18.                 $oHTTP.open("GET", $url)
  19.                 $oHTTP.Send()
  20.                 $ResponseHeaders = $oHTTP.GetAllResponseHeaders()
  21.                 $GMT = StringRegExp($ResponseHeaders, "Date: ([\s\S]*?) GMT", 3)
  22.                 $array = StringSplit($GMT[0], " ")
  23.                 $year = $array[4]?
  24.                 $mon = $array[3]
  25.                 $time= $array[5]
  26.                 For $i=0  to 11
  27.                         If         $yue[$i] = $mon Then
  28.                                 $mon = $i+1
  29.                                 If $mon>10 Then
  30.                                         $mon = "0"&$mon
  31.                                 EndIf
  32.                         EndIf
  33.                 Next
  34.                 If $array[2]>10 Then
  35.                         $DAY = "0" & $array[2]
  36.                 Else
  37.                         $DAY = $array[2]
  38.                 EndIf
  39.         $nowtime = $year & "/" & $mon & "/" & $DAY & " " & $time  
  40.         $iDateCalc = _DateDiff('s', "1970/01/01 08:00:00", $nowtime )
  41.         $sNewDate = _DateAdd('s', $iDateCalc+8*60*60, "1970/01/01 08:00:00")
  42.         Return $sNewDate
  43. EndFunc
复制代码


大神 zhonghui3099 提供以下批处理命令:
  1. net time \\192.168.0.X /set /yes
复制代码

大神 zwfgdlc 提供以下批处理命令:
  1. w32tm /config /manualpeerlist:"time1.aliyun.com" /syncfromflags:manual /reliable:yes /update
  2. w32tm /resync
复制代码



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入网盟

x
分享至 : QQ空间
收藏

4 个回复

倒序浏览
lihuahui 列兵 2020-11-4 13:39:04
2#
非常感谢
回复 使用道具 举报
膜拜大神3秒钟
回复 使用道具 举报
{author} 感谢楼主分享
回复 使用道具 举报
yxhyxyx 列兵 2020-11-5 13:30:53
5#
支持,顶一下。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入网盟
关闭

华夏网盟推荐 上一条 /1 下一条