让系统时钟与百度同步—爱百度就与百度心连心

1、为什么要用百度时钟

为什么玩秒购总是慢半拍呢？不是设置了“自动与Internet时间服务器同步”吗？请听我再啰嗦几句。

国外的时间服务器本身没有问题，准得不得了，问题是，那是人家得东西，服务器架设在欧美，离我们远了去了，绕过99道弯到达我们电脑早绕晕了还能准吗？

再看我们的百度，服务器布满全国，您ping一下“www.baidu.com”，时延几ms，就像是隔壁的网关服务器一样。时延没有问题，时钟的准确度更不必怀疑，巨大的数据量往来调度没有一个精准的时钟是玩不转的，对百度老大还不放心吗？

2、动手做吧！

新建一个Excel文件改名为“百度时钟校对.xls”将其打开-->Alt+F11打开VBA窗口-->双击工程窗口的“ThisWorkbook”对象-->选择Workbook_Opne事件。

3、在“ThisWorkbook”的代码窗口中输入下面的代码：

Private Sub Workbook_Open()

    Application.Visible = False

    Dim XMLobj As Object

    Dim DateS, D As String

    Dim DateSys As Date

    On Error GoTo js

    Set XMLobj = CreateObject("Microsoft.XMLHTTP")

    Randomize   

    XMLobj.Open "Get", "http://www.baidu.com?n=33&Refresh=" & Rnd, False

    XMLobj.sEnd ""

    DateS = XMLobj.getResponseHeader("Date")

    Set XMLobj = Nothing    

    D = Mid(DateS, 6, 20)

    DateSys = CDate(D) + 8 / 24

    Date = DateSys

    Time = DateSys

    MsgBox "时钟校对成功！当前时间：" & DateSys

    Application.DisplayAlerts = False

    Application.Quit

    Application.DisplayAlerts = True

    Application.Visible = True

js:

End Sub

4、按F5运行一下试试。

没问题吧！存盘退出吧！

一个时钟校对工具做好了！

5、现在我们把这个小工具放在开机启动栏目里，让电脑每次启动的时候自动校对系统时间与百度同步。

1. 右击”百度时钟校对.xls“-->发送到-->桌面快捷方式。

2. 随便打开一个窗口，在地址栏输入一下内容：

C:\Documents and Settings\Administrator\「开始」菜单\程序\启动

3. 将快捷方式复制到启动文件夹。

6、OK！竣工大吉！

重启一下电脑试试吧！

现在您的电脑时钟与百度同步——爱百度就与百度心连心！