Microsoft Winsock Nəzarətindən istifadə edərək Visual Basic -də Sadə Söhbət Proqramını Necə Etmək olar: 7 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:48

Bu təlimatda sizə vizual əsasda sadə bir söhbət proqramının necə qurulacağını göstərəcəyəm. Bütün kodların nə etdiyini öyrənəcəyəm, buna görə də bunu etdiyiniz zaman öyrənəcəksiniz və sonunda necə istifadə edəcəyinizi sizə göstərəcəyəm.

Addım 1: Baxış

Yeni Layihə "," üst ": 0.44341801385681295," sol ": 0.2802690582959641," yüksəklik ": 0.2632794457274827," en ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," müəllif ": "seçmək istədiyiniz budur, sonra aç düyməsini vurun", "üst": 0.25635103926096997, "sol": 0.017937219730941704, "hündürlük": 0.22401847575057737, "en": 0.23542600896860988}] ">

Bu proqram eyni şəbəkədəki iki nəfər arasında mesaj mübadiləsi aparmağa imkan verəcək. Eyni şəbəkədə deyilsinizsə işləyə bilər, amma indi sınaya bilmirəm.

İstifadə etdiyim Microsoft Visual Basic 6.0 olmalıdır. Əsas proqramlaşdırma bilikləri tövsiyə olunur Başlayaq !!! vizual bazanı açın və standart bir EXE yaradın

Addım 2: İstifadəçi Gücünün Yaradılması

İndi istifadəçi formasını yaratmaq vaxtıdır

winksock nəzarətini alətlər qutusuna əlavə etməlisiniz: 1. alət qutusunda heç bir şey olmayan bir yerə sağ vurun 2. Komponentlərə basın 3. uzun siyahıda Microsoft Winsock Control 6.0 tapın və yanındakı qutuyu işarələyin 4. sonra tətbiq et düyməsini sıxın və sonra Əlavə edin: 5 mətn qutusu 4 əmr düyməsi 1 winsock kontrolü onları aşağıdakı ikinci şəkilə bənzətməsini təşkil edin.

Addım 3: Yenidən adlandırma və digər əmlak dəyişiklikləri

İndi başlıqları dəyişdirəcəyik (əmr düymələrində deyilənlər) 1. əmri basın12. xüsusiyyətlərdə sağ tərəfə baxın və Caption3 tapın. qalanları üçün eyni Hostdo olaraq dəyişdirin, ancaq bunları edin: command2 = Connectcommand3 = Closecommand4 = Sendnow, indi mətn qutularının dediklərini dəyişdirəcəyik1. text12 yazan mətn qutusuna vurun. xüsusiyyətlər pəncərəsinə gedin və Text xüsusiyyətini tapın3. boş qoyun4. Text25 deyən üçün də eyni şeyi edin. İndi text3 düyməsini basın və mətn xüsusiyyətini 127.0.0.16 olaraq dəyişdirin. İndi text4 düyməsini basın və mətn xüsusiyyətini 12347 olaraq dəyişdirin. indi text5 düyməsini basın və mətn xüsusiyyətini Name127.0.0.1 olaraq dəyişdirin, yerli IP -dir, buna görə proqramı bitirdikdə kompüterinizdə sınaya bilərsiniz1234 istədiyiniz kimi edə bilərsiniz. İstəyirəm, ancaq 1234 -ü hələlik buraxın

Addım 4: Düymələrin və Mətn Qutularının Adlarının dəyişdirilməsi

kodlaşdırmağı asanlaşdırmaq üçün əmr düymələrini və mətn qutularını yenidən adlandırmalıyıq

1. Text1 düyməsini vurun və xüsusiyyətlərə gedin və adını vurun və txtLog olaraq dəyişdirin, bunu göndərdiyiniz və aldığınız mesajların qeydiyyatı olduğu üçün seçdim 2. qalanları üçün də eyni şeyi edin, ancaq adları yazın: Text2 -ni txtSend olaraq dəyişdirin Text3 txtIP -ə Text4 -ü txtPort -a dəyişdirin Text5 -i txtName -ə dəyişdirin Command1 -i cmdHost -a dəyişin Command2 -ni cmdConnect -ə dəyişin Command3 -ü cmd -ə dəyişin Command 4 -ü cmd -ə dəyişin Winsock1 -i sckMain -ə göndərin indi klik txtLog və xüsusiyyətlər pəncərəsində tapmalı olduğunuz başqa bir şey var MultiLine və bunu doğrulayın, hər hansı bir sualınız varsa bir şərh yazın və ya mənə mesaj göndərin, bu qarışıqlığa səbəb ola bilər

