Comment créer un programme de conversation simple en Visual Basic à l'aide du contrôle Microsoft Winsock : 7 étapes

2025 Auteur: John Day | [email protected]. Dernière modifié: 2025-01-23 14:46

Dans cet instuctable, je vais vous montrer comment créer un programme de discussion simple en Visual Basic. Je vais passer en revue ce que fait tout le code afin que vous appreniez au fur et à mesure que vous le créez, et à la fin, je vous montrerai comment l'utiliser.

Étape 1: Aperçu

Nouveau projet", "top":0.44341801385681295, "left":0.2802690582959641, "height":0.2632794457274827, "width":0.5067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "author":"twenglish1", "text":"c'est ce que vous voulez sélectionner puis cliquez sur Ouvrir", "top":0.25635103926096997, "left":0.017937219730941704, "height":0.22401847575057737, "width":0.23542600896860988}]">

Ce programme vous permettra d'échanger des messages entre deux personnes sur votre même réseau. Cela peut fonctionner si vous n'êtes pas sur le même réseau mais je ne peux pas le tester maintenant.

Vous devriez avoir Microsoft Visual Basic 6.0, c'est ce que j'utilise. Des connaissances de base en programmation sont recommandées Commençons !!! ouvrir visual basic et créer un EXE standard

Étape 2: Création de l'Infrence utilisateur

Il est maintenant temps de créer le formulaire utilisateur

vous devrez ajouter le contrôle winsock à la boîte à outils, procédez comme suit: 1. faites un clic droit quelque part dans la boîte à outils où il n'y a rien 2. cliquez sur Composants 3. dans la longue liste, recherchez Microsoft Winsock Control 6.0 et cochez la case à côté 4. puis cliquez sur appliquer puis fermez Ajouter: 5 zones de texte 4 boutons de commande 1 contrôle winsock organisez-les pour ressembler à la deuxième image ci-dessous

Étape 3: Renommer et autres modifications de propriété

nous allons maintenant changer les légendes (ce qui est dit dans les boutons de commande)1. cliquez sur commande12. regardez à droite dans les propriétés et trouvez Caption3. changez-le en Hostfaites de même pour le reste mais faites-les:command2 = Connectcommand3 = Closecommand4 = Sendnow nous allons changer ce que disent les zones de texte1. cliquez sur la zone de texte qui dit text12. allez dans la fenêtre des propriétés et trouvez la propriété Text3. rendez-le vide4. faites de même pour celui qui dit Text25. cliquez maintenant sur text3 et modifiez la propriété text en 127.0.0.16. maintenant, cliquez sur text4 et changez la propriété text en 12347. maintenant, cliquez sur text5 et changez la propriété text en Name127.0.0.1 est votre adresse IP locale afin que vous puissiez tester le programme sur votre ordinateur quand son done1234 est le port vous pouvez le faire ce que vous voulez veux mais laisse juste 1234 pour l'instant

Étape 4: Modification des noms des boutons et des zones de texte

nous devons renommer les boutons de commande et les zones de texte pour les rendre plus faciles à coder

1. cliquez sur Text1 et allez dans les propriétés et cliquez sur le nom et changez-le en txtLog j'ai choisi cela parce que c'est le journal des messages que vous envoyez et recevez 2. faites de même pour le reste mais faites les noms: changez Text2 en txtEnvoyer le changement Text3 en txtIP changez Text4 en txtPort changez Text5 en txtName changez Command1 en cmdHost changez Command2 en cmdConnect changez Command3 en cmdClose changez Commandez 4 en cmdSend changez Winsock1 en sckMain maintenant il y a une autre chose que vous devez changer cliquez sur txtLog et dans la fenêtre des propriétés trouver MultiLine et rendez-le vrai cette étape peut causer une certaine confusion si vous avez des questions, postez un commentaire ou envoyez-moi un message

Étape 5: Codage des boutons de commande

