La Web del Programador: Comunidad de Programadores
 
    Pregunta:  4698 - WINSOCK.OCX EN VISUAL
Autor:  Ricardo Pueyrredon
Bueno mi problema es el siguiente:

Estoy haciendo un servidor, quien sabe de que,,, en visual usando el winsock.Lo que necesito es hacer que este acepte conexiones a tal puerto de mi maquina.Hasta ahi todo bien, elijo el local port, pongo el winsock.ocx en "listen", todo bien, pero cuando en el, Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long),pongo la siguiente cadena me salta un error.

winsock1.accept requestID

Operacion no valida en estado actual.

  Respuesta:  Rodrigo López Gatica
bueno, la respuesta es sencilla.
Lo que debes hacer es lo siguiente:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close ´Debes cerrar el socket_
antes de acptar la conexión.
´¿Raro no? pero así se hace.
Winsock1.Accept requestID
End Sub

Espero que te sirva.
Chao!
Nota: Visita mi página: http://www.geocities.com/rorolopez_1999
Allí tengo algunos tutoriales de varios lenguajes, y el desarrollo de un par de temas de interés.