UDP協議也稱為用戶數據報文協議，是一個無連接協議。何謂無連接協議?就是說利用此協議連接時，不必象TCP協議那樣：需要服務器端偵聽，客戶機端請求連接，服務器端建立連接后雙方才能通信。另外，UDP應用程序可以是客戶機，也可以是服務器程序，而不必向TCP應用程序那樣必須分別建立客戶機程序和服務器程序。

　　用UDP協議來傳輸信息較TCP協議來說簡單的多，它無須偵聽(LISTEN)，也無須請求連接(CONNECT)，就象我們平時發信一樣，只要寫好地址及收信人姓名并發送出去即可。我們可以借此來編寫一個局域網中的信息傳送程序，下面來簡單介紹以下程序中想實現的功能及其基本思想：

　　首先，我們一定想讓程序的圖標顯示在system tray中而不顯示在任務欄中吧!這要是自己編程實現可不是太容易，幸好VB光盤中在common/tools/vb/unsupport/systemTray 中有一個現成的程序，我們只要把它編譯成systray.ocx 控件，然后在編寫自己的程序時添加此控件即可。其使用方法十分簡單，它已經定義好了鼠標單擊、雙擊等事件，你只需編寫相應的鼠標事件即可，這里不再多說。

　　程序的關鍵是：UDP協議在通訊時要知道對方的ip和Port，這要如何實現呢?最簡單的方法是建立一個配置文件，里面放置了局域網上每臺計算機的名字、IP和Port，在程序初始化時讀出所有信息，在程序中只要知道向誰通信，讀出其對應的IP和Port即可。

　　我們知道了每臺計算機的IP和Port，但我們怎樣才能知道其它計算機是否在線呢，否則發出信息別人收不到怎么辦?我們可以把此程序放在啟動菜單中，讓其一開機就自動啟動，并最小化，放于窗口右下角的system tray中。在程序剛開始運行時，它會自動向它從配置文件中所知道的所有IP發一條信息：“我來了!”，如果有計算機在線，它會自動返回一條信息：“歡迎！”，如此則兩機通信成功，它們會分別把對方的名字加入到自己的可通信人名單中去；如果有計算機關機，程序在退出之前會自動向所有人告別：“再見!”，接收到此信息的計算機會自動把發送信息的計算機的名稱從自己的可通信人名單中去除。這樣，如果某人不在線，你將無法發送信息給它；如果除了你以外，其他人都沒有開機，那你的可發送人名單中將沒有任何人。而其它人只要一上線，會自動去你那里“登記”，其他人只要一離線，會自動去你那里“告別”，你可以據此知道他人是否正在使用計算機，你甚至可以以此程序來統計他人的每天上機時間，不錯吧!

　　好了，一個局域網通信的程序的基本模型已經有了，并不復雜吧!大家趕快動手吧，來享受用自己的程序來聊天的樂趣!

　　不過，要想編寫一個出色的程序，不光是要有良好的創意與功能，更重要的是程序的兼容性與容錯性。本例中，對錯誤處理沒有做詳細的解釋，關于這一點，大家可以在Winsock控件的error事件及其幫助中找到滿意的答案。

　　另外，還可以從以下幾方面來考慮功能的擴充：如傳送圖形、聲音等多媒體信息、局域網互傳文件(主動傳送)、歷史通話記錄、系統日志、個人上機時間統計等等，而所有的這一切僅僅取決于你的想象力與你的聰明才智!下面，筆者以傳送文件為例來講一講其功能實現的代碼。

　　你可以把本地的文件(圖形、聲音等可以先存成臨時文件)以二進制文件的方式來打開它，將其內容全部讀入一個byte類型的數組中，本地機代碼如下：
　　dim myfile () as byte

　　dim position as long

　　open "filename" for binary as #1

　　position=0

　　do while not eof(1)

　　position=positon+1

　　redim PReserve myfile (1 to position)

　　get #1,,myfile(position)

　　loop

　　close #1

　　再向遠程機傳送這個字節數組

　　sckserver.SendData myfile
　　遠程機收到這個數組之后，再以二進制文件的方式打開一個新目標文件，將數組內容寫入這個新打開的文件，如果是bmp圖片就將其放入picture圖片框中，如果是wav文件，就播放。這樣，局域網中的兩個人就可以通過語言、圖片、文字來交流了。 　　遠程機代碼如下：

　　Private sub sckconnect_DataArrival(byval bytestotal as long)

　　dim receivefile(1 to bytestotal)as byte

　　sckconnect.GetData receivefile,vbarray+vbbyte

　　'告訴Winsock控件收到的是字節數組類型的數據

　　open "c:/temp/文件名" for binary as #1

　　for I=1 to bytestotal

　　put #1,,remotearray(I)

　　next I

　　clost #1

　　end sub