¿Cómo escribir un programa de chat usando el protocolo UDP en VB.NET? Como

Importar System.Net

Importar sistema. Net .socket

sistema de importación. Texto

Clase pública Formulario 1

Subbotón privado 1_Click (el remitente es el sistema. Objeto, e es el sistema. EventArgs) maneja el botón 1. Haga clic en

Marcar udpClient como nuevo UdpClient(11000)

Probar

udpClient. conexión(" 127.0.0.1 ", 11000)

dim enviar bytes As[Byte]() = Codificación. ASCII . GetBytes(cuadro de texto enriquecido 1. Texto)

udpClient. Enviar (enviar bytes, enviar bytes. longitud)

Atenuar RemoteIpEndPoint como nuevo IPEndPoint(IPAddress. any, 0)

atenuar recibir bytes como [Byte]()= cliente UDP. Recibir(punto final remoto)

Dim returnData As String = Codificación. Obtener cadena (recibir bytes)

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

Depurar. Print(("Este mensaje fue enviado desde "+ RemoteIpEndPoint. Address.ToString() + "Número de puerto en "+ RemoteIpEndPoint. Port. ToString()))

udpClient. close()

Capturar ex como excepción

Detener

Finalizar intento

Finalizar conector

Finalizar clase