¿Cómo escribir un programa de chat en vb.net usando el protocolo UDP?

'xiansr.2014/2/7 depurado a través de vb.net2010

La depuración de 'xiansr.2014/2/7 vb.net2010 pasó

Importa System.Net

Importa System.Net.Sockets

Importa System.Text

Forma de clase pública1

Subbotón privado1_Click (remitente como System.Object.Object, y como System.EventArgs) Maneja el botón1.Click

Atenuar udpClient como nuevo UdpClient(11000)

Pruebe

udpClient.Connect("127.0.0.1", 11000)

Atenuar sendBytes como [Byte]( ) = Codificación.ASCII.

udpClient.Send(sendBytes, sendBytes.Length)

Atenuar RemoteIpEndPoint como nuevo IPEndPoint(IPAddress. p> Atenuar recibirBytes como [Byte]() = udpClient .Receive(RemoteIpEndPoint.IPAddress.Receive(RemoteIpEndPoint)

Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

RichTextBox2.Text = "Recibido:" + returnData.ToString ()

'Debug.Print(("Este mensaje fue enviado desde " + RemoteIpEndPoint.Address.

udpClient.Close()

Captura ex como excepción

detener

Finalizar intento

Finalizar sub

Finalizar clase

Finalizar clase