[VB6] tester winsock en mode local

[Merci d'utiliser un titre clair et cohérent avec le contenu - edité par elifqaoui]
Lisez les REGLES DU FORUM
question : comment tester un prog avec winsock vu qu'il faut se connecter a une ip , pour faire des sendata et autre...

memesila quest. est con, si qq1 repondait, ça serait sympa ...

tu peux tester en local en mode client/serveur. ça doit se faire.

et je peux faire comment, parceque, qaund je met en adresse 127.0.0.1 ( localhost), il me renvoie une erreur

Voir le sujet Utilisation du contrôle WinSock dans la MSDN. Il y'a même un exemple très clair la dessus.

je dirai que c'est un problème de configuration des ports coté client et serveur

moi je les configure comme ça

coté client, dans les propriétés :
LocalPort : un nombre x (chez moi 1200, a priori assez elevé pour ne pas tomber sur un port déjà utiliser par windows)
RemotePort : 0 (mais ici, c'est parceque je n'envoie jamais rien au serveur, je ne fais que recevoir !!!, peut être que chez toi c'est différent)


coté serveur
LocalPort : 0
RemotePort : x (le même que le client)

je pense que ton problème vient du fais que ton client et ton serveur on le même LocalPort ou le même RemotePort !

y a pas besoin de faire

Code:

---

RemoteHost = machin

---

ou qqchose dans le genre ???

PS mon appli doit envoyer des données, tu connais une solution ???

a ben si ... :oops: , scuse

pour le client, RemoteHost doit être égale au nom du serveur (le nom du poste sur le réseau)

pour le serveur, c'est plus chaud car en fonction du poste a qui tu veux envoyer des données, il te faut modifié RemoteHost !!!

si ton pc fais à la fois client et serveur le RemoteHost sera égal à Winsock1.LocalIP

ok, donc si j'ai bien compris, je dois faire mon connect avec comme remotehost localip et la je pourrait avoir deux appli qui tournent sur le meme ordi pour pouvaor tester mon winsock ???

oui si tu te plantes pas ailleurs!!!! :lol:

Essaie de tester ceci :

Pour créer un serveur TCP
Créez un nouveau projet EXE Standard.
Changez le nom de la feuille par défaut en frmServer.
Changez le titre de la feuille en « Serveur TCP ».
Dessinez un contrôle Winsock sur la feuille et changez son nom en tcpServer.
Ajoutez deux contrôles TextBox sur la feuille. Nommez le premier txtSendaDta et le second txtOutput.


Ajoutez à la feuille le code ci-dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Private Sub Form_Load() ' Donne à la propriété LocalPort une valeur ' entière. Puis invoque la méthode Listen. tcpServer.LocalPort = 1001 tcpServer.Listen ' Affiche la feuille client. frmClient.Show End Sub   Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) ' Vérifie que le contrôle est fermé. Sinon, ferme ' la connexion en cours avant d'accepter la ' nouvelle. If tcpServer.State <> sckClosed Then _ tcpServer.Close ' Accepte la demande avec le paramètre requestID. tcpServer.Accept requestID End Sub   Private Sub txtSendData_Change() ' Le contrôle TextBox nommé txtSendData contient ' les données à envoyer. Chaque fois que l'utilisateur entre du ' texte dans le contrôle textbox, la chaîne est envoyée en ' utilisant la méthode SendData. tcpServer.SendData txtSendData.Text End Sub   Private Sub tcpServer_DataArrival _ (ByVal bytesTotal As Long) ' Déclare une variable pour les données reçues. ' Invoque la méthode GetData et paramètre pour ' ces données la propriété Text d'un contrôle ' TextBox nommé txtOutput. Dim strData As String tcpServer.GetData strData txtOutput.Text = strData End Sub

---

Pour créer un client TCP

Ajoutez une nouvelle feuille au projet et nommez-la frmClient.
Changez le titre de la feuille en TCP Client.
Ajoutez un contrôle Winsock à la feuille et nommez-le tcpClient.
Ajoutez deux contrôles TextBox à frmClient. Nommez le premier txtSend et le second txtOutput.
Dessinez un contrôle CommandButton sur la feuille et nommez-le cmdConnect.
Changez la légende du contrôle CommandButton en Connexion.
Ajoutez à la feuille le code ci-dessous.
Important Assurez-vous de remplacer la valeur de la propriété RemoteHost par le nom complet de votre ordinateur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Form_Load() ' Le nom du contrôle Winsock est tcpClient. ' Note : pour spécifier un hôte distant, vous pouvez utiliser soit ' l'adresse IP (ex: "127.0.0.1"), soit le nom complet de ' l'ordinateur, comme ci-dessous. tcpClient.RemoteHost = "LeNomDeTaMachine" tcpClient.RemotePort = 1001 End Sub   Private Sub cmdConnect_Click() ' Invoque la méthode Connect pour établir une ' connexion. tcpClient.Connect End Sub   Private Sub txtSendData_Change() tcpClient.SendData txtSend.Text End Sub   Private Sub tcpClient_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub

---

Le fameux exemple de la MSDN

ouais, c'est bon, çamarche en faisant mon connect comme ça

Code:

---

ws.Connect ws.LocalIP, 30000

---

et mon listen comme ça

Code:

---

1 2 3

ws.LocalPort = 30000 ws.Listen

---