Sådan laver du et simpelt chatprogram i Visual Basic ved hjælp af Microsoft Winsock Control: 7 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:30

I denne instuctable vil jeg vise dig, hvordan du laver et simpelt chatprogram i visual basic. Jeg vil gå over, hvad al koden gør, så du vil lære, mens du laver den, og i slutningen vil jeg vise dig, hvordan du bruger den.

Trin 1: Oversigt

Nyt projekt "," top ": 0.44341801385681295," venstre ": 0.2802690582959641," højde ": 0.2632794457274827," bredde ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," forfatter ":" twenglish1: "det er det, du vil vælge, klik derefter på åben", "top": 0.25635103926096997, "venstre": 0.017937219730941704, "højde": 0.22401847575057737, "bredde": 0.23542600896860988}] ">

Dette program lader dig udveksle meddelelser mellem to personer på dit samme netværk. Det kan fungere, hvis du ikke er på det samme netværk, men jeg kan ikke teste det nu.

Du skal have Microsoft Visual Basic 6.0, det er det, jeg bruger. Grundlæggende programmeringskendskab anbefales Lad os komme i gang !!! åben visual basic og opret en Standard EXE

Trin 2: Oprettelse af brugerinfence

Nu er det tid til at oprette brugerformularen

du bliver nødt til at tilføje winsock -kontrollen til værktøjskassen ved at: 1. højreklikke et sted i værktøjskassen, hvor der ikke er noget 2. klik på Komponenter 3. i den lange liste, find Microsoft Winsock Control 6.0 og markér feltet ud for det 4. klik derefter på Apply, og luk derefter Tilføj: 5 tekstbokse 4 kommandoknapper 1 winsock -kontrol få dem til at ligne det andet billede herunder

Trin 3: Omdøbning og andre ejendomsændringer

vi kommer nu til at ændre billedteksterne (hvad der står i kommandoknapperne) 1. klik på kommando12. se på højre side i ejendommene og find Caption3. ændre det til Hostdo det samme for resten, men lav dem: command2 = Connectcommand3 = Closecommand4 = Sendnow vi vil ændre, hvad tekstfelterne siger1. klik på tekstboksen, der siger tekst12. gå til egenskabsvinduet og find egenskaben Tekst3. gør det tomt4. gør det samme for den der siger Text25. klik nu på tekst3, og skift tekstegenskaben til 127.0.0.16. klik nu på tekst4, og skift tekstegenskaben til 12347. klik nu på tekst5, og skift tekstegenskaben til Navn127.0.0.1 er din lokale ip, så du kan teste programmet på din computer, når det er gjort1234 er porten, du kan gøre det til, hvad du end er vil, men lad det være 1234 for nu

Trin 4: Ændring af navnene på knapperne og tekstfelterne

vi skal omdøbe kommandoknapperne og tekstfelterne for at gøre dem lettere at kode

1. klik på Tekst1 og gå til egenskaberne, klik på navn og ændr det til txtLog jeg valgte det, fordi det er loggen over meddelelser, du sender og modtager 2. gør det samme for resten, men lav navnene: ændr Tekst2 til txtSend ændring Tekst3 til txtIP ændring Tekst4 til txtPort ændring Tekst5 til txt Navn ændring Kommando1 til cmdHost ændring Kommando2 til cmdTilslut ændring Kommando3 til cmdLuk ændring Kommando 4 til cmdSend ændring Winsock1 til sckMain nu er der en ting mere du skal ændre klik på txtLog og i vinduet egenskaber finder du MultiLine og gør det sandt, dette trin kan forårsage forvirring, hvis du har spørgsmål, send en kommentar eller send mig en besked

Trin 5: Kodning af kommandoknapperne

nu er det tid til at skrive koden til kommandoknapperne, der starter med den første cmdHost1. dobbeltklik på det, dette vil vise kodevinduet2. det skal se sådan udPrivate Sub cmdHost_Click () End Sub3. indtast denne codesckMain. LocalPort = txtPort.textsckMain.listennow hvad betyder det ?? den første linje gør winsocks lokale port lig med nummeret i tekstboksen (txtPort) den anden linje fortæller winsock at lytte på den port for en person, der prøver at forbinde nu luk det, og dobbeltklik på cmdConnectindtast denne codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect de to første linjer ændrer RemoteHost og RemotePort for winsock (sckMain) til den ip og port, vi ønsker sckMain. Connect fortæller det for at oprette forbindelse til en person, der lytter på den port og ipnow for den tætte buttondouble click on cmdClose and typesckMain.closetxtLog = txtLog.text & "Connection closed!" & vbCrlfthe sckMain.close fortæller winsock at afbryde den anden linje tilføjer Connection closed to txtLog dobbeltklik på cmdSend og typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" de to første linjer er forkerte, jeg har dem lige i editoren, og det ændrer dem, når jeg gemmer, så se på billedet for den rigtige kode, første linje sender teksten ind txtSend og dit navn i txtNamesecond line tilføjer den besked, du har sendt, og dit navn til txtLogthird line rydder teksten i txtSend

Trin 6: Kodning af Winsock

nu er det tid til at kode winsocken! vi skal fortælle det, hvad de skal gøre, når nogen forsøger at oprette forbindelse, og vi skal fortælle det, hvor de data, det modtager, skal placeres, dobbeltklik på winsock -kontrollen (sckMain) i øverste højre hjørne af kodeboksen skulle det sige: fejl, klik på rullemenuen, og vælg forbindelsesforespørgsel, nu skulle det have lavet et nyt sted at indtaste kode i den type: Hvis sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Tilsluttet: "& sckMain. RemoteHostIP & vbcrlfførste og anden linje kontrollerer, om winsock (sckMain) er lukket, og hvis det ikke er det, lukker den tredje linje lukker if statementforth -linjen fortæller winsock (sckMain) om at acceptere forbindelser. femte linje fortæller dig, at du er forbundet ved at tilføje en linje til txtLognow skal vi fortælle winsock, hvad de skal gøre med de data, den modtager øverst til højre i kodevinduet, klik på rullemenuen og vælg: DataArrivalnow indtast denne kode: dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffstst line gør data til en streng, stikket er, hvor de data, der modtages, skal placeres, før de tilføjes til txtLogsecond -linjen får dataene og placerer dem i strengdataene, som en vbstringthird -linje tilføjer data modtaget til txtLognow igen, hvis det er forvirrende, og du har spørgsmål, send en kommentar eller send mig en besked

Trin 7: Brug af programmet/konklusionen

ok nu vil jeg fortælle dig, hvordan du bruger programmet

i visuel grundlæggende klikfil, lav derefter project1.exe, gem den på dit skrivebord, hvis der er fejl, efterlad en kommentar, og jeg vil forsøge at hjælpe dig nu med at gå til det sted, hvor du lavede programmet, og dobbeltklikke på det to gange, og to programmer skulle dukke op et klik vært og på det andet klik forbind og på den du klikket vært på det skulle sige: Tilsluttet: 127.0.0.1 indtast nu et navn for dem begge, og du kan sende beskeder mellem de to det fungerer på LAN og det kan fungere på WAN, men jeg er ikke sikker på at efterlade kommentarer, der fortæller mig, hvordan jeg gjorde, eller hvis du har spørgsmål, eller hvis du bare har lyst til det, hvis du kunne lide det eller ikke kunne lide det, bedøm det