Jak stworzyć prosty program do czatu w Visual Basic przy użyciu kontrolki Microsoft Winsock: 7 kroków

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:33

W tym intuicyjnym pokażę, jak zrobić prosty program do czatu w Visual Basic. Przejdę do tego, co robi cały kod, abyście się uczyli, jak go tworzycie, a na koniec pokażę wam, jak z niego korzystać.

Krok 1: Przegląd

Nowy projekt", "góra":0.44341801385681295, "lewo":0.2802690582959641, "wysokość":0.2632794457274827, "szerokość":0.5067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "author":"twenglish1", "tekst":"to jest to, co chcesz wybrać, a następnie kliknij otwórz", "top":0.25635103926096997, "left":0.017937219730941704, "height":0.22401847575057737, "width":0.23542600896860988}]">

Ten program pozwoli Ci wymieniać wiadomości między dwiema osobami w tej samej sieci. Może działać, jeśli nie jesteś w tej samej sieci, ale nie mogę tego teraz przetestować.

Powinieneś mieć Microsoft Visual Basic 6.0, tego właśnie używam. Zalecana jest podstawowa wiedza programistyczna Zaczynajmy!!! otwórz Visual Basic i utwórz Standardowy EXE

Krok 2: Tworzenie naruszenia użytkownika

Teraz nadszedł czas na stworzenie formularza użytkownika

musisz dodać kontrolkę winsock do przybornika zrób to: 1. kliknij prawym przyciskiem myszy gdzieś w przyborniku, gdzie nic nie ma 2. kliknij Komponenty 3. na długiej liście znajdź Microsoft Winsock Control 6.0 i zaznacz pole obok niego 4 następnie kliknij Zastosuj i zamknij Dodaj: 5 pól tekstowych 4 przyciski poleceń 1 kontrolka winsock ułóż je tak, aby wyglądały jak na drugim obrazku poniżej

Krok 3: Zmiana nazwy i inne zmiany właściwości

teraz będziemy zmieniać podpisy (co jest napisane w przyciskach poleceń)1. kliknij polecenie12. spójrz po prawej stronie we właściwościach i znajdź Caption3. zmień go na Hostdo tak samo dla reszty, ale spraw, aby:command2 = Connectcommand3 = Closecommand4 = Wyślij teraz zmienimy to, co mówią pola tekstowe1. kliknij pole tekstowe z napisem text12. przejdź do okna właściwości i znajdź właściwość Text3. zrób to puste4. zrób to samo dla tego, który mówi Text25. teraz kliknij text3 i zmień właściwość tekstu na 127.0.0.16. teraz kliknij text4 i zmień właściwość tekstową na 12347. teraz kliknij text5 i zmień właściwość tekstową na Name127.0.0.1 to twój lokalny adres IP, dzięki czemu możesz przetestować program na swoim komputerze po jego zakończeniu1234 to port, który możesz ustawić, co chcesz chcesz, ale na razie zostaw to 1234

Krok 4: Zmiana nazw przycisków i pól tekstowych

musimy zmienić nazwy przycisków poleceń i pól tekstowych, aby ułatwić ich kodowanie

1. kliknij Text1 i przejdź do właściwości i kliknij nazwę i zmień ją na txtLog wybrałem to, ponieważ jest to dziennik wiadomości, które wysyłasz i odbierasz 2. zrób to samo dla reszty, ale zmień nazwy: zmień Text2 na txtSend change Text3 na txtIP zmień Text4 na txtPort zmień Text5 na txtName zmień Command1 na cmdHost zmień Command2 na cmdConnect zmień Command3 na cmdClose zmień Command 4 na cmdSend zmień Winsock1 na sckMain teraz musisz zmienić jeszcze jedną rzecz kliknij txtLog i w oknie właściwości znajdź MultiLine i urzeczywistnij ten krok może spowodować pewne zamieszanie, jeśli masz jakieś pytania, dodaj komentarz lub wiadomość do mnie

Krok 5: Kodowanie przycisków poleceń

