這次我們主要講解一下daytime協(xié)議和時間協(xié)議相關(guān)服務(wù)的問題，讓我們一起來了解一下daytime協(xié)議、時間協(xié)議的內(nèi)容吧。在一個局域網(wǎng)中,許多系統(tǒng)都要求每臺計算機能夠保持時間的一致性,WIN2000系統(tǒng)提供了與主域服務(wù)器時間同步功能,即工作站只要登錄到主域服務(wù)器,工作站系統(tǒng)的時間自動與主域服務(wù)器時間一致,但接下來的問題是我們?nèi)绾问怪饔蚍?wù)器的時間同步世界標(biāo)準(zhǔn)時間.如要獲得世界標(biāo)準(zhǔn)時間,比較精確的做法是使用GPS衛(wèi)星時鐘獲得毫秒級精度的標(biāo)準(zhǔn)時間,但這是要money的哦.如果我們在時間精度上只需要秒級的,又能夠連接到Internet,則我們可以利用Internet上的標(biāo)準(zhǔn)時間服務(wù)器獲得標(biāo)準(zhǔn)時間.

事實上在Internet上有三個不同的時間服務(wù),每一個都由Request for Comment（RFC）定義為Internet日期時間標(biāo)準(zhǔn).這三個標(biāo)準(zhǔn)分別為:RFC-867、RFC-868和RFC-1305.下面就先介紹RFC-867:

RFC867 Daytime協(xié)議(RFC867 Daytime Protocol)

本RFC規(guī)范了一個ARPA Internet community上的標(biāo)準(zhǔn).在ARPA Internet上的所有主機應(yīng)當(dāng)采用和實現(xiàn)這個標(biāo)準(zhǔn).

一個有用的測量和調(diào)試工具就是daytime協(xié)議服務(wù).它的作用就是返回當(dāng)前時間和日期,格式是字符串格式.

◆基于TCP的daytime服務(wù)

daytime服務(wù)是基于TCP的應(yīng)用,服務(wù)器在TCP端口13偵聽,一旦有連接建立就返回ASCII形式的日期和時間(接收到的任何數(shù)據(jù)被忽略),在傳送完后關(guān)閉連接.

◆基于UDP的daytime協(xié)議服務(wù)

daytime服務(wù)也可以使用UDP協(xié)議,它的端口也是13,不過UDP是用數(shù)據(jù)報傳送當(dāng)前時間的.接收到的數(shù)據(jù)被忽略.

◆Daytime格式

對于daytime協(xié)議沒有特定的格式,建議使用ASCII可打印字符,空格和回車換行符.daytime應(yīng)該在一行上.

下面是兩種流行的格式:

一種流行的格式是:Weekday, Month Day, Year Time-Zone

例子:Tuesday, February 22, 1982 17:37:43-PST

另一種流行的格式用于SMTP中:dd mmm yy hh:mm:ss zzz

例子:02 FEB 82 07:59:01 PST

注意:對于機器來說,有用的時間采用了時間協(xié)議（Time Protocol RFC-868)

接下來我們用VB程序?qū)崿F(xiàn)通過RFC867協(xié)議設(shè)置我們自己的計算機系統(tǒng)時間,為使程序簡化,程序未進行日期校正,只進行時間校正.在FORM1中添加1個Winsock控件,將下面代碼剪貼到FORM1的代碼窗體中即可:

Option Explicit

采用RFC867 Daytime協(xié)議獲取標(biāo)準(zhǔn)時間例程

www.time.ac.cn為中科院國家授時中心,采用北京時間

時間格式:Mon Jul 26 09:58:57 2004

time.nist.gov為美國標(biāo)準(zhǔn)技術(shù)院,采用格靈威時間

時間格式:53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST) *  
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  
Dim NoSrv As Boolean  
Dim TimeFromNet  
Private Sub Form_Load()  
Winsock1.Protocol = sckTCPProtocol '采用TCP協(xié)議  
NetTime "www.time.ac.cn" '首先取中科院國家授時中心時間  
If NoSrv Or TimeFromNet = "" Then 

若未取到中科院國家授時中心時間,則取美國標(biāo)準(zhǔn)技術(shù)院時間

NetTime "time.nist.gov"  
If NoSrv Or TimeFromNet = "" Then 

若不能取美國標(biāo)準(zhǔn)技術(shù)院時間,則報錯

MsgBox "檢測不到網(wǎng)絡(luò)標(biāo)準(zhǔn)時間服務(wù)器time.nist.gov!"  
Else 

為使網(wǎng)絡(luò)傳輸誤差減小,第2次再取美國標(biāo)準(zhǔn)技術(shù)院時間

NetTime "time.nist.gov" 
If TimeFromNet = "" Then  
MsgBox "網(wǎng)絡(luò)標(biāo)準(zhǔn)時間服務(wù)器time.nist.gov超時!" 
Else  
TimeFromNet = Mid(TimeFromNet, 17, 8)  
TimeFromNet = TimeSerial((Hour(TimeFromNet) + 8) Mod 24, Minute(TimeFromNet), Second(TimeFromNet))  
Time = TimeFromNet '設(shè)置系統(tǒng)時間  
End If  
End If  
Else 

