Si të bëni një program të thjeshtë bisedash në Visual Basic duke përdorur Microsoft Winsock Control: 7 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:30

Në këtë instuctable unë do t'ju tregoj se si të bëni një program të thjeshtë chat në visual Basic. Unë do të shqyrtoj se çfarë bën i gjithë kodi, kështu që ju do të mësoni ndërsa e bëni, dhe në fund do t'ju tregoj se si ta përdorni.

Hapi 1: Vështrim i përgjithshëm

Projekt i Ri "," lart ": 0.44341801385681295," majtas ": 0.2802690582959641," lartësia ": 0.2632794457274827," gjerësia ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," tekst "," autor ":: "kjo është ajo që dëshironi të zgjidhni, pastaj klikoni hapur", "lart": 0.25635103926096997, "majtas": 0.017937219730941704, "lartësia": 0.22401847575057737, "gjerësia": 0.23542600896860988}] ">

Ky program do t'ju lejojë të shkëmbeni mesazhe midis dy njerëzve në të njëjtin rrjet. Mund të funksionojë nëse nuk jeni në të njëjtin rrjet, por nuk mund ta testoj tani.

Ju duhet të keni Microsoft Visual Basic 6.0, kjo është ajo që unë jam duke përdorur. Rekomandohen njohuritë bazë të programimit Le të fillojmë !!! hapni Visual Basic dhe krijoni një Standard EXE

Hapi 2: Krijimi i Infrence të Përdoruesit

Tani është koha për të krijuar formën e përdoruesit

do t’ju duhet të shtoni kontrollin winsock në kutinë e veglave bëjeni këtë me: 1. klikoni me të djathtën diku në kutinë e veglave ku nuk ka asgjë 2. klikoni Components 3. në listën e gjatë gjeni Microsoft Winsock Control 6.0 dhe kontrolloni kutinë pranë tij 4. pastaj kliko apliko pastaj mbyll Shto: 5 kuti teksti 4 butona komande 1 kontroll winock rregulloni ato që të duken si fotografia e dytë më poshtë

Hapi 3: Riemërtimi dhe Ndryshimet e tjera të Pronës

tani do të ndryshojmë titrat (çfarë thuhet në butonat e komandës) 1. kliko komandën12. shikoni në anën e djathtë në pronat dhe gjeni Caption3. ndryshojeni atë në Hostdo njëjtë për pjesën tjetër por bëni ato: command2 = Connectcommand3 = Closecommand4 = Sendnow ne do të ndryshojmë atë që thonë kutitë e tekstit1. klikoni në kutinë e tekstit që thotë text12. shkoni te dritarja e pronave dhe gjeni vetinë Text3. bëje atë bosh 4. bëni të njëjtën gjë për atë që thotë Text25. tani klikoni text3 dhe ndryshoni vetinë e tekstit në 127.0.0.16. tani klikoni text4 dhe ndryshoni vetinë e tekstit në 12347. tani klikoni text5 dhe ndryshoni vetinë e tekstit në Name127.0.0.1 është ip juaj lokal, kështu që ju mund ta provoni programin në kompjuterin tuaj kur të jetë kryer 1234 është porti që mund ta bëni atë çfarëdo që të bëni dua, por thjesht lëreni atë 1234 tani për tani

Hapi 4: Ndryshimi i Emrave të Butonave dhe Kutive të Tekstit

ne duhet të riemërtojmë butonat e komandës dhe kutitë e tekstit për t'i bërë më të lehtë për t'u koduar

1. kliko Text1 dhe shko te pronat dhe kliko mbi emrin dhe ndryshoje atë në txtLog e zgjodha atë sepse është regjistri i mesazheve që dërgon dhe merr 2. bëj të njëjtën gjë për pjesën tjetër, por bëj emrat: ndrysho Text2 në txtDërgo ndryshimin Text3 në txtPi ndryshojë Text4 në txtPorti ndryshon Text5 në txtNdrysho komandën1 në cmdPosto komandën2 në cmdLidhni ndryshimin Command3 në cmdMbyllni ndryshimin e komandës 4 në cmdDërgoje ndryshimin Winsock1 në sck Kryesisht tani ka edhe një gjë tjetër që duhet të ndryshosh kliko txtLog dhe në dritaren e pronave gjeni MultiLine dhe bëjeni të vërtetë ky hap mund të shkaktojë një konfuzion nëse keni ndonjë pyetje postoni një koment ose më dërgoni mesazh

