УϵͳʱVBS
Դ ASP
ʱ 2013-07-09
ƴ : ''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 |
ڿƼרҵṩáйܡҵʾ֡ȷ˾վhttp://www.lingzhong.cn Ϊ˸ͻ˽ļϢռԴ,ڿƼߵİȨ漰İȨбҪɾ£ϵϢDzɷָһ,Ҫתر,뱣Ϣлл! |
ܶ¸Ȥ
УϵͳʱVBS