Kā izveidot vienkāršu tērzēšanas programmu Visual Basic, izmantojot Microsoft Winsock Control: 7 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:58

Šajā nepārprotamajā es jums parādīšu, kā izveidot vienkāršu tērzēšanas programmu Visual Basic. Es apskatīšu, ko dara viss kods, lai jūs to mācītos, un jūs beigās parādīšu, kā to izmantot.

1. darbība. Pārskats

Jauns projekts "," augšā ": 0.44341801385681295," pa kreisi ": 0.2802690582959641," augstums ": 0.2632794457274827," platums ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1: "šo vēlaties atlasīt, pēc tam noklikšķiniet uz atvērt", "augšā": 0.25635103926096997, "pa kreisi": 0.017937219730941704, "augstums": 0.22401847575057737, "platums": 0.23542600896860988}] ">

Šī programma ļaus jums apmainīties ar ziņojumiem starp diviem cilvēkiem tajā pašā tīklā. Tas var darboties, ja neesat vienā tīklā, bet es nevaru to pārbaudīt tagad.

Jums vajadzētu būt Microsoft Visual Basic 6.0, tas ir tas, ko es izmantoju. Ieteicamas pamatzināšanas par programmēšanu Sāksim darbu !!! atveriet Visual Basic un izveidojiet standarta EXE

2. darbība. Lietotāja pārkāpuma izveide

Tagad ir pienācis laiks izveidot lietotāja veidlapu

jums būs jāpievieno Winsock vadīkla rīkjoslai, rīkojoties šādi: 1. ar peles labo pogu noklikšķiniet kaut kur rīkjoslā, kur nekā nav 2. noklikšķiniet uz Komponenti 3. garā sarakstā atrodiet Microsoft Winsock Control 6.0 un atzīmējiet izvēles rūtiņu blakus tai.. pēc tam noklikšķiniet uz Lietot un aizveriet Pievienot: 5 tekstlodziņi 4 komandu pogas

3. darbība. Pārdēvēšana un citas īpašuma izmaiņas

mēs tagad mainīsim parakstus (tas, kas teikts komandu pogās) 1. noklikšķiniet uz komandas12. skatiet rekvizītu labajā pusē un atrodiet parakstu3. pārējiem mainiet to uz Hostdo, bet padariet tos: command2 = Connectcommand3 = Closecommand4 = Sendnow mēs mainīsim teksta lodziņu teikto1. noklikšķiniet uz tekstlodziņa, kurā norādīts teksts12. dodieties uz rekvizītu logu un atrodiet rekvizītu Text3. padarīt to tukšu 4. dariet to pašu tam, kas saka Text25. tagad noklikšķiniet uz text3 un mainiet teksta rekvizītu uz 127.0.0.16. tagad noklikšķiniet uz text4 un mainiet teksta rekvizītu uz 12347. tagad noklikšķiniet uz text5 un mainiet teksta rekvizītu uz Name127.0.0.1 ir jūsu vietējais ip, lai jūs varētu pārbaudīt programmu savā datorā, kad tā ir pabeigta gribu, bet pagaidām vienkārši atstājiet to 1234

4. darbība: pogu un tekstlodziņu nosaukumu maiņa

mums ir jāpārdēvē komandu pogas un tekstlodziņi, lai tos būtu vieglāk kodēt

1. noklikšķiniet uz Text1 un dodieties uz rekvizītiem un noklikšķiniet uz nosaukuma un mainiet to uz txt Teksts 3 uz txt IP maiņa Teksts 4 uz txt Porta maiņa Teksts 5 uz txt Vārda maiņa Komanda 1 uz cmd Saimnieka maiņa Komanda 2 uz cmd Savienojuma maiņa Komanda 3 uz cmd Aizvērt izmaiņas Komanda 4 uz cm Sūtīt izmaiņas Winsock1 uz sckMain tagad ir vēl viena lieta, kas jums jāmaina, noklikšķiniet uz txtLog un rekvizītu loga atrašanā MultiLine un padariet to patiesu Šis solis var radīt neskaidrības, ja jums ir kādi jautājumi, ievietojiet komentāru vai ziņu man

