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

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

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 pravite, a na kraju ću vam pokazati kako ga koristiti.

Korak 1: Pregled

Novi projekat "," gore ": 0.44341801385681295," lijevo ": 0.2802690582959641," visina ": 0.2632794457274827," širina ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," autor ":" twenglish1,: "ovo je ono što želite odabrati, a zatim 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 uticaja korisnika

Sada je vrijeme za kreiranje korisničkog obrasca

morat ćete dodati kontrolu winsock u okvir s alatkama da biste to učinili na sljedeći način: 1. desnim klikom negdje u okviru s alatima gdje nema ničega 2. kliknite na komponente 3. na dugom popisu pronađite Microsoft Winsock Control 6.0 i potvrdite okvir pored njega 4. zatim kliknite primijeni, a zatim zatvorite Dodaj: 5 tekstualnih okvira 4 naredbena gumba 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 komandnim gumbima) 1. kliknite command12. pogledajte desnu stranu u svojstvima i pronađite Caption3. promijenite ga u Hostdo isto za ostale, ali učinite ih: command2 = Connectcommand3 = Closecommand4 = SendZada ćemo promijeniti ono što tekstualna polja govore1. kliknite na okvir za tekst sa tekstom12. idite u 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čunaru kada je gotov1234 port, možete ga napraviti kako god želite želim, ali ostavite 1234 za sada

Korak 4: Promjena naziva dugmadi i okvira za tekst

moramo preimenovati komandne tipke i okvire za tekst kako bismo ih lakše kodirali

1. kliknite na 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 cmdClose promijeniti naredbu 4 u cmdSašaljiti promjenu Winsock1 u sckMain Sada morate još jednu stvar promijeniti promijenite kliknite txtLog iu prozoru svojstava pronađite MultiLine i učinite to istinitim, ovaj korak može izazvati zabunu ako imate pitanja, postavite komentar ili mi pošaljite poruku

Korak 5: Kodiranje komandnih dugmadi

sada je vrijeme za pisanje koda za naredbe buttonlets započinju s prvim cmdHost1. dvaput kliknite na nju, otvoriće se kodni prozor2. to bi trebalo izgledati ovakoPrivate Sub cmdHost_Click () End Sub3. unesite ovaj kodckMain. LocalPort = txtPort.textsckMain.listen Znate li šta to znači? prvi red čini winsocks lokalni port jednakim broju u okviru za tekst (txtPort), drugi red govori winsocku da sluša na tom portu za nekoga ko pokušava da se poveže 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 sa nekim ko sluša na tom portu i ipnow za blizu, ali dvaput kliknite na cmdClose i unesiteckMain.closetxtLog = txtLog.text & "Veza je zatvorena!" & vbCrlft sckMain.close govori winsocku da prekine vezu, drugi red 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 pravo u uređivaču i mijenja ih kada spremim, pa pogledajte sliku za pravi kodni prvi red š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 šta da radi kada se neko pokuša povezati i moramo mu reći gdje treba staviti podatke koje prima. dvaput kliknite na winsock kontrolu (sckMain) u gornjem desnom kutu okvir za kôd 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 sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Povezano sa: "& sckMain. RemoteHostIP & vbcrlffprvi i drugi red provjeravaju je li winsock (sckMain) zatvoren, a ako nije tada zatvara treći red zatvara if naredba naredni red govori winsocku (sckMain) da prihvati veze peti red vam govori da ste povezani dodavanjem retka u txtLognow moramo reći winsocku šta da radi sa podacima koje prima u gornjem desnom uglu prozora koda, kliknite padajući okvir i odaberite: DataArrivalnow unesite ovaj kod: dim Data kao stringsckMain.getdata Podaci, vbstring txtLog = txtLog.text & data & vbcrlffirst linija čini podatke nizom u koji će biti stavljeni primljeni podaci prije nego što se dodaju u txtLogsekundna linija dobije podatke i postavi ih u niz podataka kao vbstringthird red koji dodaje podaci primljeni u txtLognow još jednom ako su zbunjujući i imate pitanja, postavite komentar ili mi pošaljite poruku

Korak 7: Upotreba programa/zaključak

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

u vizualnoj datoteci osnovnog klika, a zatim napravite projekt1.exe da ga sačuva na radnoj površini 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 na njega, a dva programa bi se trebala pojaviti jednim klikom host, a drugim klikom na poveži, a na onom na koje 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 obavještavajući me kako sam prošao ili ako imate pitanja ili ako vam se jednostavno sviđa ako vam se svidio ili nije