Programación asincrónica delegada

importar? Sistema

¿Importar? System.Net

¿Importar? sistema. ¿Importación neta de .socket

? sistema. Hilo

¿Importado? sistema. Texto

También comprenda asincrónico y delegación.

¿Si fuera más sencillo

sub? tcplisten()? Proceso de seguimiento

Const? ¿Puerto L? ¿Como? ¿Entero? =?6850?Puerto de escucha local

¿Atenuado? ¿IPadd? ¿Como? ¿Dirección IP? =?Dns. GetHostEntry(Dns.GetHostName()). ¿Lista de direcciones(1)? IP local

La lista de direcciones incluye IPV6 e IPV4.

¿Oscuro? ¿IPEP? ¿Como? ¿Nuevo? ¿IPEndPoint(IPadd,LPort)? Nódulo

TCPL? =?¿Nuevo? ¿TcpListener(IPEP)? Cree una instancia de monitoreo

TCPL. Comenzar()? Empieza a escuchar

¿Y si? TCPL. ¿Por determinar? =?¿En serio? ¿Entonces qué? Accesible si está conectado.

¿Oscuro? TCPLX? ¿Como? ¿Nuevo? ¿Socket (AddressFamily.Internet, SocketType.Stream, ProtocolType.Tcp)? Crear nuevo socket

TCPLX=TCPL. aceptar()? Pase la primera conexión pendiente al nuevo socket, ya que el socket de escucha continuará escuchando.

¿Oscuro? Rotura. ¿como nuevo? ipendpoint=TCPLX. ¿Punto final remoto? En este momento, obtenga la IP remota y el número de puerto.

listbox.add(ripep.ip)

¿Atenuado? ¿pulir? ¿Como? bytes()

buff=TCPLX. tomar el control()? Escuchar gtAccept gtRecieve puede aceptar datos en este momento

¿Dim? ¿s? ¿Como? cadena = codificación. Predeterminado.GetString(buff)? ¿Convertir a texto

MSG? " s "

TCPLX.send(buff)? Esto se envía.

¿Fin? Si

¿Finalizar? Submarino

Si llevo mucho tiempo sin escribir, puede que haya algún pequeño error. Para depurar usted mismo, el paso general es escuchar gt para recibir gtRecieve. Será mejor que mire msdn y aprenda el sistema.