Kaip sukurti paprastą pokalbių programą „Visual Basic“naudojant „Microsoft Winsock Control“: 7 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:49

Šioje pamokoje aš jums parodysiu, kaip sukurti paprastą „Visual Basic“pokalbių programą. Aš peržiūrėsiu, ką daro visas kodas, ir jūs mokysitės jį kurdami, o pabaigoje parodysiu, kaip juo naudotis.

1 žingsnis: apžvalga

Naujas projektas "," viršuje ": 0.44341801385681295," kairėje ": 0.2802690582959641," aukštis ": 0.2632794457274827," plotis ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1: "tai, ką norite pasirinkti, tada spustelėkite atidaryti", "viršuje": 0.25635103926096997, "kairėn": 0.017937219730941704, "aukštis": 0.22401847575057737, "plotis": 0.23542600896860988}] ">

Ši programa leis jums keistis žinutėmis tarp dviejų to paties tinklo žmonių. Tai gali veikti, jei nesate tame pačiame tinkle, bet dabar negaliu to išbandyti.

Turite turėti „Microsoft Visual Basic 6.0“, tai aš naudoju. Rekomenduojamos pagrindinės programavimo žinios Pradėkime !!! atidarykite „visual basic“ir sukurkite standartinį EXE

2 veiksmas: sukurkite vartotojo pažeidimą

Dabar atėjo laikas sukurti vartotojo formą

„Winsock“valdiklį turėsite pridėti prie įrankių rinkinio, atlikite šiuos veiksmus: 1. dešiniuoju pelės mygtuku spustelėkite įrankių dėžutės vietą, kur nieko nėra; 2. spustelėkite „Komponentai“3. ilgame sąraše raskite „Microsoft Winsock Control 6.0“ir pažymėkite šalia jo esantį laukelį.. tada spustelėkite Taikyti, tada uždarykite Pridėti: 5 teksto laukeliai 4 komandų mygtukai

3 žingsnis: Pervardymas ir kiti nuosavybės pakeitimai

dabar pakeisime antraštes (tai, kas sakoma komandų mygtukuose) 1. spustelėkite komandą 12. pažiūrėkite į ypatybes dešinėje pusėje ir raskite antraštę3. pakeiskite jį į „Hostdo“tą patį likusiems, bet padarykite juos: command2 = Connectcommand3 = Closecommand4 = Sendnow mes pakeisime tai, ką sako teksto laukeliai1. spustelėkite teksto laukelį, kuriame rašoma text12. eikite į ypatybių langą ir raskite ypatybę Tekstas3. padarykite tuščią 4. darykite tą patį su tuo, kuris sako „Text25“. dabar spustelėkite text3 ir pakeiskite teksto ypatybę į 127.0.0.16. dabar spustelėkite text4 ir pakeiskite teksto ypatybę į 12347. dabar spustelėkite text5 ir pakeiskite teksto ypatybę į Name127.0.0.1 yra jūsų vietinis IP, kad galėtumėte išbandyti programą savo kompiuteryje, kai ji atlikta norite, bet kol kas palikite 1234

4 veiksmas: mygtukų ir teksto laukelių pavadinimų keitimas

turime pervadinti komandų mygtukus ir teksto laukelius, kad juos būtų lengviau koduoti

1. spustelėkite Tekstas1 ir eikite į ypatybes, spustelėkite pavadinimą ir pakeiskite jį į txt Tekstas3 į txtIP pakeitimas Tekstas4 į txtPorto keitimas Tekstas5 į txtPavadinimas pakeisti komandą1 į cmdPriimti prieglobstįKomanda2 į cmdPrijungti keitimąKomanda3 į cmdUždaryti pakeitimą Komanda 4 į cmdSiųsti pakeitimą Winsock1 į sckMain dabar yra dar vienas dalykas, kurį reikia pakeisti spustelėkite txtLog ir ypatybių lango paieškoje „MultiLine“ir paverskite tai tiesa, jei šis žingsnis sukels painiavą, jei turite kokių nors klausimų, parašykite man komentarą ar žinutę

