Evento Close (winsock)

[robertomollo]

Saludos.
Soy nuevo en el foro. Solo espero ayudar, en lo que pueda a todos y espero que me puedan ayudar.

Como dicen: todos somos ignorantes pero no todos ignoramos la misma cosa.


El suceso o evento Close del control Winsock nunca llega.

Estoy desarrollando una aplicación cliente servidor. De la red local.

En la parte servidor me conecto de la siguiente forma.

sckServidor(0).LocalPort = 1001
sckServidor(0).Listen

Y en la parte cliente:

sckCliente.RemoteHost = "servidor"
sckCliente.RemotePort = 1001
sckCliente.Connect


En la parte cliente: el suceso o evento Close funciona muy bien.
Es decir cuando la aplicación Servidor, es cerrado o es finalizado inesperadamente.
En la aplicación Cliente Se ejecuta el evento Close.

Pero Cuando la aplicación cliente es cerrado o "sckCliente.Close" ocurre.
En la aplicación Servidor nunca se da el evento Close.

Es muy importante que se de el evento close porque ahi puse codigo muy importante del cual depende la aplicacion Servidor.

Me podrian decir como solucciónar esto.

Intente lo siguiente en la aplicacion servidor:
en un timer puse lo siguiente:

'Verificar si esta desconectado
If sckServidor(J).State = sckClosed Then
sckServidor_Close
End If


Pero da lo mismo nunca se da el evento Close.
Solo quisiera saber si esto es normal.
Si fuera normal quisiera saber si alguien resolvio este tipo de problema.

***////****
CARGAR UNA VEZ.
Necesito que mi aplicación sea cargado una vez. Esto lo sabia lo que me acuerdo. Tenia que iniciar desde el procedimiento Sub Main y en ahi introducir codigo, para controlar la carga de la aplicación. Pero no me puedo acordar los codigos.
***////****


Gracias de antemano.