為使網(wǎng)絡(luò)傳輸誤差減小,第2次再取中科院國家授時中心時間#p#

NetTime "www.time.ac.cn" 
If TimeFromNet = "" Then  
MsgBox "網(wǎng)絡(luò)標(biāo)準(zhǔn)時間服務(wù)器www.time.ac.cn超時!" 
Else  
Time = Mid(TimeFromNet, 12, 8) '設(shè)置系統(tǒng)時間  
End If  
End If  
End  
End Sub 

關(guān)閉Winsock子程序

Private Sub Winsock1_Close()  
If Winsock1.State <> sckClosed Then  
Winsock1.Close  
End If  
End Sub 

Winsock接收數(shù)據(jù)事件

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
TimeFromNet = String(bytesTotal, " ")  
Winsock1.GetData TimeFromNet, vbString, bytesTotal  
End Sub 

Winsock出錯事件

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)  
NoSrv = True  
End Sub 

從互聯(lián)網(wǎng)上標(biāo)準(zhǔn)時間提供網(wǎng)站獲取標(biāo)準(zhǔn)時間

Private Sub NetTime(TimeSrv As String)  
NoSrv = False  
TimeFromNet = "" 
If Winsock1.State <> sckClosed Then Winsock1.Close  
Winsock1.RemoteHost = TimeSrv ' "www.time.ac.cn" 或 "time.nist.gov" 
Winsock1.RemotePort = 13  
Winsock1.LocalPort = 0  
Winsock1.Connect  
Do While TimeFromNet = "" '循環(huán)等待標(biāo)準(zhǔn)時間網(wǎng)站返回時間數(shù)據(jù)  
If NoSrv Then Exit Do '若Winsock出錯,則跳出循環(huán)等待  
Sleep 55  
DoEvents  
Loop  
If Winsock1.State <> sckClosed Then Winsock1.Close  
End Sub 

上面介紹了RFC-867標(biāo)準(zhǔn)和VB例程,顯然RFC-867標(biāo)準(zhǔn)采用返回當(dāng)前時間和日期的格式是字符串格式以及對于daytime協(xié)議沒有特定的格式（例如:中科院國家授時中心為"Mon Jul 26 09:58:57 2004",而美國標(biāo)準(zhǔn)技術(shù)院為"53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST)"）,這2點似乎都不是太舒服,因此我們希望Internet上的標(biāo)準(zhǔn)時間服務(wù)器***能夠返回具有標(biāo)準(zhǔn)格式的數(shù)字類型數(shù)據(jù),其實RFC在制定RFC-867標(biāo)準(zhǔn)時已經(jīng)考慮了我們的意見,因為他同時還推出了RFC-868標(biāo)準(zhǔn),下面就介紹RFC-868:

RFC868 時間協(xié)議（RFC868 Time Protocol）

本RFC規(guī)范了一個ARPA Internet community上的標(biāo)準(zhǔn).在ARPA Internet上的所有主機應(yīng)當(dāng)采用和實現(xiàn)這個標(biāo)準(zhǔn).此協(xié)議提供了一個獨立于站點的,機器可讀的日期和時間信息.時間服務(wù)返回的是以秒數(shù),是從1900年1月1日午夜到現(xiàn)在的秒數(shù),天哪,也不小呢.設(shè)計這個協(xié)議的一個重要目的在于,網(wǎng)絡(luò)上的許多主機并沒有時間的觀念,在分布式的系統(tǒng)上,我們可以想一想,北京的時間和東京的時間如何分呢?主機的時間往往可以人為改變,而且因為機器時鐘內(nèi)的誤差而變得不一致,因此需要使用時間服務(wù)器通過選舉方式得到網(wǎng)絡(luò)時間,讓服務(wù)器有一個準(zhǔn)確的時間觀念.不要小看時間,這對于一些以時間為標(biāo)準(zhǔn)的分布運行的程序簡單是太重要了.

這個協(xié)議可以工作在TCP和UDP協(xié)議下.下面是通過TCP協(xié)議工作的時間協(xié)議的工作過程:這里S代表服務(wù)器,U代表客戶.
S: 檢測端口37
U: 連接到端口37
S: 以32位二進制數(shù)發(fā)送時間
U: 接收時間
U: 關(guān)閉連接
S: 關(guān)閉連接

服務(wù)器在端口37上監(jiān)聽連接.當(dāng)連接建立后,服務(wù)器返回一個32位的時間值,然后關(guān)閉連接.這個過程也不難,如果服務(wù)器不能決定現(xiàn)在是什么時間,服務(wù)器會拒絕連接或不發(fā)送任何數(shù)據(jù)而直接關(guān)閉連接.