Ako vytvoriť jednoduchý chatovací program v jazyku Visual Basic pomocou ovládacieho prvku Microsoft Winsock: 7 krokov

2024 Autor: John Day | [email protected]. Naposledy zmenené: 2024-01-30 12:01

V tejto intuitívnej vám ukážem, ako vytvoriť jednoduchý chatovací program v jazyku Visual Basic. Prejdem, čo všetko kód robí, takže sa naučíte, ako ho vytvoríte, a na konci vám ukážem, ako ho používať.

Krok 1: Prehľad

Nový projekt "," hore ": 0,44341801385681295," vľavo ": 0,2802690582959641," výška ": 0,2632794457274827," šírka ": 0,5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," autor ":" twenglish1 ",: "toto chcete vybrať, potom kliknite na tlačidlo otvoriť", "hore": 0,25635103926096997, "vľavo": 0,017937219730941704, "výška": 0,22401847575057737, "šírka": 0,23542600896860988}] ">

Tento program vám umožní vymieňať si správy medzi dvoma ľuďmi vo vašej sieti. Môže to fungovať, ak nie ste v rovnakej sieti, ale nemôžem to teraz otestovať.

Mali by ste mať Microsoft Visual Basic 6.0, to je to, čo používam. Odporúčame základné znalosti programovania Začnime !!! otvorte Visual Basic a vytvorte Štandardný EXE

Krok 2: Vytvorenie výskytu používateľa

Teraz je načase vytvoriť užívateľský formulár

budete musieť pridať ovládací prvok winsock do panela s nástrojmi, a to takto: 1. kliknite pravým tlačidlom myši niekam na panel s nástrojmi, kde nič nie je 2. kliknite na položku súčasti 3. v dlhom zozname vyhľadajte program Microsoft Winsock Control 6.0 a začiarknite políčko vedľa neho 4.tak kliknite na použiť a potom zatvorte Pridať: 5 textových polí 4 príkazové tlačidlá 1 ovládanie winsock usporiadajte ich tak, aby vyzerali ako na druhom obrázku nižšie

Krok 3: Premenovanie a ďalšie zmeny vlastníctva

teraz zmeníme titulky (to, čo je uvedené v príkazových tlačidlách) 1. kliknite na príkaz 12. pozrite sa na pravú stranu vo vlastnostiach a nájdite Caption3. zmeňte ho na Hostdo rovnaký pre ostatné, ale urobte ich: command2 = Connectcommand3 = Closecommand4 = Sendnow zmeníme to, čo hovoria textové polia1. kliknite na textové pole s textom 12. prejdite do okna vlastností a nájdite vlastnosť Text3. urobte to prázdne4. urobte to isté pre ten, ktorý hovorí Text25. teraz kliknite na text3 a zmeňte vlastnosť textu na 127.0.0.16. teraz kliknite na text4 a zmeňte vlastnosť textu na 12347. teraz kliknite na text5 a zmeňte vlastnosť textu na Name127.0.0.1 je vaša miestna adresa IP, aby ste mohli program otestovať na počítači, keď je hotový1234, môžete z neho vytvoriť ľubovoľný port chcete, ale nechajte to zatiaľ 1234

Krok 4: Zmena názvov tlačidiel a textových polí

musíme premenovať príkazové tlačidlá a textové polia, aby sa dali jednoduchšie kódovať

1. kliknite na Text1 a prejdite na vlastnosti, kliknite na meno a zmeňte ho na txtLog, ktorý som si vybral, pretože je to denník správ, ktoré odosielate a prijímate 2. urobte to isté pre ostatné, ale zadajte názvy: zmeňte Text2 na txtPoslať zmenu Text3 na txtIP Zmena Text4 na txt Zmena portu Text5 na txt Zmena názvu Command1 na cmdHost zmena Command2 na cmdPripojenie zmeny Command3 na cmdZavrieť zmenu príkazu 4 na cmdPoslať zmenu Winsock1 na sckMain Teraz je tu ešte jedna vec, ktorú musíte zmeniť, kliknite na txtLog a v okne vlastností nájdite MultiLine a jeho uskutočnenie v tomto kroku môže spôsobiť určité nejasnosti, ak máte akékoľvek otázky, pošlite komentár alebo mi pošlite správu

