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 D足毂忍珩im 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 = Truejs:End Sub
4、按F5运行一下试试。没问题吧!存盘退出吧!一个时钟校对工具做好了!
5、现在我们把这个小工具放在开机启动栏目里,让电脑每次启动的时候自动校对系统时间与百度同步。1. 右击”百度时钟校对.xls“-->发送到-->桌面快捷方式。2. 随便打开一个窗口,在地址栏输入一下内容:C:\Documents and Settings\Administrator\「开始」菜单\程序\启动3. 将快捷方式复制到启动文件夹。
6、OK!竣工大吉!重启一下电脑试试吧!现在您的电脑时钟与百度同步——爱百度就与百度心连心!