Hapi 5: Kodimi i butonave të komandës

tani është koha për të shkruar kodin për butonat e komandës të fillojnë me të parën cmdHost1. klikoni dy herë mbi të, kjo do të shfaqë dritaren e kodit2. ajo duhet të duket si kjoPrivate Nën cmdHost_Click () Fund Nën3. futni këtë kodinckckMain. LocalPort = txtPort.textsckMain.list dëgjoni se çfarë do të thotë kjo? rreshti i parë i bën portat winocksocks lokale të barabarta me numrin në kutinë e tekstit (txtPort) rreshti i dytë i thotë fituesit të dëgjojë atë portë për dikë që përpiqet të lidhet tani mbylleni atë dhe klikoni dy herë mbi cmdConnectenter this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Lidhni dy rreshtat e parë ndryshoni RemoteHost dhe RemotePort të winsock (sckMain) në ip dhe portin që duam sckMain. Con për t'u lidhur me dikë që dëgjon në atë port dhe ipnow për dy krahët e afërt klikoni në cmdClose dhe typesckMain.closetxtLog = txtLog.text & "Lidhja u mbyll!" & vbCrlfthe sckMain.close i thotë fituesit të shkëputet rreshti i dytë shton Connection mbyllur në txtLogdouble click on cmdSend and typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName tekst & "]" & txtSend.text & vbcrlftxtSend.text = "" Dy rreshtat e parë janë të gabuar i kam të drejtë në redaktues dhe i ndryshon kur i ruaj kështu shikoni foton për kodin e parë rreshti i parë e dërgon tekstin në txtSend dhe emri yt në txtVija e dytë e emërton mesazhin që ke dërguar dhe emrin tënd në txtVija e tretë pastron tekstin në txtSend

Hapi 6: Kodimi i Winsock

tani është koha për të koduar çizmin! ne duhet t'i themi se çfarë të bëjë kur dikush përpiqet të lidhet dhe ne duhet t'i tregojmë se ku t'i vendosim të dhënat që merr, klikoni dy herë mbi kontrollin e çantës (sckMain) në këndin e sipërm të djathtë të kutia e kodit duhet të thotë: gabimklikoni kutinë zbritëse dhe zgjidhni kërkesën e lidhjes tani duhet të ketë bërë një vend të ri për të futur kodin atje shkruani: Nëse sckMain.state sckMbyll atëherësckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Lidhur me: "& sckMain. RemoteHostIP & vbcrlff rreshtat e parë dhe të dytë kontrollojnë nëse winsock (sckMain) është i mbyllur dhe nëse nuk është kështu mbyllet linja e tretë mbyll nëse linja if deklarata e mëparshme i thotë thesock (sckMain) të pranojë lidhjet rreshti i pestë ju tregon se jeni të lidhur duke shtuar një linjë në txtLognow ne duhet t'i tregojmë fituesit çfarë të bëjë me të dhënat që merr në të djathtën e sipërme të dritares së kodit klikoni kutinë zbritëse dhe zgjidhni: DataArrivalnow futni këtë kod: dim Data si stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst line i bën të dhënat një varg ku goditet të dhënat ku merren do të vendosen para se të shtohen në txtLogoja e dytë merr të dhënat dhe i vendos në të dhënat e vargut siç shton vbstringthird të dhënat e marra në txtLognow edhe një herë nëse janë konfuze dhe keni pyetje postoni koment ose më dërgoni mesazh

Hapi 7: Përdorimi i Programit/Përfundimit

ok tani do t'ju tregoj se si ta përdorni programin

në skedarin bazë të klikimit vizual, atëherë bëni projekt1.exe ruani atë në desktopin tuaj nëse ka ndonjë gabim lini një koment dhe unë do të përpiqem t'ju ndihmoj tani të shkoni atje ku e keni bërë programin dhe klikoni dy herë atë dhe dy programe duhet të shfaqen host një klik dhe nga ana tjetër kliko lidh dhe në atë që klikove host në të duhet të thotë: Lidhur me: 127.0.0.1 tani shkruani një emër për të dy dhe mund të dërgoni mesazhe mes të dyve që funksionon në LAN dhe atë mund të punojë në WAN por nuk jam i sigurt të lërë komente duke më bërë të ditur se si kam vepruar ose nëse keni pyetje ose nëse thjesht ju pëlqen nëse ju pëlqeu apo nuk ju pëlqeu vlerësojeni