Problema con el Winsock

[Sauron]

Bueno este es mi duda resulta que..tengo el programa cliente y el servidor...... .pero quiero que pase lo siguiente..... .que cuando el cliente me encuentre a al servidor..le aparesca un mensage de texto al cliente que diga "YA TE CONECTASTE FEITO..NO MOLESTES MAS" y que si no lo encuebtra le diga "CONECTATE MAS TARDE FEITO..AHORA ESTOY DURMIENDO"....bueno la erdad es que busque en la ayuda y nno encontre a ver si ustedes me pueden ayudar un poco..desde ya muchas gracias.... bye

[VirucKingX]

Private Sub winsock1_Conne ct()
Label1.SimpleT ext = "Conectado con Exito"
End Sub

Private Sub winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Label1.SimpleT ext = "Hay un error aweonao "
End Sub

bye

[Sauron]

No lo acabo de provar y no me funciona...gra cias de todas formas!!  porfavor si alguien me puede ayudar!!

[ranefi]

Hola Sauron, buen día. Aquí te dejo un enlace a un programa que aún no está terminado pero que funciona; es del cochinón de caligastia:


Para ver este enlace Registrate o Inicia Sesion

Descargar cochinada

Espero te sirva. Au revoir.

[eM.]

Propiedad "State" . del Winsock:

modo de uso:

nombreobjeto.S tate

Constante          Valor     
sckClosed                             0         Cerrado
sckOpen                               1         Abierto
sckListening                         2         Escuchando
sckConnectionP ending         3         Conexión pendiente
sckResolvingHo st                 4         Resolviendo host
sckHostResolve d                  5         Host resuelto
sckConnecting                     6         Conectando
sckConnected                      7         Conectado
sckClosing                           8         El equipo está cerrando la conexión
sckError                               9         Error


despues configura el mensaje a enviar. te dejo un ejemplo:

if winsock1.state = sckConnected ( o 7) Then
MsgBox " Estas Conectado"
Else
MsgBox " No Estas Conectado"
End If

[FoMoIrEoMX]

gracias EM, ya me preguntaba si solo existia el valor 2 y 7, jajaja, es que como son los mas utilizados pero nadien mensionaba los demas.