如何利用UDP协议实现简单的聊天程序？

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

UDP 协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。
　　 由于UDP 协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：
　　 1．将RemoteHost属性设置为另一台计算机的名称。
　　 2．将RemotePort属性设置为第二个控件的LocalPort属性。
　　 3．调用Bind方法，指定使用的LocalPort。
　　 因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。
　　 下面将创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：
　　 1．创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“Peer A”。
　　 2．在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
　　 3．在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
　　 4．为窗体添加如下的代码。
　　 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 伙伴，请按照以下步骤执行：
　　 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中。

bool done = false;

private const int listenPort = 11000; //设置端口

private void StartListener()

{

UdpClient listener = new UdpClient(listenPort); 使用UDP协议

IPEndPoint groupEP = new IPEndPoint(IPAddress.Any, listenPort); //任意IP，

try

{

while (!done)//使用永真循环另其一直处于监听状态

{

byte[] bytes = listener.Receive(ref groupEP);

string strIP;

strIP ="信息来自"+ groupEP.Address.ToString();//获得发信人的IP

string strInfo=Encoding.GetEncoding("gb2312").GetString(bytes, 0,

bytes.Length);//获得信息

MessageBox.Show(strInfo, strIP);

}

}

catch (Exception e)

{

Console.WriteLine(e.ToString());

}

finally

{

listener.Close();

}

}

服务器端窗体加载时，调用StartListenter方法开启监听，实现代码如下：

private void frmServer_Load(object sender, EventArgs e)

{

this.Hide();//隐藏服务器端窗体

StartListener(); //调用监听方法

}

客户端实现的具体步骤如下：

（1）在VS2005项目中添加一个窗体。

（2）在窗体中添加两个TextBox文本框，分别用于获得IP信息与发送信息。

（3）在窗体中添加两个Button按钮和两个Label标签，它们分别用于激发事件和显示信息。

（4）程序主要代码如下。

public void Send()

{

Socket s = new Socket(AddressFamily.InterNetwork,

SocketType.Dgram,ProtocolType.Udp);//实例化Socket对象

//为了起到广播的作用、IP可以设在一个段内如.168.1.255

IPAddress broadcast = IPAddress.Parse(this.textBox2.Text.ToString());

byte[] sendbuf =

Encoding.GetEncoding("gb2312").GetBytes(this.textBox1.Text.ToString());

IPEndPoint ep = new IPEndPoint(broadcast, 11000);

s.SendTo(sendbuf, ep);//发送信息

}

你要用什么语言做啊？？？

唉