其中，UDP
協議是壹種無連接的協議，兩臺計算機之間的傳輸類似於郵件的傳遞:消息從壹臺計算機發送到另壹臺計算機，但它們之間沒有明確的連接。此外，壹次傳輸的最大數據量取決於具體的網絡。
要創建UDP合作夥伴，請按照下列步驟操作:
創建壹個新的標準EXE項目。
將默認表單的名稱更改為frmPeerA。
將表格的標題更改為“同級A”。
在窗體中放置壹個Winsock控件，並將其命名為udpPeerA。
在“屬性”頁上，單擊“協議”,並將協議修改為UDPProtocol。
向窗體添加兩個TextBox控件。將第壹個命名為txtSend，第二個命名為txtOutput。
將下面的代碼添加到窗體中。
私人？Sub？Form_Load()
控件的名稱是。烏德佩拉
用什麽？烏德佩拉
重要:妳必須把？RemoteHost？的價值
更改為計算機的名稱。
。RemoteHost=？" PeerB "？
。RemotePort？=?1001?連接的端口號。
。綁定？“1002”綁定到本地端口。
結束？隨著
frmPeerB。秀？展示第二種形式。
結束？潛水艇
私人？Sub？txtSend_Change()
鍵入時發送文本。
烏培拉。發送數據？txtSend。文本
結束？潛水艇
私人？Sub？udpPeerA_DataArrival？_
(ByVal？bytesTotal？作為？龍)
暗淡？strData？作為？線
烏培拉。GetData？strData
txtOutput。文字？=?strData
結束？Sub要創建第二個UDP夥伴，請按照下列步驟操作:
將標準表單添加到項目中。
將表單的名稱更改為frmPeerB。
將表格的標題更改為“同級B”。
在窗體中放置壹個Winsock控件，並將其命名為udpPeerB。
在“屬性”頁上，單擊“協議”,並將協議修改為UDPProtocol。
向窗體添加兩個TextBox控件。將第壹個命名為txtSend，第二個命名為txtOutput。
將下面的代碼添加到窗體中。
私人？Sub？Form_Load()
控件的名稱是。udpPeerB .
用什麽？udpPeerB
重要:妳必須把？RemoteHost？將的值更改為
計算機的名稱。
。RemoteHost=？“皮拉”
。RemotePort？=?1002 '端口待連接。
。綁定？“1001”綁定到本地端口。
結束？隨著
結束？潛水艇
私人？Sub？txtSend_Change()
打字後立即發送文本。
udpPeerB。發送數據？txtSend。文本
結束？潛水艇
私人？Sub？udpPeerB_DataArrival？_
(ByVal？bytesTotal？作為？龍)
暗淡？strData？作為？線
udpPeerB。GetData？strData
txtOutput。文字？=?strData
結束？潛水艇