Caso de programación Scoket

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. Default.GetString(buff)? ¿Convertir a texto

MSG? " s "

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

¿Fin? Si

¿Finalizar? Submarine

Si hace mucho tiempo que no se escribe, puede que haya algunos errores menores. Para depurar usted mismo, el paso general es escuchar gt para recibir gtRecieve. Será mejor que mire msdn y aprenda el sistema.