Microsoft Winsock Denetimini Kullanarak Visual Basic'te Basit Bir Sohbet Programı Nasıl Yapılır: 7 Adım

2025 Yazar: John Day | [email protected]. Son düzenleme: 2025-01-23 15:14

Bu derste size visual basic ile basit bir sohbet programı nasıl yapılır onu göstereceğim. Tüm kodun ne yaptığını gözden geçireceğim, böylece siz de yaptıkça öğreneceksiniz ve sonunda size onu nasıl kullanacağınızı göstereceğim.

1. Adım: Genel Bakış

Yeni Proje", "üst":0.44341801385681295, "sol":0.2802690582959641, "yükseklik":0.2632794457274827, "genişlik":0.55067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "yazar":"twenglish1":"seçmek istediğiniz şey budur ve ardından aç'a tıklayın", "üst":0.25635103926096997, "sol":0.017937219730941704, "yükseklik":0.22401847575057737, "genişlik":0.23542600896860988}]">

Bu program, aynı ağınızdaki iki kişi arasında mesaj alışverişi yapmanızı sağlar. Aynı ağda değilseniz çalışabilir, ancak şimdi test edemiyorum.

Microsoft Visual Basic 6.0'a sahip olmalısınız, kullandığım şey bu. Temel programlama bilgisi önerilir Başlayalım!!! visual basic'i açın ve bir Standart EXE oluşturun

Adım 2: Kullanıcı Girişimini Oluşturma

Şimdi kullanıcı formunu oluşturma zamanı

Winsock kontrolünü araç kutusuna eklemeniz gerekecek, bunu şu şekilde yapın: 1. araç kutusunda hiçbir şeyin olmadığı bir yere sağ tıklayın 2. Bileşenler'e tıklayın 3. uzun listede Microsoft Winsock Control 6.0'ı bulun ve yanındaki kutuyu işaretleyin 4 ardından uygula'yı tıklayın ve ardından kapatın Ekle: 5 metin kutusu 4 komut düğmesi 1 winsock kontrolü, bunları aşağıdaki ikinci resim gibi görünecek şekilde düzenleyin

3. Adım: Yeniden Adlandırma ve Diğer Özellik Değişiklikleri

şimdi altyazıları değiştireceğiz(komut düğmelerinde ne yazıyor)1. komut12'yi tıklayın. özelliklerde sağ tarafa bakın ve Caption3'ü bulun. geri kalanı için aynısını Hostdo olarak değiştirin, ancak bunları yapın:command2 = Connectcommand3 = Closecommand4 = Sendnow, metin kutularının söylediklerini değiştireceğiz1. text12 yazan metin kutusuna tıklayın. özellikler penceresine gidin ve Metin özelliğini3 bulun. boş bırak4. Text25 yazan için de aynısını yapın. şimdi text3'e tıklayın ve text özelliğini 127.0.0.16 olarak değiştirin. şimdi text4'e tıklayın ve text özelliğini 12347 olarak değiştirin. şimdi text5'e tıklayın ve text özelliğini Name127.0.0.1 olarak değiştirin, yerel ipinizdir, böylece programı bilgisayarınızda test edebilirsiniz, bittiğinde 1234 port olduğunda, onu istediğiniz gibi yapabilirsiniz. istiyorum ama şimdilik 1234 bırak

Adım 4: Düğmelerin ve Metin Kutularının Adlarını Değiştirme

kodlamayı kolaylaştırmak için komut düğmelerini ve metin kutularını yeniden adlandırmamız gerekiyor

1. Metin1'e tıklayın ve özelliklere gidin ve isme tıklayın ve onu txtLog olarak değiştirin çünkü gönderdiğiniz ve aldığınız mesajların günlüğü olduğu için bunu seçtim 2. geri kalanı için de aynısını yapın ama isimleri yapın: Text2'yi txtSend change olarak değiştirin Metin3'ü txtIP'ye değiştirin Metin4'ü txtPort'a değiştirin Metin5'i txtPort'a değiştirin Komut1'i cmdHost'a değiştirin Komut2'yi cmdConnect'e değiştirin Komut3'ü cmd'ye değiştirin Kapat Komut 4'ü cmdGönder Winsock1'i sckMain'e değiştirin Şimdi değiştirmeniz gereken bir şey daha var txtLog'a tıklayın ve özellikler penceresinde bulun MultiLine yapın ve bu adımı doğrulayın, herhangi bir sorunuz varsa yorum yapın veya bana mesaj gönderin, bu adım biraz karışıklığa neden olabilir

