problème winsock

Voilà, j'ai un gros problème :

avec mon prog, je ne peux pas envoyer/recevoir de données quand j'utilise 2 pc différents, alors que quand j'utilise un seul pc ca marche

---------------------------
Voici mon programme :
---------------------------

Private Sub Command1_Click()
sckClient(Index).SendData Text2.Text
End Sub

Private Sub Form_Load()
sckListen.LocalPort = 667
sckClient(Index).RemotePort = 667
sckListen.Listen
sckClient(nb).Connect "127.0.0.1"
End Sub

Private Sub sckClient_Close(Index As Integer)
Unload sckClient(Index)
If sckClient.Count = 0 Then nb = 0
End Sub

Private Sub sckClient_DataArrival(Index As Integer, ByVal bytesTotal As Long)
sckClient(nb).GetData Data$, vbString
Text1.Text = Data$
End Sub

Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
nb = nb + 1
conn.Caption = Str$(nb)
Load sckClient(nb)
sckClient(nb).Accept requestID
End Sub

----------------------------------
et dans un module, j'ai mis
----------------------------------

Global nb As Integer

--------------------------------------------------------

aidez-moi par pitié !

damon.x

Pourquoi est ce que tu utilises 2 socket ? Une avec Index et l''autre sans index ??? Quel utilité ????
C'est pour que la connexion puisse se faire dans les deux sens et qu'il n'y ai pas forcement un seul server qui gere toutes les connexions entrantes ?

En tous cas vu comment t'as codé ca, c'est un peu du travail fait a l'arrache =)

Si tu veux envoie moi ton code en entier a shellkode@hotmail.com et je regarderais ou ca va pas!
Ca tu utilises des variables mais je ne sais meme pas ou elles ont été declrés.... ( surement en global ....)

Sur ce bonne prog all ...
A++

--=[SheLL]=--

ouai mai ce programme c'est le serveur ... c'est pour ca que je dois mettre 2 winsocks ...

damon.x