Lihtsa vestlusprogrammi koostamine Visual Basicus Microsofti Winsock Controli abil: 7 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:50

Selles juhendis näitan teile, kuidas visuaalses põhis lihtsat vestlusprogrammi teha. Ma vaatan üle, mida kogu kood teeb, nii et õpite seda tehes ja lõpus näitan teile, kuidas seda kasutada.

1. samm: ülevaade

Uus projekt "," ülaosa ": 0,44341801385681295," vasak ": 0,2802690582959641," kõrgus ": 0,2632794457274827," laius ": 0,5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1: "see on see, mida soovite valida, seejärel klõpsake nuppu Ava", "ülaosa": 0.25635103926096997, "vasak": 0.017937219730941704, "kõrgus": 0.22401847575057737, "laius": 0.23542600896860988}] ">

See programm võimaldab teil vahetada sõnumeid kahe samas võrgus oleva inimese vahel. See võib töötada, kui te pole samas võrgus, kuid ma ei saa seda praegu testida.

Teil peaks olema Microsoft Visual Basic 6.0, seda ma kasutan. Soovitame programmeerimise põhiteadmisi Alustuseks !!! avage visual basic ja looge standard EXE

2. toiming: kasutaja rikkumise loomine

Nüüd on aeg kasutajavorm luua

peate Winsocki juhtelemendi tööriistakasti lisama, tehes seda järgmiselt: 1. paremklõpsake tööriistakastis kuskil, kus pole midagi 2. klõpsake komponendid 3. otsige pikast loendist Microsoft Winsock Control 6.0 ja märkige selle kõrval olev ruut 4. seejärel klõpsake nuppu Rakenda ja sulgege Lisa: 5 tekstikasti 4 käsunuppu

3. samm: ümbernimetamine ja muud kinnisvara muudatused

muudame nüüd subtiitreid (mida käsunuppudes öeldakse) 1. klõpsake käsku 12. vaadake atribuutide paremalt poolt ja leidke pealkiri3. muuda see Hostdo jaoks ülejäänud jaoks sama, kuid tee need: command2 = Connectcommand3 = Closecommand4 = Sendnow muudame tekstiväljade sõnade1. klõpsake tekstiväljal, mis ütleb text12. minge atribuutide aknasse ja leidke atribuut Text3. tee tühjaks 4. tehke sama ka tekstiga25. klõpsake nüüd teksti3 ja muutke teksti atribuudiks 127.0.0.16. klõpsake nüüd teksti4 ja muutke teksti atribuudiks 12347. nüüd klõpsake teksti5 ja muutke teksti atribuudiks nimi tahad, aga jäta see praegu 1234

4. samm: nuppude ja tekstikastide nimede muutmine

peame käsunupud ja tekstikastid ümber nimetama, et neid oleks lihtsam kodeerida

1. klõpsake Text1 ja minge atribuutidele ning klõpsake nime ja muutke see txt -ks. Logi valisin selle, kuna see on teie saadetud ja vastuvõetud sõnumite logi 2. tehke sama ka ülejäänud osas, kuid tehke nimed: muutke Text2 väärtuseks txt Text3 to txtIP change Text4 to txtPort change text5 to txtName change Command1 to cmdHost change Command2 to cmdConnect change Command3 to cmdSulge muutmine Command 4 to cmdSend change Winsock1 to sckMain now there are one another thing you need to change click txtLog ja atribuutide akna leidmine MultiLine ja muutke see tõeks, see samm võib tekitada segadust, kui teil on küsimusi, postitage mulle kommentaar või sõnum

Samm: käsunuppude kodeerimine

nüüd on aeg kirjutada käskude nuppude kood, mis algab esimesest cmdHost1. topeltklõpsake seda, see avab koodi akna2. see peaks välja nägema sellinePrivate Sub cmdHost_Click () Lõpeta Sub3. sisestage see kood sulgege see ja topeltklõpsake cmdConnect sisestage see koodisckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectt kaks esimest rida muudavad Winsocki (sckMain) RemoteHosti ja RemotePorti ip -ks ja pordiks, mida me soovime. ühenduse loomiseks kellegagi, kes seda porti kuulab, ja ipnowi sulgemiseks topeltklõpsake nuppu cmdSulge ja typeckMain.closetxtLog = txtLog.text & "Ühendus suletud!" & vbCrlfthe sckMain.close käsib winsockil ühenduse katkestada, teine rida lisab ühenduse suletud txtLog -ile topeltklõpsake cmdSend ja typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" kaks esimest rida on valed, mul on need redaktoris ja see muudab neid salvestamisel, nii et vaadake õige koodi pilti, esimene tekst saadab teksti txtSend ja teie nimi txtNamesecond rida lisab teie saadetud sõnumi ja teie nime txt

Samm: Winsocki kodeerimine

nüüd on aeg Winsocki kodeerida! peame talle ütlema, mida teha, kui keegi proovib ühendust luua, ja peame ütlema, kuhu ta saadud andmed paigutab topeltklõps Winsocki juhtnupul (sckMain) paremas ülanurgas koodikast, kuhu see peaks ütlema: viga klõpsake rippmenüüst ja valige ühenduse taotlus nüüd, kui see oleks pidanud uue koodi sisestamiseks sinna sisestama tüübi: Kui sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Ühendatud: "& sckMain. RemoteHostIP & vbcrlffirst ja teised read kontrollivad, kas winsock (sckMain) on suletud ja kui see pole nii, siis see sulgeb kolmanda rea sulgeb if -lause lisades rida txtLognow'ile, peame Winsockile ütlema, mida teha saadud andmetega koodiakna paremas ülanurgas, klõpsake rippmenüül ja valige: DataArrivalnow sisestage see kood: dim Data kui stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & rida vbcrlffirst muudab andmed stringiks, kus nõelamine on koht, kuhu vastuvõetud andmed pannakse enne nende lisamist txt -le txtLognow'le veel kord saadud andmed, kui need tekitavad segadust ja teil on küsimusi, postitage kommentaar või saatke mulle sõnum

Samm: programmi kasutamine/järeldus

nüüd ütlen teile, kuidas programmi kasutada

Visuaalses põhiklõpsu failis tehke seejärel projekt1.exe selle töölauale salvestamiseks, kui esineb vigu, jätke kommentaar ja proovin aidata teil nüüd minna sinna, kus te programmi tegite, ja topeltklõpsake seda kaks korda ning kaks programmi peaksid ilmuma üks klõpsu host ja teisel klõpsake ühenduse loomist ja sellel, millel klõpsasite hosti, peaks ütlema: Ühendatud: 127.0.0.1 sisestage nüüd mõlema nimi ja saate saata sõnumeid nende kahe vahel, see töötab LAN -is ja see võib töötada WAN -iga, kuid ma pole kindel, et jätate kommentaaridesse, andke mulle teada, kuidas mul läks või kui teil on küsimusi või kui teile lihtsalt meeldib, kas teile meeldis või ei meeldinud, hinnake seda