So erstellen Sie ein einfaches Chat-Programm in Visual Basic mit dem Microsoft Winsock-Steuerelement - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:22

In dieser Anleitung zeige ich Ihnen, wie Sie ein einfaches Chat-Programm in Visual Basic erstellen. Ich werde durchgehen, was der gesamte Code tut, damit Sie lernen, wie Sie ihn erstellen, und am Ende werde ich Ihnen zeigen, wie man ihn verwendet.

Schritt 1: Übersicht

Neues Projekt", "top":0.44341801385681295, "left":0.2802690582959641, "height":0.2632794457274827, "width":0.5067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "author":"twenglish1", "text":"Dies ist, was Sie auswählen und dann auf Öffnen klicken möchten", "top":0.25635103926096997, "left":0.017937219730941704, "height":0.22401847575057737, "width":0.2354260089686098}]">

Mit diesem Programm können Sie Nachrichten zwischen zwei Personen in Ihrem Netzwerk austauschen. Es kann funktionieren, wenn Sie nicht im selben Netzwerk sind, aber ich kann es jetzt nicht testen.

Sie sollten Microsoft Visual Basic 6.0 haben, das verwende ich. Grundlegende Programmierkenntnisse werden empfohlen Los geht's!!! öffne Visual Basic und erstelle eine Standard EXE

Schritt 2: Erstellen der Benutzerinfence

Jetzt ist es an der Zeit, das Benutzerformular zu erstellen

Sie müssen das Winsock-Steuerelement zur Toolbox hinzufügen, um dies zu tun: 1. Klicken Sie mit der rechten Maustaste irgendwo in die Toolbox, wo nichts ist 2. Klicken Sie auf Komponenten 3. Suchen Sie in der langen Liste Microsoft Winsock Control 6.0 und aktivieren Sie das Kontrollkästchen daneben 4. dann auf Übernehmen klicken und dann schließen Hinzufügen: 5 Textfelder 4 Befehlsschaltflächen 1 Winsock-Steuerelement Ordnen Sie sie so an, dass sie wie im zweiten Bild unten aussehen

Schritt 3: Umbenennen und andere Eigenschaftsänderungen

wir werden jetzt die Beschriftungen ändern (was in den Befehlsschaltflächen steht)1. Klicken Sie auf Befehl12. Schauen Sie auf der rechten Seite in den Eigenschaften nach Caption3. ändern Sie es in Host. Machen Sie dasselbe für den Rest, aber machen Sie sie:command2 = Connectcommand3 = Closecommand4 = SendJetzt werden wir ändern, was die Textfelder sagen1. Klicken Sie auf das Textfeld mit der Aufschrift text12. Gehen Sie zum Eigenschaftenfenster und suchen Sie die Text-Eigenschaft3. machen Sie es leer4. Machen Sie dasselbe für das, das Text25 sagt. Klicken Sie nun auf text3 und ändern Sie die text-Eigenschaft in 127.0.0.16. Klicken Sie jetzt auf Text4 und ändern Sie die Texteigenschaft in 12347. Klicken Sie jetzt auf Text5 und ändern Sie die Texteigenschaft in Name127.0.0.1 ist Ihre lokale IP, damit Sie das Programm auf Ihrem Computer testen können, wenn es fertig ist1234 ist der Port, den Sie machen können, was Sie wollen will aber lass es erstmal 1234

Schritt 4: Ändern der Namen der Schaltflächen und Textfelder

wir müssen die Befehlsschaltflächen und Textfelder umbenennen, damit sie einfacher zu codieren sind

1. Klicken Sie auf Text1 und gehen Sie zu den Eigenschaften und klicken Sie auf den Namen und ändern Sie ihn in txtLog Ich habe das gewählt, weil es das Protokoll der Nachrichten ist, die Sie senden und empfangen 2. Machen Sie dasselbe für den Rest, aber machen Sie die Namen: Ändern Sie Text2 in txtSend ändern Text3 in txtIP ändern Text4 in txtPort ändern Text5 in txtName ändern Command1 in cmdHost ändern Command2 in cmdConnect ändern Command3 in cmdClose ändern Command 4 in cmdSend ändern Winsock1 in sckMain ändern Jetzt müssen Sie noch etwas ändern klicken Sie auf txtLog und im Eigenschaftenfenster finden Sie MultiLine und machen Sie es wahr, dieser Schritt kann zu Verwirrung führen, wenn Sie Fragen haben, schreiben Sie einen Kommentar oder eine Nachricht an mich

