Как да направите проста програма за чат във Visual Basic с помощта на Microsoft Winsock Control: 7 стъпки

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:55

В тази наставляема програма ще ви покажа как да направите проста програма за чат на визуална база. ще разгледам всичко, което прави кодът, така че ще се научите, докато го правите, и в края ще ви покажа как да го използвате.

Стъпка 1: Общ преглед

Нов проект "," отгоре ": 0.44341801385681295," вляво ": 0.2802690582959641," височина ": 0.2632794457274827," ширина ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," автор ":" twenglish1,: "това е, което искате да изберете, след което щракнете върху отвори", "отгоре": 0.25635103926096997, "вляво": 0.017937219730941704, "височина": 0.22401847575057737, "ширина": 0.23542600896860988}] ">

Тази програма ще ви позволи да обменяте съобщения между двама души в една и съща мрежа. Може да работи, ако не сте в същата мрежа, но не мога да го тествам сега.

Трябва да имате Microsoft Visual Basic 6.0, това е, което използвам. Препоръчват се основни познания по програмиране Нека започнем !!! отворете Visual Basic и създайте стандартен EXE

Стъпка 2: Създаване на потребителско влияние

Сега е време да създадете потребителски формуляр

ще трябва да добавите контрола на winsock към инструментариума, направете това чрез: 1. щракнете с десния бутон някъде в кутията с инструменти, където няма нищо 2. щракнете върху Компоненти 3. в дългия списък намерете Microsoft Winsock Control 6.0 и поставете отметка в квадратчето до него 4. след това щракнете върху приложи и след това затворете Добавяне: 5 текстови полета 4 командни бутона 1 контрол на winsock ги подредете така, че да изглеждат като втората снимка по -долу

Стъпка 3: Преименуване и други промени на собствеността

сега ще променим надписите (това, което се казва в командните бутони) 1. щракнете върху команда12. погледнете от дясната страна в свойствата и намерете Caption3. променете го на Hostdo същото за останалите, но ги направете: command2 = Connectcommand3 = Closecommand4 = Sendnow ще променим какво казват текстовите полета1. щракнете върху текстовото поле с текст12. отидете в прозореца със свойства и намерете свойството Text3. направете го празно 4. направете същото за този, който казва Text25. сега щракнете върху text3 и променете текстовото свойство на 127.0.0.16. сега щракнете върху text4 и променете текстовото свойство на 12347. сега щракнете върху text5 и променете текстовото свойство на Name127.0.0.1 е вашият локален ip, за да можете да тествате програмата на вашия компютър, когато е направено1234 е портът, можете да го направите каквото искате искам, но просто оставете 1234 засега

Стъпка 4: Промяна на имената на бутоните и текстовите полета

трябва да преименуваме командните бутони и текстовите полета, за да ги улесним в кодирането

1. щракнете върху Text1 и отидете на свойствата, кликнете върху името и го променете на txtLog Избрах това, защото това е дневникът на съобщенията, които изпращате и получавате 2. направете същото за останалите, но направете имената: променете Text2 на txt Изпратете промяната Text3 към txt IP промяна Text4 към txtPort промяна Text5 към txtName промяна Command1 в cmdHost промяна Command2 в cmdConnect промяна Command3 в cmd Затваряне на команда за промяна 4 в cmd Изпращане на промяна Winsock1 в sckMain сега има още нещо, което трябва да промените щракнете върху txtLog и в прозореца със свойства намерете MultiLine и направете го вярно Тази стъпка може да причини известно объркване, ако имате въпроси, публикувайте коментар или ми пишете

Стъпка 5: Кодиране на командните бутони

сега е време да напишем кода за командните бутони, които започват с първия cmdHost1. щракнете двукратно върху него, това ще изведе прозореца с код2. трябва да изглежда такаPrivate Sub cmdHost_Click () End Sub3. Въведете този код затворете това и щракнете двукратно върху cmdConnectenter този codeckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect първите два реда променят RemoteHost и RemotePort на winsock (sckMain) към ip и port ние го искаме за да се свържете с някой, който слуша на този порт и ipnow за близък бутон, щракнете двукратно върху cmdClose и въведетеckMain.closetxtLog = txtLog.text & "Връзката е затворена!" & vbCrlft sckMain.close казва на winsock да прекъсне връзката втория ред добавя Connection closed to txtLogdouble щракнете върху cmdSend и typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & ". text & "]" & txtSend.text & vbcrlftxtSend.text = "" първите два реда са грешни, имам ги точно в редактора и той ги променя, когато записвам, така че погледнете снимката за правилния код, първият ред изпраща текста в txtSend и вашето име в txtNamesecond ред добавя изпратеното от вас съобщение и вашето име към txtLogthird ред изчиства текста в txtSend

Стъпка 6: Кодиране на Winsock

сега е време да кодираме winsock! трябва да му кажем какво да прави, когато някой се опита да се свърже и трябва да му кажем къде да постави данните, които получава sok двойно щракване върху контролата на winsock (sckMain) в горния десен ъгъл на кодовото поле, в което трябва да пише: грешка, щракнете върху падащото меню и изберете заявка за връзка, сега трябваше да е направило ново място за въвеждане на код в него въведете: Ако sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Свързан с: "& sckMain. RemoteHostIP & vbcrlff първият и вторият ред проверяват дали winsock (sckMain) е затворен и ако не е, тогава той го затваря, трети ред затваря, ако операторът ifth ред казва на winsock (sckMain) да приеме връзки, пети ред ви казва, че сте свързани чрез добавяне на ред към txtLognow трябва да кажем на winsock какво да прави с данните, които получава в горния десен ъгъл на прозореца на кода щракнете върху падащото меню и изберете: DataArrivalnow въведете този код: dim Data като stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst ред прави данните низ низ, където получените данни ще бъдат поставени преди да бъдат добавени към txtLogsecond ред получава данните и ги поставя в низовите данни като vbstringthird ред добавя данните, получени в txtLognow още веднъж, ако са объркващи и имате въпроси, коментирайте или ми пишете

Стъпка 7: Използване на програмата/заключение

добре, сега ще ви кажа как да използвате програмата

във визуален основен файл за щракване, след което направете project1.exe да го запишете на работния плот, ако има грешки, оставете коментар и аз ще се опитам да ви помогна сега да отидете там, където сте направили програмата, и щракнете два пъти върху нея и две програми трябва да се покажат на хост с едно щракване, а с друго щракнете върху свързване и върху този, върху който сте кликнали хост върху него, трябва да каже: Свързан към: 127.0.0.1 сега въведете име и за двамата и можете да изпращате съобщения между двете, които работи в LAN и то може да работи по WAN, но не съм сигурен, че оставяйте коментари, за да ме уведомите как съм постъпил, или ако имате въпроси, или ако просто ви харесва, ако ви е харесал или не ви е харесал, оценете го