Krok 5: Kódovanie príkazových tlačidiel

teraz je načase napísať kód pre príkaz buttonlets začínajúci prvým cmdHost1. dvojitým kliknutím naň vyvoláte okno kódu2. malo by to vyzerať nasledovnePrivate Sub cmdHost_Click () End Sub3. zadajte tento kód zatvorte to a dvakrát kliknite na cmdConnectenter tento codeckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectthe prvé dva riadky zmeniť RemoteHost a RemotePort winsock (sckMain) na ip a port, ktorý chceme sckMain. Con Ak sa chcete pripojiť k niekomu, kto počúva na tomto porte, a kliknite na tlačidlo Zavrieť, dvakrát kliknite na cmdClose a typesckMain.closetxtLog = txtLog.text & „Pripojenie uzavreté!“& vbCrlfthe sckMain.close hovorí winsocku, aby odpojil druhý riadok pridáva Pripojenie uzavreté na txtLogdouble kliknite na cmdSend a typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" prvé dva riadky sú nesprávne, mám ich priamo v editore a pri uložení ich zmení, takže sa pozrite na obrázok na správny kód, prvý riadok odošle text v txtSend a vaše meno v txtNamesecond riadok pridá odoslanú správu a vaše meno do txtLogthird riadok vymaže text v txtSend

Krok 6: Kódovanie Winsocku

teraz je čas kódovať winsock! musíme mu povedať, čo má robiť, keď sa niekto pokúsi pripojiť, a musíme mu povedať, kam má vložiť prijaté údaje, dvakrát kliknite na ovládací prvok winsock (sckMain) v pravom hornom rohu v poli s kódom by malo byť uvedené: chyba, kliknite na rozbaľovacie pole a zvoľte požiadavku na pripojenie teraz to malo vytvoriť nové miesto na zadanie kódu v ňom zadajte: "& sckMain. RemoteHostIP & vbcrlffirst a druhé riadky skontrolujú, či je winsock (sckMain) zatvorený a ak nie, potom ho zatvorí, tretí riadok zavrie if ifforth line povie winsock (sckMain), aby prijal pripojenia piaty riadok vám hovorí, že ste pripojení pridaním riadka do txtLognow musíme winsocku povedať, čo má robiť s údajmi, ktoré dostane, v pravom hornom rohu okna s kódom kliknite na rozbaľovacie pole a zvoľte: DataArrivalnow zadajte tento kód: dim Data ako stringsckMain.getdata Údaje, vbstring txtLog. údaje prijaté do txtLognow ešte raz, ak sú mätúce a ak máte otázky, pošlite komentár alebo mi pošlite správu

Krok 7: Použitie programu/záver

ok, teraz vám poviem, ako používať program

v vizuálnom základnom súbore kliknutí potom urobte project1.exe, uložte ho na pracovnú plochu, ak existujú nejaké chyby, zanechajte komentár a pokúsim sa vám teraz pomôcť prejsť na miesto, kde ste program vytvorili, dvakrát naň dvakrát kliknite a mali by sa objaviť dva programy. na jedno kliknutie hostiteľ a na druhé kliknutie na pripojenie a na ten, na ktorý ste klikli na hostiteľa, by mal povedať: Pripojené k: 127.0.0.1 teraz zadajte meno pre oboch a medzi nimi môžete odosielať správy, ktoré funguje na sieti LAN, a môže fungovať na sieti WAN, ale nie som si istý, či mi zanechajú komentáre a dajú mi vedieť, ako som to urobil, alebo ak máte otázky alebo sa vám to páči, ak sa vám to páči alebo nepáči, ohodnoťte to