VB.NET UDP的应用举例分析(1)(2)

1．在工程中添加一个标准窗体，将窗体的名字修改为 frmPeerB，将窗体的标题修改为“Peer B”。

2．在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。

3．在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。

4．在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。

5．在窗体中添加如下代码

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  

运行工程，然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。 以上就是利用VB.NET UDP协议编写的一个聊天室程序，还是很简单的吧。