Adım 5: Komut Düğmelerini Kodlama

şimdi ilk cmdHost1 ile başlayan komut butonları için kod yazma zamanı. çift tıklayın, bu pencere2 kodunu getirecektir. thisPrivate Sub cmdHost_Click()End Sub3 gibi görünmelidir. bu kodları girinckMain. LocalPort = txtPort.textsckMain.listennow bu ne anlama geliyor??ilk satır winsocks yerel bağlantı noktasını metin kutusundaki (txtPort) sayıya eşit yapar, ikinci satır winsock'a şimdi bağlanmaya çalışan biri için o bağlantı noktasını dinlemesini söyler bunu kapatın ve cmdConnect'e çift tıklayın bu kodları girinckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectilk iki satır winsock'un RemoteHost ve RemotePort'unu (sckMain) ip ve port olarak değiştirmek istediğimizi sckMain. Conn'a söyler. o bağlantı noktasını dinleyen birine bağlanmak ve ipnow kapatma düğmesi için cmdClose ve typeckMain.closetxtLog = txtLog.text & "Bağlantı kapatıldı!" & vbCrlfsckMain.close winsock'a bağlantısını kesmesini söyler, ikinci satır ekler Bağlantı txtLog'a kapalı cmdGönder ve typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "t[Name" & t. text & "]" & txtSend.text & vbcrlftxtSend.text = ""ilk iki satır yanlış onları editörden aldım ve kaydettiğimde onları değiştiriyor bu yüzden doğru kod için resme bakın ilk satır metni gönderiyor txtSend ve txtNameikinci satırındaki adınız gönderdiğiniz mesajı ekler ve adınız txtLogüçüncü satıra txtSend içindeki metni temizler

Adım 6: Winsock'u Kodlamak

şimdi winsock'u kodlama zamanı! Birisi bağlanmaya çalıştığında ne yapacağını söylemeliyiz ve aldığı verileri nereye koyacağını söylemeliyiz, sağ üst köşedeki winsock kontrolüne (sckMain) çift tıklayın. kod kutusu şunları söylemelidir: erroraçılır kutuyu tıklayın ve bağlantı isteğini seçin şimdi kodu girmek için yeni bir yer yapmış olmalıydı, şunu yazın: If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Bağlı: " & sckMain. RemoteHostIP & vbcrlffirst ve ikinci satırlar winsock(sckMain)'in kapalı olup olmadığını kontrol eder ve kapalı değilse üçüncü satırı kapatır if ifadesiforth satır winsock'a (sckMain) bağlantıları kabul etmesini söylerbeşinci satır size bağlı olduğunuzu söyler txtLognow'a bir satır ekleyerek winsock'a kod penceresinin sağ üst köşesinde aldığı verilerle ne yapacağını söylememiz gerekiyor, açılır kutuyu tıklayın ve seçin: DataArrivalnow bu kodu girin:dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst satırı veriyi bir dizge yapar, sting alınan verinin txtLogsecond satırına eklenmeden önce konacağı yerdir. txtLognow'a alınan veriler kafa karıştırıcıysa ve sorularınız varsa yorum yapın veya bana mesaj atın

Adım 7: Programı Kullanma/Sonuç

tamam şimdi sana programı nasıl kullanacağını anlatacağım

görsel temel tıklama dosyasında, daha sonra proje1.exe'yi masaüstünüze kaydedin, herhangi bir hata varsa bir yorum bırakın ve şimdi programı yaptığınız yere gitmenize yardımcı olmaya çalışacağım ve iki kez çift tıklayın ve iki program açılır. bir tıklama ana bilgisayarı ve diğer tıklama bağlan ve üzerinde ana bilgisayara tıkladığınızda şunu söylemeli: Bağlandı: 127.0.0.1 şimdi her ikisi için bir ad yazın ve ikisi arasında LAN üzerinde çalışıyor ve ikisi arasında mesaj gönderebilirsiniz. WAN üzerinde çalışabilir, ancak nasıl yaptığımı veya sorularınız varsa veya beğendiyseniz veya beğenmediyseniz, beğendiyseniz veya beğenmediyseniz, bana nasıl yaptığımı bildiren yorumlar bıraktığından emin değilim.