Kako napraviti jednostavan program za chat u Visual Basicu pomoću Microsoft Winsock kontrole: 7 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:38

U ovom instuctableu pokazat ću vam kako napraviti jednostavan program za chat u basic basic. Proći ću sve što kôd radi pa ćete učiti dok ga izrađujete, a na kraju ću vam pokazati kako ga koristiti.

Korak 1: Pregled

Novi projekt "," gore ": 0.44341801385681295," lijevo ": 0.2802690582959641," visina ": 0.2632794457274827," širina ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," autor ":" twenglish1,: "ovo je ono što želite odabrati pa kliknite otvoriti", "gore": 0.25635103926096997, "lijevo": 0.017937219730941704, "visina": 0.22401847575057737, "širina": 0.23542600896860988}] ">

Ovaj program će vam omogućiti razmjenu poruka između dvije osobe na istoj mreži. Možda će uspjeti ako niste na istoj mreži, ali ne mogu to sada testirati.

Trebao bi imati Microsoft Visual Basic 6.0, to je ono što ja koristim. Preporučuje se osnovno znanje programiranja Počnimo !!! otvorite visual basic i stvorite standardni EXE

Korak 2: Stvaranje utjecaja na korisnike

Sada je vrijeme za stvaranje korisničkog obrasca

morat ćete dodati kontrolu winsocka u okvir s alatima. Ovo učinite na sljedeći način: 1. desnom tipkom miša kliknite negdje u okviru s alatima gdje nema ničega 2. kliknite Komponente 3. na podužem popisu pronađite Microsoft Winsock Control 6.0 i potvrdite okvir pokraj nje 4. zatim kliknite primijeni pa zatvorite Dodaj: 5 tekstualnih okvira 4 naredbene tipke 1 kontrola winsocka rasporedite ih tako da izgledaju kao druga slika ispod

Korak 3: Preimenovanje i druge promjene svojstava

sada ćemo mijenjati naslove (ono što piše u naredbenim gumbima) 1. kliknite naredba12. pogledajte desnu stranu u svojstvima i pronađite natpis3. promijenite ga u Hostdo isto za ostale, ali učinite ih: command2 = Connectcommand3 = Closecommand4 = SendSada ćemo promijeniti ono što tekstualni okviri govore1. kliknite na okvir za tekst s tekstom12. idite na prozor svojstava i pronađite svojstvo Text3. neka bude prazno4. učinite isto za onaj koji kaže Text25. sada kliknite text3 i promijenite svojstvo teksta u 127.0.0.16. sada kliknite text4 i promijenite svojstvo teksta u 12347. sada kliknite text5 i promijenite svojstvo teksta u Name127.0.0.1 je vaš lokalni ip, tako da možete testirati program na svom računalu kad je gotov1234 port, možete ga napraviti kako god želite želim, ali za sada ostavite 1234

Korak 4: Promjena naziva gumba i tekstualnih okvira

moramo preimenovati naredbene gumbe i okvire za tekst kako bismo ih lakše kodirali

1. kliknite Text1 i idite na svojstva, kliknite na ime i promijenite ga u txtLog Ja sam to odabrao jer je to dnevnik poruka koje šaljete i primate 2. učinite isto za ostale, ali napravite imena: promijenite Text2 u txtSend change Text3 u txtIP promijeniti Text4 u txtPort promijeniti Text5 u txtName promijeniti Command1 u cmdHost promijeniti Command2 u cmdConnect promijeniti Command3 u cmdZatvoriti promjenu Command 4 u cmdSašaljiti promijeniti Winsock1 u sckMain sada morate promijeniti još jednu stvar, kliknite txtLog i u prozoru svojstava pronađite MultiLine i učinite to istinitim, ovaj korak može izazvati zabunu ako imate pitanja, pošaljite komentar ili mi pošaljite poruku

Korak 5: Kodiranje naredbenih gumba