5. darbība: komandu pogu kodēšana

tagad ir pienācis laiks uzrakstīt kodu komandu pogām, kas sākas ar pirmo cmdHost1. veiciet dubultklikšķi uz tā, tiks parādīts koda logs2. tam vajadzētu izskatīties šādiPrivate Sub cmdHost_Click () Beigt Sub3. Ievadiet šo kodus aizveriet to un veiciet dubultklikšķi uz cmdConnect ievadiet šo KodsckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect </b> pirmās divas rindiņas maina Winsock (sckMain) RemoteHost un RemotePort uz ip un portu, ko mēs vēlamies. lai izveidotu savienojumu ar kādu, kas klausās šajā portā, un ipnow par tuvu, bet dubultklikšķi uz cmdClose un typeckMain.closetxtLog = txtLog.text & "Savienojums slēgts!" & vbCrlfthe sckMain.close liek winsock atvienoties, otrā rinda pievieno Savienojums slēgts uz txtLogdouble pogu noklikšķiniet uz cmdSend un typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" pirmās divas rindiņas ir nepareizas, tās ir redaktorā, un tās tiek mainītas, kad es to saglabāju, tāpēc, skatoties uz pareizās koda attēlu, pirmā rindiņa nosūta tekstu txtSend un jūsu vārds txtNamesecond rindā pievieno jūsu nosūtīto ziņojumu un jūsu vārdu txtLogthird rinda izdzēš tekstu txtSend

6. darbība: Winsock kodēšana

tagad ir pienācis laiks kodēt winsock! mums ir jāpasaka, ko darīt, ja kāds mēģina izveidot savienojumu, un mums ir jāpasaka, kur ievietot saņemtos datus, veicot dubultklikšķi uz winsock vadības (sckMain) augšējā labajā stūrī koda lodziņā tam vajadzētu teikt: kļūda Noklikšķiniet uz nolaižamā lodziņa un atlasiet savienojuma pieprasījumu, tagad tai vajadzēja izveidot jaunu vietu koda ievadīšanai, ierakstiet: If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Savienots ar: "& sckMain. RemoteHostIP & vbcrlffirst un otrās rindas pārbauda, vai winsock (sckMain) ir aizvērts, un, ja tā nav, tad tā aizver trešo rindu aizver ja ifthortthind līnija liek winsock (sckMain) pieņemt savienojumus piektā rinda norāda, ka esat izveidojis savienojumu pievienojot rindiņu txtLognow, mums jāpasaka winsock, ko darīt ar saņemtajiem datiem koda loga augšējā labajā stūrī noklikšķiniet uz nolaižamā lodziņa un izvēlieties: DataArrivalnow ievadiet šo kodu: dim Data kā stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst līnija padara datus par virkni, kas ir vieta, kur saņemtie dati tiks ievietoti, pirms tie tiks pievienoti txt txtLognow vēlreiz saņemtie dati, ja tie ir mulsinoši un jums ir jautājumi, ievietojiet komentārus vai nosūtiet man ziņojumu

7. darbība: programmas izmantošana/secinājums

Labi, tagad es jums pastāstīšu, kā lietot programmu

Visual Basic klikšķa failā pēc tam veiciet project1.exe saglabāšanu savā darbvirsmā, ja ir kādas kļūdas, atstājiet komentāru, un es mēģināšu jums palīdzēt tagad doties uz vietu, kur izveidojāt programmu, un veiciet dubultklikšķi uz tās divreiz, un tiks parādītas divas programmas viens klikšķis saimniekdators un otrs klikšķis savienot un uz tā, uz kura noklikšķinājāt uz saimniekdatora, tam vajadzētu teikt: Savienots ar: 127.0.0.1 tagad ierakstiet abu vārdu un varat nosūtīt ziņojumus starp abiem, tas darbojas LAN un tā varētu strādāt pie WAN, bet es neesmu pārliecināts, atstājiet komentārus, ļaujot man zināt, kā man gāja, vai jums ir jautājumi vai ja jums vienkārši patīk, ja jums tas patika vai nepatika, novērtējiet to