Een eenvoudig chatprogramma maken in Visual Basic met behulp van Microsoft Winsock Control: 7 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:19

In deze instructie laat ik je zien hoe je een eenvoudig chatprogramma maakt in Visual Basic. ik zal bespreken wat alle code doet, zodat je leert terwijl je het maakt, en aan het einde zal ik je laten zien hoe je het kunt gebruiken.

Stap 1: Overzicht

Nieuw project", "top":0.44341801385681295, "left":0.2802690582959641, "height":0.2632794457274827, "width":0.5067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "author":"twenglish1", "text":"dit is wat u wilt selecteren en klik vervolgens op openen", "top":0.25635103926096997, "left":0.017937219730941704, "height":0.22401847575057737, "width":0.23542600896860988}]">

Met dit programma kun je berichten uitwisselen tussen twee mensen op hetzelfde netwerk. Het kan werken als je niet op hetzelfde netwerk zit, maar ik kan het nu niet testen.

Je zou Microsoft Visual Basic 6.0 moeten hebben, dat is wat ik gebruik. Basiskennis van programmeren wordt aanbevolen. Laten we beginnen!!! open visual basic en maak een standaard EXE

Stap 2: De gebruikersinbreuk maken

Nu is het tijd om het gebruikersformulier te maken

u moet de winsock-besturing toevoegen aan de toolbox. Doe dit door: 1. rechtsklik ergens in de toolbox waar niets is 2. klik op Componenten 3. zoek in de lange lijst Microsoft Winsock Control 6.0 en vink het vakje ernaast aan 4 klik vervolgens op toepassen en sluiten Toevoegen: 5 tekstvakken 4 opdrachtknoppen 1 winsock-bediening rangschik ze om eruit te zien als de tweede afbeelding hieronder

Stap 3: hernoemen en andere eigenschapswijzigingen

we gaan nu de bijschriften wijzigen (wat er in de opdrachtknoppen staat)1. klik op commando12. kijk aan de rechterkant in de eigenschappen en vind Caption3. verander het in Hostdoe hetzelfde voor de rest maar maak ze:command2 = Connectcommand3 = Closecommand4 = SendNu gaan we veranderen wat de tekstvakken zeggen1. klik op het tekstvak met tekst12. ga naar het eigenschappenvenster en zoek de eigenschap Tekst3. maak het blanco4. doe hetzelfde voor degene die Text25 zegt. klik nu op text3 en verander de teksteigenschap in 127.0.0.16. klik nu op text4 en verander de text-eigenschap in 12347. klik nu op text5 en verander de text-eigenschap in Name127.0.0.1 is uw lokale ip zodat u het programma op uw computer kunt testen wanneer het klaar is1234 is de poort die u kunt maken wat u maar wilt wil maar laat het gewoon 1234 voor nu

Stap 4: De namen van de knoppen en tekstvakken wijzigen

we moeten de opdrachtknoppen en tekstvakken hernoemen om ze gemakkelijker te kunnen coderen

1. klik op Tekst1 en ga naar de eigenschappen en klik op naam en verander het in txtLog ik koos dat omdat het het logboek is van berichten die je verzendt en ontvangt 2. doe hetzelfde voor de rest, maar maak de namen: verander Tekst2 in txtSend veranderen Text3 naar txtIP verander Text4 naar txtPort verander Text5 naar txtName verander Command1 naar cmdHost verander Command2 naar cmdConnect verander Command3 naar cmdClose verander Commando 4 naar cmdSend verander Winsock1 naar sckMain nu is er nog een ding dat je moet veranderen klik op txtLog en zoek in het eigenschappenvenster MultiLine en zorg ervoor dat deze stap enige verwarring kan veroorzaken als je vragen hebt, plaats een opmerking of stuur me een bericht

Stap 5: De opdrachtknoppen coderen