sada je vrijeme za pisanje koda za naredbeni gumbipočnite s prvim cmdHost1. dvaput kliknite, otvorit će se kodni prozor2. to bi trebalo izgledati ovakoPrivate Sub cmdHost_Click () End Sub3. unesite ovaj kodckckMain. LocalPort = txtPort.textsckMain.listennow što to znači ?? prvi redak čini winsocks lokalni port jednakim broju u tekstualnom okviru (txtPort) drugi redak govori winsocku da sluša na tom portu za nekoga tko se želi povezati zatvorite to i dvaput kliknite na cmdConnectenter ovaj kodckckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Povežite prva dva retka da promijenite RemoteHost i RemotePort winsocka (sckMain) u ip i port koji želimo da nam kaže sCneck. da se povežete s nekim tko sluša na tom priključku i ipnow za bliski gumb, ali dvaput kliknite cmdClose i unesiteckMain.closetxtLog = txtLog.text & "Veza je zatvorena!" & vbCrlft sckMain.close govori winsocku da prekine vezu, drugi redak dodaje Connection closed to txtLogdvostruki klik na cmdSend i typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & ". text & "]" & txtSend.text & vbcrlftxtSend.text = "" prva dva retka su pogrešna, imam ih točno u uređivaču i mijenja ih prilikom spremanja, pa pogledajte sliku za desni kod, prvi redak šalje tekst u txtSend i vaše ime u retku txtNamesecond dodaje poruku koju ste poslali i vaše ime u red txtLogthird briše tekst u txtSend

Korak 6: Kodiranje Winsocka

sada je vrijeme za kodiranje winsocka! moramo mu reći što učiniti kada se netko pokuša povezati i moramo mu reći gdje smjestiti podatke koje prima. dvaput kliknite na winsock kontrolu (sckMain) u gornjem desnom kutu okvir za kôd koji bi trebao reći: greška, kliknite padajući okvir i odaberite zahtjev za vezu. Sada je trebalo napraviti novo mjesto za unos koda. Ukucajte: Ako je sckMain.state sckZatvorite thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Povezano s: "& sckMain. RemoteHostIP & vbcrlffprvi i drugi redak provjeravaju je li winsock (sckMain) zatvoren, a ako nije tada se zatvara zatvara treći redak zatvara if naredni redak govori winsocku (sckMain) da prihvati veze peti redak vam govori da ste povezani dodavanjem retka u txtLognow moramo reći winsocku što učiniti s podacima koje prima u gornjem desnom kutu prozora koda, kliknite padajući okvir i odaberite: DataArrivalnow unesite ovaj kôd: dim Data kao stringsckMain.getdata Podaci, vbstring txtLog = txtLog.text & data & vbcrlffirst redak čini podatke nizom u koji će biti stavljeni primljeni podaci prije nego što se dodaju u txtLogsekundni red dobiva podatke i smješta ih u nizove kao što vbstringthird redak dodaje podaci primljeni u txtLognow još jednom ako su zbunjujući i imate pitanja, komentirajte ili mi pošaljite poruku

Korak 7: Korištenje programa/zaključak

dobro, sad ću vam reći kako koristiti program

u vizualnoj datoteci osnovnog klika, a zatim napravite projekt1.exe da ga spremi na radnu površinu ako ima grešaka. Ostavite komentar i pokušat ću vam pomoći da sada odete tamo gdje ste napravili program i dvaput kliknite dvaput, a dva programa bi se trebala pojaviti jedan klik host, a drugi klik povezivanje, a na onom na kojem ste kliknuli host na njemu bi trebalo biti napisano: Connected to: 127.0.0.1 sada upišite ime za oboje i možete slati poruke između njih radi na LAN -u i moglo bi raditi na WAN -u, ali nisam siguran da ostavite komentare da mi kažete kako sam prošao ili ako imate pitanja ili ako vam se jednostavno sviđa ako vam se svidio ili nije