Ինչպես կատարել պարզ զրույցի ծրագիր Visual Basic- ում ՝ օգտագործելով Microsoft Winsock Control- ը. 7 քայլ

2025 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2025-01-23 14:48

Այս instuctable- ում ես ձեզ ցույց կտամ, թե ինչպես կարելի է պարզ զրույցի ծրագիր դարձնել Visual Basic- ում: Ես կանդրադառնամ, թե ինչ է անում ամբողջ կոդը, այնպես որ դուք կսովորեք այն պատրաստելիս, և վերջում ես ձեզ ցույց կտամ, թե ինչպես օգտագործել այն:

Քայլ 1: Ակնարկ

Նոր նախագիծ "," վերև ". ՝ «սա այն է, ինչ ուզում ես ընտրել, այնուհետև կտտացրեք բաց», «վերև» ՝ 0.25635103926096997, «ձախ» ՝ 0.017937219730941704, «բարձրություն» ՝ 0.22401847575057737, «լայնություն» ՝ 0.23542600896860988}] ">

Այս ծրագիրը թույլ կտա ձեզ հաղորդագրություններ փոխանակել ձեր նույն ցանցում գտնվող երկու մարդկանց միջև: Այն կարող է աշխատել, եթե դուք նույն ցանցում չեք, բայց ես հիմա չեմ կարող այն փորձարկել:

Դուք պետք է ունենաք Microsoft Visual Basic 6.0, դա այն է, ինչ ես օգտագործում եմ: Programրագրավորման հիմնական գիտելիքները խորհուրդ են տրվում: Եկեք սկսենք !!! բացեք Visual Basic- ը և ստեղծեք Ստանդարտ EXE

Քայլ 2: Օգտագործողի ներթափանցման ստեղծում

Այժմ ժամանակն է ստեղծել օգտվողի ձև

Գործողությունների արկղում անհրաժեշտ է ավելացնել winSock- ի կառավարումը ՝ 1. աջ կտտացրեք ինչ -որ տեղ գործիքի տուփում, որտեղ ոչինչ չկա: 2. սեղմեք Բաղադրիչներ 3. Երկար ցուցակում գտեք Microsoft Winsock Control 6.0 և նշեք դրա կողքին գտնվող վանդակը 4 Այնուհետև կտտացրեք կիրառել, ապա փակել Ավելացնել. 5 տեքստային տուփ 4 հրամանի կոճակ

Քայլ 3. Անվանափոխում և գույքի այլ փոփոխություններ

մենք այժմ փոխելու ենք ենթագրերը (ինչ գրված է հրամանի կոճակներում) 1. կտտացրեք հրամանը 12. աջ կողմում նայեք հատկությունների մեջ և գտեք Վերնագիր 3: փոխեք այն Hostdo- ի համար նույնը մնացածի համար, բայց պատրաստեք դրանք. կտտացրեք տեքստային տուփին, որն ասում է text12: գնացեք հատկությունների պատուհան և գտեք Text հատկությունը 3: դարձնել այն դատարկ 4. նույնը արեք նրան, ով ասում է Text25: այժմ կտտացրեք text3 և փոխեք տեքստի հատկությունը մինչև 127.0.0.16: այժմ կտտացրեք text4 և փոխեք տեքստի հատկությունը 12347. այժմ կտտացրեք text5 և տեքստի հատկությունը փոխեք Name- ի վրա 127.0.0.1 ձեր տեղական ip- ն է, որպեսզի կարողանաք ծրագիրը ստուգել ձեր համակարգչում, երբ այն կատարված լինի ուզում եմ, բայց առայժմ թողեք դա 1234

Քայլ 4. Կոճակների և տեքստային տուփերի անունների փոփոխություն

