VB Cómo utilizar Winscok para implementar una conexión de servidor con 3 clientes

El lado del servidor escucha en el puerto especificado y la instancia responde a la solicitud de conexión con un nuevo socket. No se requiere ningún código especial en el lado del cliente. Escuche

Escribe código en el evento ConnectionRequest de sock:

Dim iSock As Integer

'Buscar si hay un socket libre

Para iSock = 1 Para sock.UBound Luego cargar sock(iSock)

'Respondiendo a una solicitud de conexión

sock(iSock).Aceptar requestID

Otros códigos de evento escritos Según sea necesario, no es diferente del cliente.

La parte anterior del código es para permitir que sock(0) escuche en el puerto especificado. Luego, si un cliente solicita una conexión en el puerto, sock(0) generará un evento ConnectionRequest. , no vaya a sock(0) para responder a la conexión, sino cree un nuevo calcetín, como sock(1), sock(2)... y use su Accept para interactuar con el socket del cliente, y sock (0 ) seguirá escuchando en el puerto original.

Esto permite acceder a varios clientes en el mismo puerto, lo cual es un ejemplo simple de cómo se puede utilizar el modelo de escucha del servidor.