Cómo mantiene la conexión el socket vb.net

Función privada compartida ConnectSocket (servidor ByVal como cadena, puerto ByVal como entero) Como Socket 'Crear conexión

Dim s As Socket = Nada

Dim hostEntry como IPHostEntry = Nada

Dim dirección como dirección IP

dirección = System.Net.Socket(dirección, puerto)

Dim endPoint como nuevo IPEndPoint( dirección, puerto)

Atenuar tempSocket como nuevo socket (endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp AddressFamily, SocketType.Stream, ProtocolType.Tcp)

tempSocket.Connect(endPoint )

Si tempSocket.Connected Entonces

s = tempSocket

Finalizar si

Devolver s

Finalizar función

Llamada: s = ConnectSocket(Dirección IP, Puerto) 'Número de puerto, como 8000, 8080, etc.

s.close 'Cerrar la conexión.