У׼ϵͳʱ¼äµÄVBS´úÂë
×÷Õß ØýÃû
À´Ô´ ASP±à³Ì
ä¯ÀÀ
·¢²¼Ê±¼ä 2013-07-09
¸´ÖÆ´úÂë ´úÂëÈçÏÂ: ''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 |
ÁèÖڿƼ¼×¨ÒµÌṩ·þÎñÆ÷×âÓᢷþÎñÆ÷Íйܡ¢ÆóÒµÓʾ֡¢ÐéÄâÖ÷»úµÈ·þÎñ£¬¹«Ë¾ÍøÕ¾£ºhttp://www.lingzhong.cn ΪÁ˸ø¹ã´ó¿Í»§Á˽â¸ü¶àµÄ¼¼ÊõÐÅÏ¢£¬±¾¼¼ÊõÎÄÕÂÊÕ¼¯À´Ô´ÓÚÍøÂç,ÁèÖڿƼ¼×ðÖØÎÄÕÂ×÷ÕߵİæȨ£¬Èç¹ûÓÐÉæ¼°ÄãµÄ°æȨÓбØҪɾ³ýÄãµÄÎÄÕ£¬ÇëºÍÎÒÃÇÁªÏµ¡£ÒÔÉÏÐÅÏ¢ÓëÎÄÕÂÕýÎÄÊDz»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúҪתÔر¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»! |
Äã¿ÉÄܶÔÏÂÃæµÄÎÄÕ¸ÐÐËȤ
¹ØÓÚУ׼ϵͳʱ¼äµÄVBS´úÂëµÄËùÓÐÆÀÂÛ