voila g un pb en VB6, car g crée une sorte d'ICQ pour le reseau local , donc kan je lance le serveur, c bon, quand je lance le client pour la premiere fois, nikel
puis je fais connecter le client la premiere fois
tout marche, les msgs arrivent bien comme ils faut sur le serveur
 
si je deconnecte le client et ke je le reconnecte, ca marche plus !
et pareil si je quitte le client, et ke je le relance et ke je reconnecte !!!
arg
 
voici les projet, et les executables
executable client
http://perso.wanadoo.fr/megalomaniac/bordel/client.exe
projet client VB6
http://perso.wanadoo.fr/megalomaniac/bordel/client.zip
executable serveur
http://perso.wanadoo.fr/megalomani [...] erveur.exe
projet serveur VB6
http://perso.wanadoo.fr/megalomani [...] erveur.zip
 
aidez moi !

help, magicbuzz !!! D

Dans la version server, clique sur l'objet winsock.
dans ses propriétés, dit que c'est un tableau...
et ensuite, tu as un tableau de connections

c si con ke ca ?
je vais sur ce pas tester !
merci !

heu comment tu fais pour dire ke c un tableau ?
moi je peux changer que protocol, et remotehost et remoteport, et et localhost
ya rien d'autre ...

Index=0 je crois

ouais, met 0 pour index au lieu que ce soit vide.

Je ne suis pas le seul à faire du winsock en ce moment !
Neti va passer en client serveur bientot.
Plus d'info sur mon site.

Ptet que tu ferme pas un Winsock... ça arrive.
Une fois le traitement terminé pense à faire :
 
Winsock.Close
While Winsock.State <> SckClosed
  Doevents
Wend
 
Et ça devrait marcher.
Ou fais unload si tu les charge dynamiquement au runtime

oki oki merci !
v tester
au fait, magic, super sympa ta caméra (les rats) !!
la musique, c ce que t'ecoute en ce moment ?

heu c encor moi, soit chui tro un cancre soit c fait expres
 
mais dès ke je fous l'index=0
fo bien ke je change les declarations, et ca me sort a chaque fois ke je fout  (0) :  
"la déclaration de la procédure ne correspond pas a la description de l'evenement ou de la procédure du meme nom"
 
j'ai l'air d'une bite en prog

oui c mes rats, oui c la musique que j'écoute
 
faut rajouter ça :
 
au lieu de :
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
 
c'est :
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 
deplus l'utilisation de l'objet, c'est tcpServer(Index)

oué mais !
fo ke je mette autant de controle winsock que d'utilisateurs ?
et "ton tableau de connection" je vois pas ce ke tu veux dire ...  
A+
 

Ben .. un array.
Le mieux c'est que tu laisse le premier (index=0) en listen et à chaque connection request tu fais :
dim idx as integer
idx =winsock1.count
Load Winsock1(idx)
Winsock1(idx).Accept ....
 
Process...
 
Unload Winsock1(idx)

Kyle_Katarn > Exactement

merci c sympa a vous 2
g continué mon projet, g foutu une console dans mon serveur
si ca vous interresse de l'évolution de mon prog, faites moi signe je vous enverrai mes 2 projets VB