il est maintenant temps d'écrire le code des boutons de commande et de commencer par le premier cmdHost1. double-cliquez dessus, cela fera apparaître la fenêtre de code2. il devrait ressembler à ceciPrivate Sub cmdHost_Click()End Sub3. entrez ce codeckMain. LocalPort = txtPort.textsckMain.listennow qu'est-ce que cela signifie ?? la première ligne fait que le port local de winsocks est égal au nombre dans la zone de texte (txtPort) la deuxième ligne dit à winsock d'écouter sur ce port pour quelqu'un qui essaie de se connecter maintenant fermez-le et double-cliquez sur cmdConnectentrez ce codeckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectles deux premières lignes changent le RemoteHost et le RemotePort du winsock (sckMain) en l'ip et le port que nous voulons le sckMain. Connect le dit pour vous connecter à quelqu'un qui écoute sur ce port et ipnow pour le bouton de fermeture double-cliquez sur cmdClose et typesckMain.closetxtLog = txtLog.text & "Connexion fermée!" & vbCrlfle sckMain.close indique au winsock de se déconnecter, la deuxième ligne ajoute Connexion fermée à txtLogdouble-cliquez sur cmdSend et tapezckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" les deux premières lignes sont fausses, je les ai directement dans l'éditeur et cela les modifie lorsque j'enregistre, alors regardez l'image pour le bon code. La première ligne envoie le texte dans txtSend et votre nom dans txtNameLa deuxième ligne ajoute le message que vous avez envoyé et votre nom dans txtLogLa troisième ligne efface le texte dans txtSend

Étape 6: coder le Winsock

maintenant il est temps de coder le winsock ! nous devons lui dire quoi faire quand quelqu'un essaie de se connecter et nous devons lui dire où mettre les données qu'il reçoit ok double-cliquez sur le contrôle winsock (sckMain) dans le coin supérieur droit de la zone de code, il devrait dire: erreurcliquez sur la liste déroulante et sélectionnez demande de connexion maintenant, il devrait avoir créé un nouvel endroit pour entrer le code, tapez: Si sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Connected to: " & sckMain. RemoteHostIP & vbcrlfLes premières et deuxièmes lignes vérifient si le winsock (sckMain) est fermé et si ce n'est pas le cas, il le ferme. La troisième ligne ferme la déclaration if. La quatrième ligne indique au winsock (sckMain) d'accepter les connexions. en ajoutant une ligne à txtLognow, nous devons dire au winsock quoi faire avec les données qu'il reçoit en haut à droite de la fenêtre de code, cliquez sur la liste déroulante et sélectionnez: DataArrivalnow entrez ce code: dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst line fait des données une chaîne la piqûre est l'endroit où les données reçues vont être mises avant d'être ajoutées à txtLogsecond line récupère les données et les place dans la chaîne de données en tant que vbstringthird line ajoute les données reçues à txtLognow encore une fois si elles prêtent à confusion et que vous avez des questions, postez des commentaires ou envoyez-moi un message

Étape 7: Utilisation du programme/Conclusion

ok maintenant je vais vous dire comment utiliser le programme

dans Visual Basic cliquez sur le fichier, puis faites en sorte que project1.exe enregistre-le sur votre bureau s'il y a des erreurs, laissez un commentaire et je vais essayer de vous aider maintenant, allez là où vous avez créé le programme et double-cliquez dessus deux fois et deux programmes devraient apparaître sur un clic sur l'hôte et sur l'autre, cliquez sur connecter et sur celui sur lequel vous avez cliqué sur l'hôte, il devrait dire: Connecté à: 127.0.0.1, saisissez maintenant un nom pour les deux et vous pouvez envoyer des messages entre les deux, cela fonctionne sur le réseau local et cela pourrait fonctionner sur WAN mais je ne suis pas sûr de laisser des commentaires pour me faire savoir comment j'ai fait ou si vous avez des questions ou si vous en avez envie si vous l'avez aimé ou non, notez-le