[VB 6] winsock non accetta la connessione

[Markho]

Berello, è quello che ho scritto io....
cmq la soluzione più elegante è fare come dice xegallo.......


Ah, dimenticavo, qui:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
Winsock1.Close
Winsock1.Accept requestID 
End Sub

è meglio che prima fai un controllo, altrimenti se il winsock è gia chiuso ti attacchi.....

e poi questo:

Oppure:

[...]
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
Winsock2.Accept requestID 
End Sub

non funziona perchè ti da errore "Operazione non valida allo stato corrente", v. il post di apertura.....


ciao