Ϸ_йѶ$

ǰλãҳ > > ITר > űĿ
У׼ϵͳʱVBS
Դ Ķ1621 ڣ2016-06-30 11:34:35
ܰʾСΪˡУ׼ϵͳʱVBS롱,Ѳģ

ΪԶжʱʽWIN7 XPͨWIN8ԣҪͨȡٶȵϢȻϵͳʱбȽ

:

'VBSУ׼ϵͳʱ BY BatMan 

Dim objXML, Url, Message 

Message = "ϲ㣬ʱdz׼ȷУԣ" 

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 

йϢ鿴űĿ
ڸIJϵ仯ṩпϢѯظο뿼ȨŹʽϢѯΪ׼

2025ʡγ

  • ֻ
  • ֤
| ϵ | ˲Ƹ | վ | վ | ʽļҪѯ | Ҫѯ֪ | Ⱥ | ֻվ | Ͷ߽
ҵϢţICP2023014141-1 Ϸ_йѶ$ ṫ53010202001879 Դ֤ƣ˷֤֣20230102001523
רͼ
ϵ绰0871-65099533/13759567129 ȡƸϢѯעںţhfpxwx
ѯQQ5261504429:0018:00Ȩ:
רͼ