Cum se face un program simplu de chat în Visual Basic utilizând controlul Microsoft Winsock: 7 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:46

În acest instuctabil vă voi arăta cum să creați un program de chat simplu în Visual Basic. Voi trece peste ce face tot codul, astfel încât veți învăța pe măsură ce îl faceți și, la final, vă voi arăta cum să îl utilizați.

Pasul 1: Prezentare generală

Proiect nou "," sus ": 0.44341801385681295," stânga ": 0.2802690582959641," înălțime ": 0.2632794457274827," lățime ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," autor ":" twenglish1: "acesta este ceea ce doriți să selectați, apoi faceți clic pe Deschidere", "sus": 0.25635103926096997, "stânga": 0.017937219730941704, "înălțime": 0.22401847575057737, "lățime": 0.23542600896860988}] ">

Acest program vă va permite să faceți schimb de mesaje între două persoane din aceeași rețea. Poate funcționa dacă nu sunteți în aceeași rețea, dar nu o pot testa acum.

Ar trebui să aveți Microsoft Visual Basic 6.0, asta este ceea ce folosesc. Se recomandă cunoștințe de bază despre programare Să începem !!! deschideți Visual Basic și creați un EXE standard

Pasul 2: crearea infracțiunii utilizatorului

Acum este timpul să creați formularul de utilizator

va trebui să adăugați controlul winsock în caseta de instrumente, faceți acest lucru: 1. faceți clic dreapta undeva în caseta de instrumente unde nu este nimic 2. faceți clic pe Componente 3. în lista lungă găsiți Microsoft Winsock Control 6.0 și bifați caseta de lângă acesta 4 apoi faceți clic pe aplicați apoi închideți Adăugare: 5 casete de text 4 butoane de comandă 1 control winsock aranjați-le să arate ca a doua imagine de mai jos

Pasul 3: Redenumirea și alte modificări ale proprietății

acum vom schimba subtitrările (ceea ce se spune în butoanele de comandă) 1. faceți clic pe comanda12. căutați în partea dreaptă a proprietăților și găsiți Caption3. schimbați-l la Hostdo la fel pentru rest, dar faceți-le: command2 = Connectcommand3 = Closecommand4 = Sendnow vom schimba ceea ce spun casetele de text1. faceți clic pe caseta text pe care scrie text12. accesați fereastra de proprietăți și găsiți proprietatea Text3. face gol 4. faceți același lucru pentru cel care spune Text25. acum faceți clic pe text3 și modificați proprietatea textului la 127.0.0.16. acum faceți clic pe text4 și schimbați proprietatea textului la 12347. acum faceți clic pe text5 și schimbați proprietatea textului pe Name127.0.0.1 este IP-ul dvs. local, astfel încât să puteți testa programul pe computerul dvs. atunci când este terminat1234 este portul pe care îl puteți face oricare ar fi vrei, dar lasă-l 1234 deocamdată

Pasul 4: Schimbarea numelor butoanelor și casetelor de text

trebuie să redenumim butoanele de comandă și casetele de text pentru a le face mai ușor de codat

1. faceți clic pe Text1 și accesați proprietățile și faceți clic pe nume și schimbați-l în txtLog am ales asta pentru că este jurnalul mesajelor pe care le trimiteți și primiți 2. faceți același lucru pentru restul, dar faceți numele: schimbați Text2 în txt Trimiteți modificarea Text3 în txt Modificare IP Text4 în txt Port schimbare Text5 în txt Numele schimbare Comandă1 în cmd Gazdă schimbare Comandă2 în cmd Conectare schimbare Comandă3 în cmd Închidere schimbare Comandă 4 în cmd Trimitere schimbare Winsock1 în sckMain acum mai este un lucru pe care trebuie să îl schimbați faceți clic pe txtLog și în fereastra de proprietăți găsiți MultiLine și faceți acest lucru adevărat acest pas poate provoca o anumită confuzie dacă aveți întrebări postați un comentariu sau trimiteți-mi un mesaj

Pasul 5: Codificarea butoanelor de comandă

acum este timpul să scrieți codul pentru butoanele de comandă, începeți cu primul cmdHost1. faceți dublu clic pe acesta, aceasta va afișa fereastra de cod2. ar trebui să arate astfel: Sub privat cmdHost_Click () End Sub3. introduceți acest codesckMain. LocalPort = txtPort.textsckMain.listennow ce înseamnă asta ?? prima linie face ca portul local winsocks să fie egal cu numărul din caseta de text (txtPort) a doua linie spune winsock să asculte pe acel port pentru cineva care încearcă să se conecteze acum închideți-l și faceți dublu clic pe cmdConnectenter acest codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Conectați primele două linii schimbați RemoteHost și RemotePort de winsock (sckMain) la ip și portul pe care îl dorim sckMain. Connect îi spune pentru a vă conecta la cineva care ascultă pe acel port și ipnow pentru butonul de închidere dublu faceți clic pe cmdClose și typesckMain.closetxtLog = txtLog.text & "Conexiune închisă!" & vbCrlfthe sckMain.close spune winsock să se deconecteze a doua linie adaugă Conexiune închisă la txtLogfă dublu clic pe cmdSend și typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" primele două rânduri sunt greșite, le am corect în editor și le schimbă atunci când salvez, așa că uitați-vă la imagine pentru prima linie de cod, trimiteți textul în txtSend și numele tău în txtNamesecond line adaugă mesajul pe care l-ai trimis și numele tău în txtLogthird line șterge textul din txtSend

Pasul 6: Codificarea Winsock

Acum este timpul să codificăm winsock! caseta de cod ar trebui să spună: faceți clic pe caseta derulantă și selectați cerere de conexiune acum ar fi trebuit să facă un loc nou pentru a introduce codul acolo tip: Dacă sckMain.state sckÎnchideți thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Conectat la: „& sckMain. RemoteHostIP & vbcrlffrst și prima linie verifică dacă winsock-ul (sckMain) este închis și dacă nu este închis, a treia linie închide linia dacă statementforth indică winsock-ului (sckMain) să accepte conexiunile a cincea linie îți spune că ești conectat adăugând o linie la txtLognow trebuie să îi spunem winsock ce trebuie să facă cu datele pe care le primește în colțul din dreapta sus al ferestrei de cod, faceți clic pe caseta verticală și selectați: DataArrival acum introduceți acest cod: dim Date ca stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst prima linie transformă datele într-un șir, sting-ul este locul în care datele primite vor fi puse înainte de a fi adăugate la linia txtLogsecond obține datele și le plasează în șir, pe măsură ce o adaugă o linie vbstring datele primite din nou către txtLognow dacă sunt confuze și aveți întrebări postați comentarii sau trimiteți-mi un mesaj

Pasul 7: Utilizarea programului / Concluziei

ok acum îți voi spune cum să folosești programul

în fișierul de clic vizual de bază, apoi faceți project1.exe salvați-l pe desktop dacă există erori, lăsați un comentariu și voi încerca să vă ajut să mergeți la locul unde ați creat programul și faceți dublu clic pe el de două ori și ar trebui să apară două programe un clic pe gazdă și pe celălalt faceți clic pe conectare și pe cel pe care ați făcut clic pe gazdă ar trebui să spună: Conectat la: 127.0.0.1 introduceți acum un nume pentru ambele și puteți trimite mesaje între cele două funcționează pe LAN și s-ar putea să funcționeze pe WAN, dar nu sunt sigur să las comentarii, anunțându-mă cum am făcut-o sau dacă aveți întrebări sau dacă simțiți că v-a plăcut sau nu v-a plăcut