Pb Winsock

Bonjour,
J'ai un problème à la 4e ligne : Adresse en utilisation (erreur 10048), pour chaque Winsock...........

For a = 0 To (Contacts.Liste_IP.ListCount - 1)
Load Winsock(a + 1)
Winsock(a + 1).Close
Winsock(a + 1).Connect Contacts.Liste_IP.List(a), Port
Next a

Je ne comprends pas d'où ça vient (d'autant plus que c'est une connexion vers l'extérieur), est-ce que quelqu'un pourrait m'aider ? :)
Merci

salut,

Contacts.Liste_IP.List(a) contient bien une IP valide?
et que contient Port ?

---

Prenez un instant pour répondre à ce sondage svp

Oui l'IP est valide. Port contient le numéro de port.
Cependant j'ai testé cette partie de code dans un nouveau projet, à part, et ça marchait...

Donc l'erreur doit venir d'ailleurs peut être mais je vois pas pourquoi ....?

pour test....


For a = 0 To (Contacts.Liste_IP.ListCount - 1)
    Load Winsock(a + 1)
    Winsock(a + 1).Close
    Winsock(a + 1).Connect Contacts.Liste_IP.List(a), val(Port) + a
Next a

---

Prenez un instant pour répondre à ce sondage svp

même val(Port) + a + 1
(au cas où, ton socket 0 )

---

Prenez un instant pour répondre à ce sondage svp

même problème....
Faudrait que je vois un peu ailleurs il dot y avoir des conflits....

Merci quand même :)

essai sa


dim b as double
For a = 0 To (Contacts.Liste_IP.ListCount - 1)
b= b +1
Load Winsock(b)
Winsock(b).Close
Winsock(b).Connect Contacts.Liste_IP.List(a), Port
doevents
Next a

et aussi au lieu de
For a = 0 To (Contacts.Liste_IP.ListCount - 1)
met
For a = 1 To (Contacts.Liste_IP.ListCount)
je pense

pour DoEvents, y'a pas de doute mais le problème ne peut pas venir de là.
pour le reste, désolé mais c'est vraiment le plaisir de laisser une trace sans fondement....

---

Prenez un instant pour répondre à ce sondage svp

Bon merci à vous pour vos réponses mais le problème doit définitivement avoir un lien vers une autre partie du code.
Je vais essayer de m'en sortir tout seul j'ai pas trop le choix.

Merci encore :)