Jak vytvořit jednoduchý chatovací program v jazyce Visual Basic pomocí ovládacího prvku Microsoft Winsock: 7 kroků

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:24

V této instuctable vám ukážu, jak vytvořit jednoduchý chatovací program v jazyce Visual Basic. Projdu, co všechno kód dělá, takže se budete učit, jak to děláte, a na konci vám ukážu, jak ho používat.

Krok 1: Přehled

Nový projekt "," nahoře ": 0,44341801385681295," vlevo ": 0,2802690582959641," výška ": 0,2632794457274827," šířka ": 0,5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," autor ":" twenglish1 ",: "to je to, co chcete vybrat, poté klikněte na otevřít", "nahoře": 0,25635103926096997, "vlevo": 0,017937219730941704, "výška": 0,22401847575057737, "šířka": 0,23542600896860988}] ">

Tento program vám umožní vyměňovat si zprávy mezi dvěma lidmi ve stejné síti. Může to fungovat, pokud nejste ve stejné síti, ale teď to nemohu otestovat.

Měli byste mít Microsoft Visual Basic 6.0, to je to, co používám. Doporučujeme základní znalosti programování Pojďme začít !!! otevřete Visual Basic a vytvořte Standard EXE

Krok 2: Vytvoření výskytu uživatele

Nyní je na čase vytvořit uživatelský formulář

budete muset přidat ovládací prvek winsock na panel nástrojů, a to takto: 1. klikněte pravým tlačítkem někam do panelu nástrojů, kde nic není 2. klikněte na součásti 3. v dlouhém seznamu najděte Microsoft Winsock Control 6.0 a zaškrtněte políčko vedle něj 4. pak klikněte na použít a zavřete Přidat: 5 textových polí 4 příkazová tlačítka 1 ovládání winsock uspořádejte je tak, aby vypadaly jako druhý obrázek níže

Krok 3: Přejmenování a další změny vlastností

nyní budeme měnit titulky (to, co se říká v příkazových tlačítkách) 1. klikněte na příkaz12. podívejte se na pravé straně do vlastností a najděte Caption3. změňte to na Hostdo stejné pro ostatní, ale udělejte je: command2 = Connectcommand3 = Closecommand4 = Sendnow budeme měnit to, co textová pole říkají1. klikněte na textové pole, které říká text12. přejděte do okna vlastností a najděte vlastnost Text3. udělejte to prázdné 4. udělejte totéž pro ten, který říká Text25. nyní klikněte na text3 a změňte vlastnost textu na 127.0.0.16. nyní klikněte na text4 a změňte vlastnost textu na 12347. nyní klikněte na text5 a změňte vlastnost textu na Name127.0.0.1 je vaše lokální IP adresa, takže můžete testovat program na svém počítači, když je hotový1234 port, můžete z něj udělat cokoli chcete, ale prozatím nechte 1234

Krok 4: Změna názvů tlačítek a textových polí

potřebujeme přejmenovat příkazová tlačítka a textová pole, aby se snáze kódovala

1. klikněte na Text1 a přejděte na vlastnosti, klikněte na název a změňte jej na txtLog, který jsem si vybral, protože je to protokol zpráv, které odesíláte a přijímáte 2. u ostatních proveďte totéž, ale zadejte názvy: změňte Text2 na txt Odeslat změnu Změna Text3 na txtIP Text4 na txt Změna portu Text5 na txt Změna názvu Command1 na cmdHost změna Command2 na cmdConnect změna Command3 na cmdClose změna Příkaz 4 na cmdPoslat změnu Winsock1 na sckMain Nyní je tu ještě jedna věc, kterou musíte změnit, klikněte na txtLog a v okně vlastností najděte MultiLine a splnění tohoto kroku může způsobit určité nejasnosti, pokud máte nějaké dotazy, napište komentář nebo mi napište

Krok 5: Kódování příkazových tlačítek

nyní je čas napsat kód pro příkaz buttonslets start s prvním cmdHost1. poklepejte na něj, otevře se okno kódu2. mělo by to vypadat taktoPrivate Sub cmdHost_Click () End Sub3. zadejte tento kód zavřete to a dvakrát klikněte na cmdConnectenter this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectthe the first two lines change the RemoteHost and the RemotePort of the winsock (sckMain) to the ip and port we wantthe sckMain. Con Chcete -li se připojit k někomu, kdo poslouchá na tomto portu, a poklepejte na tlačítko Zavřít, dvakrát klikněte na cmdClose a typesckMain.closetxtLog = txtLog.text & "Připojení uzavřeno!" & vbCrlfthe sckMain.close řekne winsocku, aby se odpojil. druhý řádek přidá připojení uzavřeno na txtLogdouble klikněte na cmdSend a typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" první dva řádky jsou chybné, mám je přímo v editoru a při ukládání je změní, tak se podívejte na obrázek na správný kód, první řádek odešle text txtSend a vaše jméno v txtNamesecond řádek přidá odeslanou zprávu a vaše jméno do txtLogthird řádek vymaže text v txtSend

Krok 6: Kódování Winsock

teď je čas kódovat winsock! musíme mu říct, co má dělat, když se někdo pokusí připojit, a my mu musíme říct, kam umístit data, která přijímá, dvojitým kliknutím na ovládací prvek winsock (sckMain) v pravém horním rohu v poli s kódem by mělo být uvedeno: chyba, klikněte na rozevírací seznam a vyberte žádost o připojení "& sckMain. RemoteHostIP & vbcrlffirst a druhé řádky zkontrolují, zda je winsock (sckMain) zavřený a pokud ne, pak jej zavře, třetí řádek zavře if ifforth line řekne winsock (sckMain), aby přijal připojení pátý řádek vám řekne, že jste připojeni přidáním řádku do txtLognow musíme winsocku říci, co má dělat s daty, která obdrží v pravém horním rohu okna kódu, klikněte na rozevírací pole a vyberte: DataArrivalnow zadejte tento kód: dim Data jako stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst řádek dělá z dat řetězec, do kterého se přijímaná data vloží, než se přidají do txtLogsecond řádek data získá a umístí je do řetězcových dat, jak přidá řádek vbstringthird data přijatá do txtLognow ještě jednou, pokud jsou matoucí a máte dotazy, napište komentář nebo mi napište

Krok 7: Použití programu/závěr

ok, teď vám řeknu, jak používat program

v souboru Visual Basic Click klikněte na Project1.exe a uložte jej na plochu, pokud se vyskytnou nějaké chyby, zanechte komentář a já se vám nyní pokusím pomoci jít tam, kde jste program vytvořili, dvakrát na něj dvakrát kliknout a na něm by se měly objevit dva programy jedním kliknutím hostitel a druhým kliknutím připojit a na tom, na kterého jste klikli na hostitele, by mělo říci: Připojeno k: 127.0.0.1 nyní zadejte název pro oba a můžete odesílat zprávy mezi těmito dvěma, které fungují na LAN a může fungovat na WAN, ale nejsem si jistý, zanechat komentáře a dejte mi vědět, jak jsem to udělal, nebo pokud máte otázky nebo se vám to prostě líbí, pokud se vám to líbí nebo nelíbí, ohodnoťte to