5 veiksmas: komandų mygtukų kodavimas

dabar laikas parašyti komandų mygtukų, prasidedančių pirmąja, kodą cmdHost1. dukart spustelėkite jį, pasirodys kodo langas2. tai turėtų atrodyti taipPrivatus sub cmdHost_Click () Pabaiga Sub3. Įveskite šį kodą Uždarykite tai ir dukart spustelėkite cmdConnectĮveskite šį kodą norėdami prisijungti prie to, kuris klausosi to prievado, ir „ipnow“uždaryti bet kurį dvigubą mygtuką, spustelėkite cmdClose ir typeckMain.closetxtLog = txtLog.text & "Ryšys uždarytas!" & vbCrlfthe sckMain.close nurodo „Winsock“atjungti. text & "]" & txtSend.text & vbcrlftxtSend.text = "" pirmosios dvi eilutės yra neteisingos, aš jas turiu redaktoriuje ir jis jas pakeičia, kai išsaugoju, todėl pažiūrėkite į paveikslėlį, kuriame yra tinkama kodo pirmoji eilutė siunčia tekstą txtSend ir jūsų vardas txtNamesecond eilutėje prideda jūsų išsiųstą pranešimą ir jūsų vardą prie txtLogthird eilutė ištrina tekstą txtSend

6 žingsnis: „Winsock“kodavimas

dabar atėjo laikas koduoti „Winsock“! turime pasakyti, ką daryti, kai kas nors bando prisijungti, ir turime pasakyti, kur dėti gautus duomenis dukart spustelėjus „Winsock“valdiklį („sckMain“) viršutiniame dešiniajame kampe kodo laukelyje turėtų būti sakoma: klaida spustelėkite išskleidžiamąjį langelį ir pasirinkite ryšio užklausą dabar ji turėjo padaryti naują vietą kodo įvedimui ten tipas: Jei sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Prisijungta prie: „& sckMain. RemoteHostIP & vbcrlffirst ir antrosios eilutės patikrina, ar„ Winsock “(„ sckMain “) yra uždaryta, o jei ne, tada ji uždaro trečią eilutę uždaro„ if utasítás “dešimtoji eilutė nurodo„ winsock “(„ sckMain “) priimti ryšius. pridedant eilutę prie „txtLognow“turime pasakyti „Winsock“, ką daryti su gautais duomenimis, kodo lango viršuje dešinėje spustelėkite išskleidžiamąjį laukelį ir pasirinkite: „DataArrival“dabar įveskite šį kodą: „dim Data“kaip „stringsckMain.getdata Data“, „vbstring“txtLog = txtLog.text & data & vbcrlffirst eilutė duomenis paverčia eilute, kai įgaunami duomenys bus dedami prieš juos pridedant prie txt dar kartą gautus duomenis į „txtLognow“, jei jie yra painūs ir turite klausimų, komentuokite arba parašykite man žinutę

7 žingsnis: programos naudojimas/išvada

Gerai, dabar aš jums pasakysiu, kaip naudotis programa

vizualiame pagrindiniame paspaudimo faile, tada padarykite project1.exe išsaugokite jį savo darbalaukyje, jei yra kokių nors klaidų, palikite komentarą, ir aš pabandysiu jums padėti dabar nueiti ten, kur sukūrėte programą, ir dukart spustelėkite ją du kartus, ir turėtų pasirodyti dvi programos vieno paspaudimo priegloba, o ant kito spustelėkite prisijungti, o ant tos, kurią spustelėjote pagrindiniame kompiuteryje, turėtų būti parašyta: Prisijungę prie: 127.0.0.1 dabar įveskite abiejų pavadinimą ir galite siųsti pranešimus tarp dviejų, jis veikia LAN ir gali dirbti su WAN, bet nesu tikras, kad palikite komentarus, pranešdami man, kaip man sekėsi, ar turite klausimų, ar jums tiesiog patinka, jei jums tai patiko ar nepatiko, įvertinkite