校准系统时间的VBS代码
导读：收集整理的这篇文章主要介绍了校准系统时间的VBS代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: 'vbS校准系统时间 BY BatMan Dim objXM...
收集整理的这篇文章主要介绍了校准系统时间的VBS代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: 'vbS校准系统时间 BY BatMan
Dim objXML, Url, Message
Message = "恭喜你，本机时间非常准确无需校对！"
Set objXML = CreateObject("MSXML2.XmlHttp")
Url = "http://oPEn.baidu.COM/special/time/"
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, h24
Arr = SplIT(TM, " ")
Arr1 = Split(Arr(1), ":")
h24 = Arr1(0)
If Arr(0) = "下午" Then
h24 = h24 + 12
Else
If h24 = 12 Then h24 = 0
End If
TM = h24 & ":" & 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 _
& "本机系统时间为：" & vbTab & LocalDate & vbCrLf _
& "与标准时间相差：" & vbTab & Abs(Num) & "秒" & vbCrLf & vbCrLf _
& "【校准后】" & vbCrLf _
& "本机系统时间为：" & vbTab & Now() & vbCrLf _
& "与标准时间相差：" & vbTab & Num1 & "秒"
Set objSHELL = Nothing
End If
WScript.Echo Message
您可能感兴趣的文章:
- 系统时间改为2000年 修改系统时间病毒
- javascript 显示当前系统时间代码
- sql server 获取系统时间的方法
- js显示当前系统时间的代码
- jQuery动态地获取系统时间实现代码
- Dos下获取系统时间的代码
- jsp实现页面实时显示当前系统时间的方法
- TextView显示系统时间(时钟功能带秒针变化
- asp.net中页面显示当前系统时间附图
- Android调用系统时间格式显示时间信息
- C#实现修改系统时间的方法
- C++设置系统时间及系统时间网络更新的方法
- C++获取当前系统时间的方法总结
- 利用线程实现动态显示系统时间
- java显示当前的系统时间
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 校准系统时间的VBS代码
本文地址： https://pptw.com/jishu/610006.html