Addım 5: Komanda Düymələrinin Kodlaşdırılması

İndi ilk cmdHost1 ilə başlayan düymələr əmrinin kodunu yazmağın vaxtı gəldi. cüt vurun, bu kod pəncərəsini açacaq2. Şəxsi Sub cmdHost_Click () End Sub3 kimi görünməlidir. bu kodları daxil edinckMain. LocalPort = txtPort.textsckMain.listennow bu nə deməkdir ?? birinci sətir winocksock lokal portunu mətn qutusundakı (txtPort) sayına bərabər edir, ikinci sətir qaliblərə indi bağlantı qurmağa çalışan biri üçün həmin limanda qulaq asmasını bildirir. bunu bağlayın və cmdConnectenter bu kodları yoxlayınCommain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectthe ilk iki sətir RemoteHostu və winsockun RemotePortunu (sckMain) dəyişdirmək istədiyimiz ipə və limana dəyişir sckMain. Connect. bu portu dinləyən birinə qoşulmaq üçün iki dəfə cmdClose və typesckMain.closetxtLog = txtLog.text və "Bağlantı bağlandı!" & vbCrlfthe sckMain.close, winksock -a ikinci xəttin kəsilməsini söyləyir, txtLogdouble ilə bağlı olan bağlantı, cmdSend və typesckMain.senddata vurun "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & " mətn " txtSend və txtNamesecond sətrindəki adınız göndərdiyiniz mesajı əlavə edir və adınızı txtLogthird xəttinə txtSenddəki mətni təmizləyir

Addım 6: Winsock kodlaşdırılması

İndi winksocku kodlaşdırmağın vaxtıdır! kimsə əlaqə qurmağa çalışdıqda nə edəcəyimizi söyləməliyik və aldığı məlumatları hara qoyacağımızı bildirməliyik sağ üst küncdəki winsock nəzarətinə (sckMain) iki dəfə vurun. yazması lazım olan kod qutusuna: səhv açılan qutuya klikləyin və əlaqə istəyini seçin, indi orada kodu daxil etmək üçün yeni bir yer yaratmalı idi: sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Bağlandı: "& sckMain. RemoteHostIP & vbcrlffirst və ikinci sətirlər winsockun (sckMain) bağlanıb -bağlanmadığını yoxlayır və əgər deyilsə, üçüncü xətti bağlayır, əgər bəyanatforth xətti winksock -a (sckMain) əlaqələri qəbul etməyi söyləyirsə, beşinci xətt bağlı olduğunuzu bildirir txtLognow -a bir sətir əlavə edərək, winsock -a kod pəncərəsinin sağ üst hissəsində əldə etdiyi məlumatlarla nə edəcəyini izah etməliyik, açılan qutuya vurun və seçin: DataArrivalnow bu kodu daxil edin: dim Data stringsckMain.getdata Məlumatı, vbstring kimi txtLog = txtLog.text & data & vbcrlffirst xətti məlumatları bir sim halına gətirir, txtLogsecond xəttinə əlavə edilməzdən əvvəl alınan məlumatların veriləcəyi yerdir və s. txtLognow -a alınan məlumatlar çaşqındırsa və suallarınız varsa şərh yazın və ya mənə mesaj göndərin

Addım 7: Proqramdan istifadə/Nəticə

Tamam, indi proqramı necə istifadə edəcəyimi söyləyəcəyəm

vizual əsas klik faylında, sonra project1.exe -ni masaüstünüzdə qeyd edin, hər hansı bir səhv varsa bir şərh yazın və indi proqramı hazırladığınız yerə getməyinizə və iki dəfə vurmağınıza kömək etməyə çalışacağam və iki proqram açılmalıdır. bir klik ev sahibi, digər klik isə əlaqə və başqa bir tıkladığınız ev sahibi bunu deməlidir: Bağlandı: 127.0.0.1 indi hər ikisi üçün bir ad yazın və LANda işləyən ikisi arasında mesaj göndərə bilərsiniz. WAN üzərində işləyə bilər, amma necə etdiyimi və ya suallarınız varsa və ya bəyənmisinizsə və ya bəyənmədiyiniz təqdirdə bunu hiss edirsinizsə mənə şərh yazmağınızdan əmin deyiləm.