在VB中利用UDP协议编写聊天程序

1、1．将RemoteHost属性设置为另一台计算机的名称。　　2．将RemotePort属性设置为第二个控件的LocalPort属性。　　3．调用Bind方法，指定使用的LocalPort。

3、Private Sub Form_Load()　　′控件的名字为udpPeerA　　With udpPeerA　　′重点:必须将 RemoteHost 的值修改为对方计算机的名字。　　RemoteHost= ″PeerB″　　RemotePort = 1001 ′连接的端口号。　　Bind 1002 ′绑定到本地的端口。　　End With

5、Private Sub udpPeerA_DataArrival _　　(ByVal bytesTotal As Long)　　Dim strData As String　　udpPeerA.GetData strData　　txtOutput.Text = strData　　End Sub

7、′重点:必须将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中