nu is het tijd om de code te schrijven voor de opdrachtknoppen, laten we beginnen met de eerste cmdHost1. dubbelklik erop, dit zal het codevenster2 openen. het zou er zo uit moeten zienPrivate Sub cmdHost_Click()End Sub3. voer deze codes inckMain. LocalPort = txtPort.textsckMain.listennow wat betekent dat??de eerste regel maakt de lokale poort van winsocks gelijk aan het nummer in het tekstvak (txtPort)de tweede regel vertelt de winsock om op die poort te luisteren voor iemand die nu probeert verbinding te maken sluit dat en dubbelklik op cmdConnectvoer deze codes inckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectde eerste twee regels veranderen de RemoteHost en de RemotePort van de winsock (sckMain) naar het ip en de poort die we willende sckMain. Connect vertelt het om verbinding te maken met iemand die op die poort luistert en ipnow voor de sluitknopdubbelklik op cmdClose en typckMain.closetxtLog = txtLog.text & "Verbinding gesloten!" & vbCrlfde sckMain.close vertelt de winsock om de verbinding te verbreken, de tweede regel voegt Verbinding gesloten toe aan txtLog. Dubbelklik op cmdSend en typ ckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = ""de eerste twee regels zijn verkeerd, ik heb ze goed in de editor en het verandert ze wanneer ik ze opsla, dus kijk naar de afbeelding voor de juiste codeeerste regel stuurt de tekst in txtSend en uw naam in txtNametweede regel voegt het bericht toe dat u hebt verzonden en uw naam aan txtLogderde regel wist de tekst in txtSend

Stap 6: De Winsock coderen

nu is het tijd om de winsock te coderen! we moeten hem vertellen wat hij moet doen als iemand verbinding probeert te maken en we moeten hem vertellen waar de gegevens moeten worden geplaatst die hij ontvangt, dubbelklik op de winsock-besturing (sckMain) in de rechterbovenhoek van in het codevak moet staan: errorklik op de vervolgkeuzelijst en selecteer verbindingsverzoek, nu zou het een nieuwe plaats moeten hebben gemaakt om de code daarin in te voeren typ:If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Verbonden met: " & sckMain. RemoteHostIP & vbcrlfeerste en tweede regel controleren of de winsock (sckMain) gesloten is en als dat niet het geval is, wordt deze gesloten.derde regel sluit het if-statementvoorde regel vertelt de winsock (sckMain) om verbindingen te accepterenvijfde regel vertelt u dat u verbonden bent door een regel aan txtLognow toe te voegen, moeten we de winsock vertellen wat hij moet doen met de gegevens die hij ontvangt in de rechterbovenhoek van het codevenster. txtLog = txtLog.text & data & vbcrlffirst line maakt data een string de angel is waar de data die wordt ontvangen wordt geplaatst voordat het wordt toegevoegd aan txtLogsecond line haalt de data op en plaatst deze in de string data als een vbstringthird line voegt de gegevens die zijn ontvangen naar txtLognow nogmaals als het verwarrend is en je hebt vragen, plaats een opmerking of stuur me een bericht

Stap 7: Het programma/conclusie gebruiken

ok nu ga ik je vertellen hoe je het programma moet gebruiken

in visual basic klikbestand maak dan project1.exe sla het op je bureaublad op als er fouten zijn laat een reactie achter en ik zal proberen je nu te helpen naar waar je het programma hebt gemaakt en dubbelklik er twee keer op en er zouden twee programma's moeten verschijnen op één klik op host en op de andere klik op verbinden en op degene waarop je op host hebt geklikt, zou het moeten zeggen: Verbonden met: 127.0.0.1 typ nu een naam voor beide in en je kunt berichten verzenden tussen de twee het werkt op LAN en het werkt misschien op WAN, maar ik weet het niet zeker laat reacties achter om me te laten weten hoe ik het heb gedaan of als je vragen hebt of als je er gewoon zin in hebt of je het leuk of niet leuk vond, beoordeel het