Hoe om 'n eenvoudige geselsprogram in Visual Basic te maak met behulp van die Microsoft Winsock Control: 7 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:28

In hierdie instuitbare sal ek jou wys hoe om 'n eenvoudige geselsprogram in visueel basiese te maak. Ek sal kyk wat al die kode doen, sodat u sal leer terwyl u dit maak, en aan die einde sal ek u wys hoe u dit moet gebruik.

Stap 1: Oorsig

New Project "," top ": 0.44341801385681295," left ": 0.2802690582959641," height ": 0.2632794457274827," width ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1 ": "dit is wat u wil kies, klik dan op oop", "bo": 0.25635103926096997, "links": 0.017937219730941704, "hoogte": 0.22401847575057737, "breedte": 0.23542600896860988}] ">

Met hierdie program kan u boodskappe tussen twee mense op dieselfde netwerk uitruil. Dit kan werk as u nie op dieselfde netwerk is nie, maar ek kan dit nie nou toets nie.

U moet Microsoft Visual Basic 6.0 hê, dit is wat ek gebruik. Basiese programmeringskennis word aanbeveel Kom ons begin !!! maak Visual Basic oop en skep 'n Standard EXE

Stap 2: Skep die gebruikersinfensie

Nou is dit tyd om die gebruikersvorm te skep

u moet die winsock -kontrole by die gereedskapskas voeg: doen dit met die rechtermuisknop iewers in die gereedskapskis, waar daar niks is nie. klik op Components 3. in die lang lys, vind Microsoft Winsock Control 6.0 en merk die blokkie langsaan 4 Klik dan op Pas toe en sluit Voeg: 5 teksblokkies 4 opdragknoppies 1 Winsock -beheer, sodat hulle soos die tweede prentjie hieronder lyk

Stap 3: Hernoem en ander eiendomsveranderings

ons gaan nou die onderskrifte verander (wat in die opdragknoppies staan) 1. klik op command12. kyk aan die regterkant in die eiendomme en vind Caption3. verander dit na Hostdo dieselfde vir die res, maar maak dit: command2 = Connectcommand3 = Closecommand4 = Sendnow ons gaan verander wat die teksblokkies sê1. klik op die tekskassie wat teks12. gaan na die venster Eienskappe en vind die teks -eienskap3. maak dit leeg 4. doen dieselfde vir die een wat sê Text25. klik nou op text3 en verander die teksteiendom na 127.0.0.16. klik nou op text4 en verander die teksteiendom na 12347. klik nou op text5 en verander die teksteiendom na naam127.0.0.1 is u plaaslike ip, sodat u die program op u rekenaar kan toets as dit klaar is1234 die poort is. wil, maar laat dit nou eers 1234

Stap 4: Die name van die knoppies en teksblokkies verander

ons moet die opdragknoppies en teksblokkies hernoem om dit makliker te maak om te kodeer

1. klik op Text1 en gaan na die eiendomme en klik op die naam en verander dit in txtLog, ek het dit gekies omdat dit die logboek is van boodskappe wat u stuur en ontvang 2. doen dieselfde vir die res, maar maak die name: verander Text2 na txt Stuur verandering Text3 na txtIP verander Text4 na txt Poort verander Text5 na txt Naam verander Command1 na cmd Verander command Command2 na cmd Sluit verander Command3 na cmd Sluit verander Command 4 na cmd Stuur verandering Winsock1 na sckMain nou is daar nog een ding wat u moet verander, klik txtLog en vind in die eienskappe venster MultiLine en maak dit waar, hierdie stap kan verwarring veroorsaak as u vrae het, 'n opmerking of 'n boodskap aan my stuur

Stap 5: Kodering van die opdragknoppies

nou is dit tyd om die kode vir die opdragknoppies te skryf, begin met die eerste cmdHost1. dubbelklik daarop, dit sal die kodevenster2. dit moet so lyk Privaat sub cmdHost_Click () Einde Sub3. tik hierdie codesckMain. LocalPort = txtPort.textsckMain.listennow wat beteken dit ?? die eerste reël maak die winsocks plaaslike poort gelyk aan die nommer in die teksbus (txtPort) die tweede reël vertel die winsock om op die poort te luister vir iemand wat probeer om nou te verbind maak dit toe en dubbelklik op cmdConnect Sluit hierdie codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect aan die eerste twee reëls verander die RemoteHost en die RemotePort van die winsock (sckMain) na die ip en poort wat ons wil hê sckMain. Connect vertel dit om aan te sluit by iemand wat op die poort luister en weet vir die noue onderkant, dubbelklik op cmdClose en typesckMain.closetxtLog = txtLog.text en "Verbinding gesluit!" & vbCrlfthe sckMain.close vertel die winsock om die tweede reël te ontkoppel Voeg verbinding gesluit na txtLog dubbelklik op cmdSend en typckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" die eerste twee reëls is verkeerd, ek het dit reg in die redakteur en dit verander dit as ek stoor, kyk na die prentjie, want die regte kode stuur die eerste teks in txtSend en u naam in txtNamesecond -reël voeg die boodskap wat u gestuur het, en u naam by txtLogthird -reël, maak die teks in txtSend skoon

Stap 6: Kodering van die Winsock

nou is dit tyd om die winsock te kodeer! ons moet vir hom sê wat om te doen as iemand probeer om aan te sluit en ons moet dit vertel waar ons die data wat hy ontvang moet plaas, dubbelklik op die winsock control (sckMain) in die regter boonste hoek van in die kodeblokkie moet dit sê: klik op die keuselys en kies 'n verbindingsaanvraag; dit moes 'n nuwe plek gemaak het om die kode in te voer; "& sckMain. RemoteHostIP & vbcrl eerste en tweede reëls kyk of die winsock (sckMain) gesluit is en as dit nie is nie, sluit dit die derde reël sluit die if statementforth -reël die winsock (sckMain) om verbindings te aanvaar. vyfde reël vertel u dat u verbind is deur 'n reël by txt te voeg, moet ons die winsock vertel wat hy moet doen met die data wat dit ontvang in die regter boonste hoek van die kodevenster, klik op die keuselys en kies: DataArrivalnow voer hierdie kode in: dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrl eerste reël maak data 'n string, die steek is waar die data wat ontvang word geplaas word voordat dit by txtLogsecond reël gevoeg word, kry die data en plaas dit in die string data as 'n vbstringthird reël byvoeg die data wat weer aan txtLognow ontvang is as dit verwarrend is en u vrae het, stuur 'n opmerking of stuur 'n boodskap aan my

Stap 7: Gebruik van die program/gevolgtrekking

ok, nou gaan ek jou vertel hoe om die program te gebruik

In die visuele basiese kliklêer, laat dan project1.exe stoor dit op u lessenaar as daar foute is, laat 'n opmerking, en ek sal u probeer help om na die plek waar u die program gemaak het, te dubbelkliek, en daar moet twee programme verskyn met een klik gasheer en op die ander klik verbind en op die een waarop u geklik het, moet die gasheer daarop sê: Gekoppel aan: 127.0.0.1 tik nou 'n naam vir albei in, en u kan boodskappe stuur tussen die twee, dit werk op LAN en dit werk moontlik op WAN, maar ek is nie seker kommentaar lewer nie, laat my weet hoe ek dit gedoen het, of as u vrae het, of as u net lus het as u daarvan hou of nie daarvan hou nie, beoordeel dit