connexion avec winsock

Salut
je viens de débuter en visual basic et j'ai commencé par créer une petite application client-serveur avec winsock et j'ai essayé d'envoyer le client à un ami et moi j'ai conservé le serveur. Mais quand nous avons voulu les utiliser ca na pas marcher et je pense que la connexion n'est pas établie entre moi et lui sachant que nous avons utiliser le même port mais en ce qui concer l'IP j'en connais pas beaucoup s'il vous plait si quelqu'un peut m'aider si vous voulez je peux poser le code de mon programme
merci d'avance

System Replaced,Cast Changed,Security Enabled ,And Linux Friendly

Buy it, use it, break it, fix it, Trash it, change it, melt - upgrade it, Charge it, pawn it, zoom it, press it,
Snap it, work it, quick - erase it

Salut,

sans code, difficile de t'aider en effet.


 Pourapprendretoujoursplus!

dac je vais mettre le code
voila celui la est pour le client
rivate Sub connecter_Click()
client.RemotePort = port.Text
client.RemoteHost = hostname.Text
client.Connect
End Sub

Private Sub client_DataArrival _
(ByVal bytesTotal As Long)
Dim data As String
client.GetData data
If recu.Text <> "" Then
recu.Text = ""
recu.Text = data
Else
recu.Text = data
End If
envoi.Text = ""
End Sub

Private Sub envoyer_Click()
client.SendData envoi.Text
End Sub

et celui est du serveur

Private Sub Command1_Click()
server.LocalPort = port.Text
server.Listen
End Sub

Private Sub Command2_Click()
server.SendData envoi.Text

End Sub

Private Sub server_ConnectionRequest _
(ByVal requestID As Long)
If server.State <> sckClosed Then _
server.Close
server.Accept requestID
End Sub

Private Sub server_DataArrival _
(ByVal bytesTotal As Long)
Dim data As String
server.GetData data
If recu.Text = "" Then
recu.Text = data
Else
recu.Text = ""
recu.Text = data
End If
envoi.Text = ""
End Sub

je tiens à vous dire que ca marche sur mon pc le client et le serveur mais sur internet non

System Replaced,Cast Changed,Security Enabled ,And Linux Friendly

Buy it, use it, break it, fix it, Trash it, change it, melt - upgrade it, Charge it, pawn it, zoom it, press it,
Snap it, work it, quick - erase it

Bonjour

Ne marque pas réponse acceptée si ton pb n'est pas solutionné.

Pour ton pb, tu passe par une box ou internet ?

Quel IPs avez-vous utilisées ?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Bonjour

Bon, je me suis fait grillé pour mon précédent message

Si tu passe par une Box, il faut que tu la configure pour que la box du serveur accepte les connexion (fasse le lien entre le port d'Internet et le port sur une machine particulière.

Ensuite avec un site comme : [ Lien ] récupère l'IP publique du serveur.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Salut,

Private Sub client_DataArrival _
(ByVal bytesTotal As Long)
Dim data As String
client.GetData data
If recu.Text <> "" Then
recu.Text = ""
recu.Text = data
Else
recu.Text = data
End If
envoi.Text = ""
End Sub

ce qu'il y a en rouge ne m'a pas l'air nécessaire.
Essaie de mettre des msgbox après Private Sub server_ConnectionRequest _
(ByVal requestID As Long) (côté serveur) et après Private Sub client_DataArrival _
(ByVal bytesTotal As Long)
Dim data As String
client.GetData data (côté client)

 Pourapprendretoujoursplus!

oui, aussi vérifie que tes IP sont les bonnes (ie: une machine peut avoir plusieurs IP. C'est notamment le cas si l'ordinateur est sur un réseau, etc...)
De plus, si vous êtes tous les deux sur deux réseaux défférents (lui sur un réseau, et toi sur un autre réseau), il faut régler ton routeur pour qu'il dirige les entrées sur le port que tu as choisi pour la connexion sur ta machine. (ça je ne sais pas faire)
Dans tous les autres cas, ça devrait passer.

 Pourapprendretoujoursplus!

et comment je fais pour la configurer?

System Replaced,Cast Changed,Security Enabled ,And Linux Friendly

Buy it, use it, break it, fix it, Trash it, change it, melt - upgrade it, Charge it, pawn it, zoom it, press it,
Snap it, work it, quick - erase it

Tu es sur un réseau local et lui est sur un autre réseau local? (Sinon, pas de problème..)

 Pourapprendretoujoursplus!

dans les parametre de ton routeur (http://192.168.0.1 par exemple)