這篇文章給大家分享的是有關(guān)如何使用vbs校準系統(tǒng)時間的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)閬中,十年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

代碼如下:

'VBS校準系統(tǒng)時間 BY BatMan
Dim objXML, Url, Message
Message = "恭喜你，本機時間非常準確無需校對！"
Set objXML = CreateObject("MSXML2.XmlHttp")
Url = "/tupian/20230522/error.html
objXML.open "GET", Url, False
objXML.send()
Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loop
Dim objStr, LocalDate
objStr = objXML.responseText
LocalDate = Now()
Set objXML = Nothing
Dim objREG, regNum
Set objREG = New RegExp
objREG.Global = True
objREG.IgnoreCase = True
objREG.Pattern = "window.baidu_time\((\d{13,})\)"
regNum = Int(objREG.Execute(objStr)(0).Submatches(0)) /1000
Dim OldDate, BJDate, Num, Num1
OldDate = "1970-01-01 08:00:00"
BJDate = DateAdd("s", regNum, OldDate)
Num = DateDiff("s", LocalDate, BJDate)
If Abs(Num) >=1 Then
Dim DM, DT, TM, objSHELL
DM = DateAdd("S", Num, Now())
DT = DateValue(DM)
TM = TimeValue(DM)
If InStr(Now, "午") Then
Dim Arr, Arr1, h34
Arr = Split(TM, " ")
Arr1 = Split(Arr(1), ":")
h34 = Arr1(0)
If Arr(0) = "下午" Then
h34 = h34 + 12
Else
If h34 = 12 Then h34 = 0
End If
TM = h34 & ":" & Arr1(1) & ":" & Arr1(2)
End If
Set objSHELL = CreateObject("Wscript.Shell")
objSHELL.Run "cmd /cdate " & DT, False, True
objSHELL.Run "cmd /ctime " & TM, False, True
Num1 = Abs(DateDiff("s", Now(), BJDate))
Message = "【校準前】" & vbCrLf _
& "標準北京時間為：" & vbTab & BJDate & vbCrLf _
& "本機系統(tǒng)時間為：" & vbTab & LocalDate & vbCrLf _
& "與標準時間相差：" & vbTab & Abs(Num) & "秒" & vbCrLf & vbCrLf _
& "【校準后】" & vbCrLf _
& "本機系統(tǒng)時間為：" & vbTab & Now() & vbCrLf _
& "與標準時間相差：" & vbTab & Num1 & "秒"
Set objSHELL = Nothing
End If
WScript.Echo Message

感謝各位的閱讀！關(guān)于“如何使用vbs校準系統(tǒng)時間”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

文章標題：如何使用vbs校準系統(tǒng)時間-創(chuàng)新互聯(lián)
本文URL：http://www.rwnh.cn/article32/jhpsc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、軟件開發(fā)、網(wǎng)頁設(shè)計公司、網(wǎng)站制作、虛擬主機、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)