校准系统时间的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

赞 (0)

相关推荐

  • asp.net中页面显示当前系统时间附图

    asp.net中页面显示当前系统时间附图

    复制代码 代码如下: <p class="time">当前系统时间:<script type="text/javascript"> today = new Date(); function initArray() { this.length = initArray.arguments.length for (var i = 0; i < this.length; i++) this[i + 1] = initArray.argument

  • C++获取当前系统时间的方法总结

    本文实例讲述了C++获取当前系统时间的方法.分享给大家供大家参考.具体如下: 方案- 优点:仅使用C标准库:缺点:只能精确到秒级 #include <time.h> #include <stdio.h> int main( void ) { time_t t = time(0); char tmp[64]; strftime(tmp,sizeof(tmp),"%Y/%m/%d %X %A 本年第%j天 %z",localtime(&t)); puts(

  • jQuery动态地获取系统时间实现代码

    jQuery部分代码: 复制代码 代码如下: <script type="text/javascript"> function current(){ var d=new Date(),str=''; str +=d.getFullYear()+'年'; //获取当前年份 str +=d.getMonth()+1+'月'; //获取当前月份(0--11) str +=d.getDate()+'日'; str +=d.getHours()+'时'; str +=d.getMin

  • java显示当前的系统时间

    java显示当前的系统时间

    编写Applet小程序,通过在HTML文档中接收参数,用不同颜色.字体显示当前的系统时间. Ex4_1.java import java.awt.*; import java.applet.Applet; import java.util.Calendar; public class Ex4_1 extends Applet { Calendar now; private String s1; private int size,color; public void init() { now=Ca

  • javascript 显示当前系统时间代码

    1.在<head></head>中加入下列代码 复制代码 代码如下: <script language=JavaScript> var timerID = null; var timerRunning = false; function stopclock (){ if(timerRunning) clearTimeout(timerID); timerRunning = false;} function startclock () { stopclock(); sho

  • TextView显示系统时间(时钟功能带秒针变化

    我们开启一个线程,线程每隔一秒发送一次消息,我们在消息中更新TextView上显示的时间就ok了. 首先我们在布局文件中放一个TextView用来显示时间,如下所示: 复制代码 代码如下: <?xml version="1.0" encoding="utf-8"?><LinearLayout  xmlns:android="http://schemas.android.com/apk/res/android"  android:

  • Android调用系统时间格式显示时间信息

    使用如下方法: 复制代码 代码如下: java.text.DateFormat dateFormat = android.text.format.DateFormat.getDateFormat(context); dateFormat = android.text.format.DateFormat.getTimeFormat(context.getApplicationContext());

  • C#实现修改系统时间的方法

    本文所述C#获取和修改系统时间的实现步骤为:系统的时间从 SystemTime 结构体中取出,并显示在textBox1上,从setDate,setTime控件中获取年,月,日,小时,分钟,秒信息,存入SystemTime结构体中,然后使用SetLocalTime(ref systemTime)设置为用户指定的时间.本代码编译后会有一个易于操作的窗体. 完整功能代码如下: using System; using System.Drawing; using System.Collections; u

  • 利用线程实现动态显示系统时间

    编写Applet小程序,通过在HTML文档中接收参数, 用不同颜色.字体显示当前的系统时间. import java.awt.*; import java.applet.Applet; import java.util.*; import java.awt.Graphics; public class clock extends Applet implements Runnable //继承Applet类并实现Runnable接口 { Thread clockThread=null; //创建一

  • Dos下获取系统时间的代码

    复制代码 代码如下: rem DOS get current time  rem =======================  rem get yyyy/mm/dd  set mydate=%DATE:~0,10%  echo %mydate%  rem =======================  rem get yyyy  set yyyy=%DATE:~0,4%  echo %yyyy%  rem =======================  rem get mm  set m

  • sql server 获取系统时间的方法

    Sql Server 中一个非常强大的日期格式化函数: 获得当前系统时间,GETDATE(): 2008年01月08日 星期二 14:59 Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2008 10:57AM Select CONVERT(varchar(100), GETDATE(), 1): 05/16/08 Select CONVERT(varchar(100), GETDATE(), 2): 08.05.16 Select CONV

  • js显示当前系统时间的代码

    js获取当前系统时间 复制代码 代码如下: var myDate = new Date();      myDate.getYear();        //获取当前年份(2位)      myDate.getFullYear();    //获取完整的年份(4位,1970-????)      myDate.getMonth();       //获取当前月份(0-11,0代表1月)      myDate.getDate();        //获取当前日(1-31)      myDate

  • C++设置系统时间及系统时间网络更新的方法

    本文实例讲述了C++设置系统时间及系统时间网络更新的方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: //根据返回的时间设置系统时间 void setTimeFromTP(ULONG ulTime) {      FILETIME ft;      SYSTEMTIME st;        //将基准时间转换成windows文件时间      st.wYear = 1900;      st.wMonth = 1;      st.wDay = 1;      st.wHo

  • 系统时间改为2000年 修改系统时间病毒

    具体问题具体分析(SRENG日志本文略).如下为本问题的解决方案 请仔细阅读,看懂后操作. 进行如下操作前,请不要进行任何双击打开磁盘的操作.所有下载的工具都直接放桌面上. 1.关闭系统还原(Windows 2000系统可忽略该步) 2.强制删除如下的文件, 建议采用xdelbox 或者 powerRMV(可到down.45it.com下载)等工具.如果提示某文件不存在,请忽略之继续填入下一个直到完成. c:\windows\system32\rsjzapm.dll c:\windows\sys

  • jsp实现页面实时显示当前系统时间的方法

    JS代码 复制代码 代码如下: <script language="javascript"> function realSysTime(clock){ var now=new Date(); //创建Date对象 var year=now.getFullYear(); //获取年份 var month=now.getMonth(); //获取月份 var date=now.getDate(); //获取日期 var day=now.getDay(); //获取星期 var

随机推荐