Kako narediti preprost program za klepet v Visual Basicu z Microsoft Winsock Control: 7 korakov

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:08

V tem instuctableu vam bom pokazal, kako narediti preprost program za klepet v basic basic. Preučil bom, kaj vse koda počne, tako da se boste med izdelavo učili, na koncu pa vam bom pokazal, kako jo uporabljati.

1. korak: Pregled

Nov projekt "," zgoraj ": 0.44341801385681295," levo ": 0.2802690582959641," višina ": 0.2632794457274827," širina ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," avtor ":" twenglish1,: "to je tisto, kar želite izbrati, nato kliknite odpri", "zgoraj": 0.25635103926096997, "levo": 0.017937219730941704, "višina": 0.22401847575057737, "širina": 0.23542600896860988}] ">

Ta program vam omogoča izmenjavo sporočil med dvema osebama v istem omrežju. Morda bo delovalo, če niste v istem omrežju, vendar tega zdaj ne morem preizkusiti.

Moral bi imeti Microsoft Visual Basic 6.0, to uporabljam. Priporočamo osnovno znanje programiranja Začnimo !!! odprite visual basic in ustvarite standardni EXE

2. korak: Ustvarjanje vpliva uporabnikov

Zdaj je čas za izdelavo uporabniškega obrazca

kontrolnik winsock morate dodati v orodjarno, tako da: 1. z desno miškino tipko kliknete nekje v orodjarni, kjer ni ničesar 2. kliknite Komponente 3. na dolgem seznamu poiščite Microsoft Winsock Control 6.0 in potrdite polje zraven njega 4 nato kliknite Uporabi, nato zaprite Dodaj: 5 besedilnih polj 4 ukazna gumba 1 nadzor WinSock razporedite jih tako, da bodo videti kot druga spodnja slika

3. korak: preimenovanje in druge spremembe lastnosti

zdaj bomo spreminjali napise (kar piše v ukaznih gumbih) 1. kliknite ukaz12. poglejte na desni strani lastnosti in poiščite napis 3. za ostale ga spremenite v Hostdo, vendar jih naredite: command2 = Connectcommand3 = Closecommand4 = Pošlji Zdaj bomo spremenili besedilo v besedilnih poljih1. kliknite besedilno polje z besedilom12. pojdite v okno lastnosti in poiščite lastnost besedila3. naj bo prazno4. storite enako za tisto, ki pravi Text25. zdaj kliknite text3 in spremenite lastnost besedila v 127.0.0.16. zdaj kliknite text4 in spremenite lastnost besedila v 12347. zdaj kliknite text5 in spremenite lastnost besedila v Name127.0.0.1 je vaš lokalni ip, tako da lahko preizkusite program v računalniku, ko je končano1234 vrata, lahko ga naredite karkoli želite želim, ampak zaenkrat pustite 1234

4. korak: Spreminjanje imen gumbov in besedilnih polj

ukazne gumbe in besedilna polja moramo preimenovati, da jih lažje kodiramo

1. kliknite Text1 in pojdite na lastnosti ter kliknite na ime in ga spremenite v txtLog To sem izbral, ker je to dnevnik sporočil, ki jih pošiljate in prejemate 2. naredite enako za ostale, vendar naredite imena: spremenite Text2 v txtPošlji spremembo Text3 v txt IP spremenite Text4 v txtPort spremenite Text5 v txtName spremenite Command1 v cmdHost spremenite Command2 v cmdPovežite spremembo Command3 v cmdZaprite spremembo ukaza 4 v cmdPošljite spremembo Winsock1 v sckMain zdaj morate še nekaj spremeniti, kliknite txtLog in v oknu lastnosti poiščite MultiLine in uresničitev tega koraka lahko povzroči nekaj zmede, če imate kakršna koli vprašanja, napišite komentar ali mi pišite

5. korak: Kodiranje ukaznih gumbov

zdaj je čas, da napišete kodo ukaznih gumbov, ki se začnejo s prvim cmdHost1. dvakrat kliknite nanjo, to bo odprlo okno kode2. izgledati mora takoPrivate Sub cmdHost_Click () End Sub3. vnesite to kodockMain. LocalPort = txtPort.textsckMain.listen Zdaj, kaj to pomeni? Prva vrstica naredi lokalna vrata winsocks enaka številki v besedilnem polju (txtPort), druga vrstica pove winsocku, naj posluša ta vrata za nekoga, ki se želi povezati zaprite to in dvokliknite cmdConnectenter this codeckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Povežite prve dve vrstici, da spremenite RemoteHost in RemotePort winsock (sckMain) v ip in port, ki ju želimo, da nam to pove. da se povežete z nekom, ki posluša ta vrata, in ipnow za bližnji gumb dvakrat kliknite cmdClose in vrsteckMain.closetxtLog = txtLog.text & "Povezava zaprta!" & vbCrlft sckMain.close pove winsocku, naj prekine povezavo, druga vrstica doda Connection closed to txtLogdvokliknite cmdSend in typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & ". text & "]" & txtSend.text & vbcrlftxtSend.text = "" prvi dve vrstici sta napačni, imam jih v urejevalniku in jih spreminjam, ko shranim, zato poglejte sliko za pravo kodo, prva vrstica pošlje besedilo v txtSend in vaše ime v vrstici txtNamesecond doda sporočilo, ki ste ga poslali, in vaše ime v vrstico txtLogthird počisti besedilo v txtSend

6. korak: Kodiranje Winsocka

zdaj je čas, da kodiramo winsock! povedati mu moramo, kaj naj naredi, ko se nekdo poskuša povezati, in povedati mu moramo, kam naj vnese podatke, ki jih prejme, tako da dvokliknemo na kontrolnik winsock (sckMain) v zgornjem desnem kotu polje za kodo, v katerem mora biti zapisano: napaka, kliknite spustno polje in izberite zahtevo za povezavo, zdaj pa bi moral narediti novo mesto za vnos kode. "& sckMain. RemoteHostIP & vbcrlffprve in druge vrstice preverijo, ali je winsock (sckMain) zaprt in če ni, se zapre tretja vrstica zapre iftvrstna vrstica zapre, da winsock (sckMain) sprejme povezave peta vrstica vam pove, da ste povezani z dodajanjem vrstice v txtLognow moramo povedati winsocku, kaj naj naredi s podatki, ki jih prejme v zgornjem desnem kotu okna kode, kliknite spustno polje in izberite: DataArrivalnow vnesite to kodo: dim Data kot stringsckMain.getdata Podatki, vbstring txtLog = txtLog.text & data & vbcrlffirst vrstica naredi podatke niz, v katerem bodo podatki, ki bodo prejeti, vneseni, preden so dodani v txt podatki, ki smo jih prejeli v txtLognow, če so zmedeni in imate vprašanja, komentirajte ali mi pišite

7. korak: Uporaba programa/zaključek

V redu, zdaj vam bom povedal, kako uporabljati program

v vizualni datoteki osnovnega klika, nato pa projekt1.exe shranite na namizje, če pride do napak. gostitelja z enim klikom, na drugem kliknite povezavo in na tistem, na katerem ste kliknili gostitelja, naj piše: Connected to: 127.0.0.1 zdaj vnesite ime za oba in lahko pošiljate sporočila med dvema, ki deluje v LAN -u in lahko deluje na omrežju WAN, vendar nisem prepričan, da pustite komentarje, v katerih mi boste povedali, kako sem naredil, ali če imate vprašanja, ali če vam je všeč, če vam je bilo všeč ali vam ni bilo všeč, ocenite