teraz nadszedł czas na napisanie kodu dla przycisków poleceń zaczynających się od pierwszego cmdHost1. kliknij go dwukrotnie, spowoduje to wyświetlenie okna kodu2. powinien wyglądać takPrivate Sub cmdHost_Click()End Sub3. wpisz ten kodekckMain. LocalPort = txtPort.textsckMain.listennow co to znaczy?Pierwszy wiersz sprawia, że lokalny port winsocks jest równy numerowi w polu tekstowym (txtPort)drugi wiersz mówi winsockowi, aby nasłuchiwał na tym porcie dla kogoś, kto próbuje się połączyć teraz zamknij to i kliknij dwukrotnie cmdConnectenter this codeckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect pierwsze dwie linie zmieniają RemoteHost i RemotePort w winsock (sckMain) na adres IP i port, który chcemy, sckMain. Connect mówi o tym aby połączyć się z kimś nasłuchującym na tym porcie i ipnow dla przycisku zamknięcia kliknij dwukrotnie na cmdClose i typesckMain.closetxtLog = txtLog.text & "Połączenie zamknięte!" & vbCrlfthe sckMain.close mówi winsockowi, aby się rozłączył, druga linia dodaje Połączenie zamknięte do txtLogpodwójne kliknięcie na cmdSend i typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = ""pierwsze dwie linijki są niepoprawne mam je w edytorze i zmienia się je podczas zapisywania, więc spójrz na obrazek dla właściwego kodu.pierwsza linia wysyła tekst w txtSend i twoje imię w linii txtNamesecond dodaje wiadomość, którą wysłałeś, a twoje imię i nazwisko w linii txtLogthird czyści tekst w txtSend

Krok 6: Kodowanie Winsock

teraz nadszedł czas na zakodowanie winsock! musimy powiedzieć mu, co ma zrobić, gdy ktoś spróbuje się połączyć i musimy powiedzieć, gdzie umieścić dane, które otrzyma. Kliknij dwukrotnie na kontrolkę winsock (sckMain) w prawym górnym rogu pole kodu, które powinno brzmieć: errorkliknij pole rozwijane i wybierz żądanie połączenia teraz powinno było utworzyć nowe miejsce do wpisania kodu w nim wpisz:If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Połączono z: " & sckMain. RemoteHostIP & vbcrllfpierwsza i druga linia sprawdź, czy winsock(sckMain) jest zamknięty, a jeśli nie, to zamyka go trzecia linia zamyka instrukcję ifforth nakazuje winsock (sckMain) akceptować połączenia piąta linia mówi, że jesteś połączony dodając linię do txtLognow, musimy powiedzieć winsockowi, co ma zrobić z danymi, które otrzymuje w prawym górnym rogu okna kodu kliknij rozwijane pole i wybierz: DataArrivalnow wprowadź ten kod:dim Dane jako stringsckMain.getdata Dane, vbstring txtLog = txtLog.text & data & vbcrllffirst line tworzy ciąg danych żądło to miejsce, w którym odebrane dane zostaną umieszczone przed dodaniem ich do txtLogsecond line pobiera dane i umieszcza je w danych ciągu jako vbstringtrzecia linia dodaje dane otrzymane do txtLognow jeszcze raz, jeśli są mylące i masz pytania, dodaj komentarz lub wiadomość do mnie

Krok 7: Korzystanie z programu/wniosek

ok, teraz powiem ci, jak korzystać z programu

w Visual Basic kliknij plik, a następnie wykonaj project1.exe zapisz go na pulpicie, jeśli są jakieś błędy, zostaw komentarz, a postaram się pomóc Ci teraz przejść do miejsca, w którym utworzyłeś program i dwukrotnie go kliknąć, a dwa programy powinny się wyświetlić jedno kliknięcie host, a drugie kliknięcie connect, a na tym, na którym kliknąłeś host, powinno brzmieć: Connected to: 127.0.0.1 teraz wpisz nazwę dla obu z nich i możesz wysyłać wiadomości między nimi działa w sieci LAN i to może działać na WAN, ale nie jestem pewien, zostaw komentarze, informując mnie, jak mi się udało lub jeśli masz pytania lub po prostu masz ochotę, jeśli ci się podobało lub nie podobało, oceń to