Schritt 5: Codieren der Befehlsschaltflächen

Jetzt ist es an der Zeit, den Code für die Befehlsschaltflächen zu schreiben, die mit dem ersten cmdHost1 beginnen. Doppelklicken Sie darauf, dies öffnet das Codefenster2. es sollte so aussehenPrivate Sub cmdHost_Click()End Sub3. Geben Sie Folgendes ein: CodesckMain. LocalPort = txtPort.textsckMain.listennow was bedeutet das? schließen Sie das und doppelklicken Sie auf cmdConnect geben Sie dies ein CodesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. ConnectDie ersten beiden Zeilen ändern den RemoteHost und den RemotePort der Winsock (sckMain) auf die IP und den Port, den sckMain. Connect sagt um sich mit jemandem zu verbinden, der an diesem Port lauscht, und ipnow für den Schließen-Button doppelklicken Sie auf cmdClose und tippsckMain.closetxtLog = txtLog.text & "Verbindung geschlossen!" & vbCrlfthe sckMain.close weist den Winsock an, die Verbindung zu trennen. Die zweite Zeile fügt Verbindung geschlossen zu txtLog hinzu Doppelklicken Sie auf cmdSend und tippt ckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = ""die ersten beiden Zeilen sind falsch ich habe sie direkt im Editor und es ändert sie wenn ich speichere also schau dir das Bild für den richtigen Code an erste Zeile schickt den Text rein txtSend und Ihr Name in txtNamezweite Zeile fügt die von Ihnen gesendete Nachricht hinzu und Ihr Name zu txtLogdritte Zeile löscht den Text in txtSend

Schritt 6: Codieren der Winsock

Jetzt ist es an der Zeit, die Winsock zu codieren! Wir müssen ihr sagen, was zu tun ist, wenn jemand versucht, eine Verbindung herzustellen, und wir müssen ihr mitteilen, wo die empfangenen Daten abgelegt werden sollen. Doppelklicken Sie auf das Winsock-Steuerelement (sckMain) in der oberen rechten Ecke von Das Codefeld sollte sagen: FehlerKlicken Sie auf das Dropdown-Feld und wählen Sie Verbindungsanforderung aus. Jetzt sollte ein neuer Ort zum Eingeben des Codes erstellt werden. " & sckMain. RemoteHostIP & vbcrlferste und zweite Zeile prüfen, ob die winsock(sckMain) geschlossen ist und wenn nicht, wird sie geschlossen Durch Hinzufügen einer Zeile zu txtLognow müssen wir dem Winsock mitteilen, was mit den empfangenen Daten zu tun ist txtLog = txtLog.text & data & vbcrlferste Zeile macht Daten zu einem String der Sting ist dort, wo die empfangenen Daten abgelegt werden, bevor sie zu txtLog hinzugefügt werden die Daten noch einmal an txtLognow erhalten, wenn sie verwirrend sind und Sie Fragen haben, schreiben Sie einen Kommentar oder eine Nachricht an mich

Schritt 7: Verwenden des Programms / Schlussfolgerung

Okay, jetzt erkläre ich dir, wie man das Programm benutzt

Klicken Sie in Visual Basic auf die Datei und lassen Sie dann project1.exe auf Ihrem Desktop speichern. Wenn Fehler auftreten, hinterlassen Sie einen Kommentar und ich werde versuchen, Ihnen jetzt zu helfen, dorthin zu gehen, wo Sie das Programm erstellt haben, und doppelklicken Sie zweimal darauf Klicken Sie auf Host und auf der anderen auf Verbinden und auf dem, auf den Sie auf Host geklickt haben, sollte Folgendes angezeigt werden: Verbunden mit: 127.0.0.1 Geben Sie nun einen Namen für beide ein und Sie können Nachrichten zwischen den beiden senden, es funktioniert im LAN und es funktioniert könnte auf WAN funktionieren, aber ich bin mir nicht sicher, ob es Kommentare hinterlassen hat, lassen Sie mich wissen, wie ich es gemacht habe oder wenn Sie Fragen haben oder einfach nur Lust darauf haben, ob es Ihnen gefallen hat oder nicht gefällt, bewerten Sie es