小吳 VBQA 程式設計討論

利用winsock物件 (資料來源:MSDN) UDP 基礎 建立 UDP 應用程式比建立 TCP 應用程式還要簡單，因為 UDP 通訊協定不需要明確的連線。在上面的 TCP 應用程式中，一個 Winsock 控制項必須明確地進行「聆聽」，另一個必須使用 Connect 方法初始化連線。 UDP 通訊協定不需要明確的連線。要在兩個控制項中間傳送資料，只需進行下列的三步驟即可 (在連線的雙方)： 將 RemoteHost 屬性設定為另一台電腦的名稱。 將 RemotePort 屬性設定為第二個控制項的 LocalPort 屬性。 呼叫 Bind 方法，指定使用的 LocalPort。(下面將詳細地討論該方法。) 因為兩台電腦的地位可以看成「平等的」，這種應用程式也被稱為「點對點 (peer-to-peer)」的應用程式。為了具體描述這個問題，下面將建立一個「聊天 (chat)」應用程式，兩個人可以透過它進行即時的「交談」。 建立一個 UDP 端點 建立一個新的標準執行檔 (Standard EXE) 專案。 將預設的表單名稱修改為 frmPeerA。 將表單的標題修改為「Peer A」。 在表單中放入一個 Winsock 控制項，並將其命名為 udpPeerA。 在「屬性頁」上，按一下「通訊協定」並將通訊協定修改為「UDPProtocol」。 在表單中新增兩個 TextBox 控制項。將第一個命名為 txtSend，第二個命名為 txtOutput。 為表單增加如下的程式碼。 Private Sub Form_Load() ' 控制項的名稱為 udpPeerA With udpPeerA ' 重要事項:必須將 RemoteHost 的值 ' 修改為電腦的名稱。 .RemoteHost= "PeerB" .RemotePort = 1001　 ' 連線的連接埠號。 .Bind 1002　　　　　　　　' 連結到本機的連接埠。 End With frmPeerB.Show　　　　　　　　 ' 顯示第二個表單。 End Sub Private Sub txtSend_Change() ' 在鍵入文字時，立即將其傳送出去。 udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub 建立第二個 UDP 端點 在專案中新增一個標準表單。 將表單的名稱修改為 frmPeerB。 將表單的標題修改為「Peer B」。 在表單中放入一個 Winsock 控制項，並將其命名為 udpPeerB。 在「屬性頁」上，按一下「通訊協定」並將通訊協定修改為「UDPProtocol」。 在表單上新增兩個 TextBox 控制項。將第一個命名為 txtSend，第二個命名為 txtOutput。 在表單中新增如下的程式碼。 Private Sub Form_Load() '控制項的名稱為 udpPeerB。 With udpPeerB ' 重點:必須將 RemoteHost 的值改為 ' 電腦的名稱。 .RemoteHost= "PeerA" .RemotePort = 1002　　' 要連線的連接埠。 .Bind 1001　　　　　　　　' 連結到本機的連接埠上。 End With End Sub Private Sub txtSend_Change() ' 在鍵入後立即傳送文字。 udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub 如果要試用上面的範例，按 F5 鍵執行專案，然後在兩個表單的 txtSend 文字方塊中分別鍵入一些文字。鍵入的文字將出現在另一個表單的 txtOutput 文字方塊中。