մենք պետք է անվանափոխենք հրամանի կոճակները և տեքստային տուփերը `դրանք ավելի հեշտ կոդավորելու համար

1. կտտացրեք Text1 և գնացեք հատկություններ, կտտացրեք անվան վրա և փոխեք այն txt Text3- ից txt IP- ի փոփոխություն Text4- ին txtPort- ը փոխել Text5- ին txtName- ի փոփոխում Command1- ից cmd Հաստատել փոփոխություն Command2- ից cmd Միացնել փոփոխություն Command3- ից cmd Փակել փոփոխման հրամանը 4 -ից cmd Ուղարկել փոփոխությունը Winsock1- ին դեպի sck Հիմնականում այժմ կա ևս մեկ բան, որը պետք է փոխեք, կտտացրեք txtLog և հատկությունների պատուհանում գտեք MultiLine և ճշմարիտ դարձրեք: Այս քայլը կարող է որոշակի շփոթության պատճառ դառնալ, եթե ունեք որևէ հարց, մեկնաբանություն կամ հաղորդագրություն ուղարկեք ինձ

Քայլ 5: Հրամանի կոճակների կոդավորում

այժմ ժամանակն է գրել կոդը, որպեսզի հրամանի կոճակները սկսվեն առաջինից cmdHost1- ով: կրկնակի կտտացրեք դրա վրա, սա կհայտնվի ծածկագրի պատուհանը 2: այն պետք է նման լինի այս մասնավոր ենթածրագրին cmdHost_Click () End Sub3: մուտքագրեք այս կոդերը: փակեք այն և կրկնակի կտտացրեք cmdConnectenter this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Միացրեք առաջին երկու տողերը փոխեք RemoteHost- ը և winockock- ի (sckMain) հեռակառավարումը ip- ին և մենք ուզում ենք sckMain.con այդ նավահանգստում լսող որևէ մեկի հետ կապ հաստատելու համար կրկնակի սեղմեք cmdClose և typesckMain.closetxtLog = txtLog.text & "Կապը փակված է" վրա: & vbCrlfthe sckMain.close- ը winsock- ին ասում է ՝ անջատել երկրորդ տողը, ավելացնում է txt- ով փակված միացումը: Կրկնակի սեղմեք cmdSend և typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName տեքստ & "]" & txtSend.text & vbcrlftxtSend.text = "" Առաջին երկու տողերը սխալ են, դրանք հենց խմբագրում եմ և փոխում է դրանք, երբ պահում եմ, այնպես որ նայեք նկարին `ճիշտ կոդի առաջին տողը տեքստը ուղարկում է txtSend և ձեր անունը txt- ում Անվանական երկրորդ տողը ավելացնում է ձեր ուղարկած հաղորդագրությունը և ձեր անունը txt- ին: Երրորդ տողը մաքրում է տեքստը txtSend- ում

Քայլ 6: Winsock- ի կոդավորումը

այժմ ժամանակն է winockock- ը կոդավորելու: մենք պետք է ասենք նրան, թե ինչ անել, երբ ինչ -որ մեկը փորձում է միանալ, և մենք պետք է ասենք նրան, թե որտեղ պետք է տեղադրել այն ստացած տվյալները: կոդի տուփը պետք է ասի. «& sckMain. RemoteHostIP & vbcrlffirst և երկրորդ տողերը ստուգում են, արդյոք winock- ը (sckMain) փակ է, և եթե դա այդպես չէ, ապա այն փակվում է, իսկ երրորդ տողը փակում է if- ի հայտարարության հաջորդ տողը winockock- ին (sckMain) ընդունում է կապերհինգերորդ տողը ձեզ ասում է, որ դուք կապված եք txtLognow- ին ավելացնելով տող, մենք պետք է ասենք, թե ինչ անել տվյալների հետ, որոնք նրանք ստանում են կոդի պատուհանի վերևի աջ անկյունում կտտացրեք բացվող տուփին և ընտրեք. DataArrivalnow մուտքագրեք այս ծածկագիրը. dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst տողը տվյալները դարձնում է տող, որտեղ ստացված տվյալները տեղադրվելու են txtLogsecond տողը ստանում է տվյալները և տեղադրում է դրանք տողերի տվյալների մեջ, ինչպես vbstring երրորդ տողը ավելացնում է txtLognow- ին ստացված տվյալները ևս մեկ անգամ, եթե դրանք շփոթեցնող են, և հարցեր ունեք, գրեք մեկնաբանություն կամ ուղարկեք ինձ

Քայլ 7. Usingրագրի/եզրակացության օգտագործում

լավ, հիմա ես ձեզ կասեմ, թե ինչպես օգտագործել ծրագիրը

տեսողական հիմնական սեղմման ֆայլում, այնուհետև կատարեք project1.exe պահեք այն ձեր աշխատասեղանին, եթե որևէ սխալ կա, թողեք մեկնաբանություն, և ես կփորձեմ օգնել ձեզ հիմա գնալ այնտեղ, որտեղ պատրաստել եք ծրագիրը և կրկնակի սեղմել այն, և երկու ծրագիր պետք է հայտնվեն մեկ կտտոցով հյուրընկալողը, իսկ մյուսի վրա սեղմեք կապը և այն, որի վրա սեղմեցիք հյուրընկալողը, պետք է ասի. Միացված է ՝ կարող է աշխատել WAN- ով, բայց վստահ չեմ, որ թողեք մեկնաբանություններ ՝ ինձ տեղյակ պահելով, թե ինչպես եմ վարվել, կամ եթե ունեք հարցեր, կամ պարզապես ձեզ դուր է գալիս, եթե դա ձեզ դուր եկավ կամ ձեզ դուր չեկավ, գնահատեք այն