Egyszerű csevegőprogram készítése a Visual Basic programban a Microsoft Winsock Control használatával: 7 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

Ebben az intuitívban megmutatom, hogyan lehet egy egyszerű chat programot készíteni a visual basic -ben. át fogom nézni, hogy mit tesz az összes kód, így készítés közben tanulni fog, és a végén megmutatom, hogyan kell használni.

1. lépés: Áttekintés

Új projekt "," top ": 0.44341801385681295," left ": 0.2802690582959641," height ": 0.2632794457274827," width ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1: "ezt szeretné kiválasztani, majd kattintson a megnyitásra", "felül": 0.25635103926096997, "bal": 0.017937219730941704, "magasság": 0.22401847575057737, "szélesség": 0.23542600896860988}] ">

Ez a program lehetővé teszi üzenetek cseréjét két ember között ugyanazon a hálózaton. Lehet, hogy működik, ha nem ugyanazon a hálózaton van, de most nem tudom tesztelni.

Microsoft Visual Basic 6.0 -val kell rendelkeznie, ezt használom. Alapvető programozási ismeretek ajánlottak Kezdjük el !!! nyissa meg a visual basic programot, és hozzon létre egy szabványos EXE -t

2. lépés: A felhasználói szabálytalanság létrehozása

Itt az ideje létrehozni a felhasználói űrlapot

hozzá kell adnia a winsock vezérlőt az eszköztárhoz, tegye ezt: 1. kattintson jobb gombbal valahol az eszköztárban, ahol nincs semmi.. majd kattintson az Alkalmaz gombra, majd zárja be Hozzáadás: 5 szövegdoboz 4 Parancsgomb 1 Winsock vezérlés

3. lépés: Átnevezés és egyéb tulajdonságváltozások

most megváltoztatjuk a feliratokat (amit a parancsgombok mondanak) 1. kattintson a parancsra12. nézze meg a jobb oldalon a tulajdonságokban, és keresse meg a Felirat3 -at. módosítsa Hostdo -ra ugyanazt a többire, de állítsa be őket: command2 = Connectcommand3 = Closecommand4 = Sendnow megváltoztatjuk a szövegdobozok mondanivalóját1. kattintson a text12 szövegdobozra. lépjen a tulajdonságok ablakba, és keresse meg a Szöveg tulajdonság3. tedd üresen4. tegye ugyanezt a szöveg25 -ös szöveggel. most kattintson a text3 gombra, és módosítsa a szöveg tulajdonságát 127.0.0.16 -ra. most kattintson a szöveg4 -re, és módosítsa a szövegtulajdonságot 12347 -re. most kattintson a szöveg5 -re, és módosítsa a szövegtulajdonságot Név -re akarod, de most hagyd csak 1234 -et

4. lépés: A gombok és szövegdobozok nevének módosítása

át kell neveznünk a parancsgombokat és szövegdobozokat, hogy megkönnyítsük a kódolást

1. kattintson a Text1 elemre, és menjen a tulajdonságokhoz, majd kattintson a névre, és módosítsa txt -re. Text3 to txtIP change Text4 to txtPort change text5 to txtName change Command1 to cmdHost change Command2 to cmdConnect change Command3 to cmdClose change change Command 4 to cmdSend change Winsock1 to sckMain most van még egy dolog, amit meg kell változtatni kattintson txtLog és a tulajdonságok ablakban MultiLine és tegye valóra ez a lépés némi zavart okozhat, ha bármilyen kérdése van, írjon megjegyzést vagy üzenetet nekem

5. lépés: A parancsgombok kódolása

most itt az ideje, hogy írja be a kódot a parancsgombokhoz, amelyek az első cmdHost1 -el kezdődnek. kattintson duplán, ez előhívja a kódablakot2. így kell kinézniePrivate Sub cmdHost_Click () End Sub3. Írja be ezt a kódot Zárja be ezt, és kattintson duplán a cmdConnect -re hogy csatlakozzon valakihez, aki ezen a porton hallgatja az ipnow -t, kattintson a cmdClose és typeckMain.closetxtLog = txtLog.text & "Connection closed!" & vbCrlfthe sckMain.close utasítja a winsockot, hogy szüntesse meg a kapcsolatot, a második sor pedig hozzáadja a Kapcsolat zárva txtLog -hoz kattintson duplán a cmdSend és a typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" az első két sor hibás, a szerkesztőben van, és a mentéskor megváltoztatja őket, ezért nézze meg a képet a megfelelő kód első sorában a szöveg txtSend és a neve a txt -benNamesecond line hozzáadja az elküldött üzenetet és a nevét a txt -hez A harmadik sor törli a txtSendben lévő szöveget

6. lépés: A Winsock kódolása

most itt az ideje, hogy kódoljuk a winsock -ot! meg kell mondanunk, hogy mit kell tennie, ha valaki megpróbál csatlakozni, és meg kell mondanunk, hogy hová tegye a kapott adatokat dupla kattintással a Winsock vezérlőn (sckMain) a jobb felső sarokban a kóddobozban azt kell mondania: hiba kattintson a legördülő listára, és válassza a csatlakozási kérelmet, most új helyet kellett volna létrehoznia a kód beírásához, írja be: if sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Connected to: "& sckMain. RemoteHostIP & vbcrlffirst és a második sorok ellenőrzik, hogy a winsock (sckMain) zárva van -e, és ha nem, akkor bezárja a harmadik sor bezárja az if utasítás utasítást egy sor hozzáadásával a txtLognow -hoz meg kell mondanunk a winsocknak, hogy mit tegyen a kapott adatokkal a kódablak jobb felső sarkában kattintson a legördülő mezőre, és válassza a következőt: DataArrivalmost írja be ezt a kódot: dim Data stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst sor az adatokat karakterlánccá teszi a csípéssé, ahol a beérkezett adatokat a txt -hez való hozzáadása előtt kell elhelyezni. a txtLognow -ba kapott adatok ismét, ha zavaróak, és kérdései vannak megjegyzés vagy üzenet küldése

7. lépés: A program használata/Következtetés

Rendben, most elmondom, hogyan kell használni a programot

a vizuális alapkattintási fájlban, majd készítse el a project1.exe fájlt, ha hibák vannak, hagyja megjegyzést, és megpróbálok segíteni abban, hogy menjen oda, ahol a programot készítette, és kattintson duplán kétszer, és két program jelenik meg az egyik kattintógép, a másikra pedig a csatlakozás, és azon, amelyikre rákattintott, azt kell írnia: Csatlakozott: 127.0.0.1, írja be mindkettő nevét, és üzeneteket küldhet a kettő között, és működik LAN -on és működhet a WAN -on, de nem biztos, hogy megjegyzéseket hagy, hogy tudjam, hogyan jártam el, vagy ha kérdései vannak, vagy csak úgy érzi, hogy tetszett, vagy nem tetszett, értékelje