[bektas-star]

Private Sub Baglan_Click() 'Bağlan butonuna basıldığı zaman
    Dim UzakMakine 'uzakmakine adında bir değişken atıyoruz, bu adından da anlaşılacağı gibi uzak makineyi temsil edecek.
    W1.Close 'winsock nesnemize w1 adını verdik, bu kısımda winsock u kapatıyoruz
    UzakMakine = InputBox("Uzak makine ip yada Dns bilgisini girin", "Uzak makine", "127.0.0.1") 'kullanıcıya uzak makine bilgisini soracak bir inputbox açıyoruz.
If UzakMakine = "" Then 'eğer uzakmakine alanını boş geçerse
    Durum = "Uzak Makinesi Tanımı Yanlış" 'kullanıcıyı uyarıyoruz
    Exit Sub 've görevi iptal ediyoruz
Else 'kullanıcı eğer uygun bir uzakmakine yazarsa
    W1.Connect UzakMakine, 1981 'belirttiği uzakmakineye 1981 nolu portdan bağlanmaya çalışıyoruz
End If 'koşulumuz bitti :))
End Sub

Private Sub Bekle_Click() 'bekle butonun basıldığı zaman
    W1.LocalPort = 10000 'winsock için yerel portu 10000 olarak belirliyoruz
    W1.Listen 've dinlemeye geçiyoruz
    Durum = "Sohbet için Uzak Kullanıcı Bekleniyor ..." 'durumu birde labelde belirtiyoruz
End Sub

Private Sub Command1_Click()
   YaziAlani.Text = ""
End Sub

Private Sub Gonder_KeyPress(KeyAscii As Integer) 'yazı gönderme alanını gönder adıyla tanımladık,burada basılan tuşu kontrol ediyoruz
    If KeyAscii = 13 Then 'eğer basılan tuş ascii13 ise yani enter 'a basılmışsa,
        W1.SendData "<" + Lakap + ">" + Gonder 'nicki ve sonrasında gönder metin kutusunun içeriğini gönderiyoruz karşı kullanıcıya
        YaziAlani = YaziAlani + "<" + Lakap + ">" + Gonder + Chr(13) + Chr(10) 'yazı alanında da gönderdiğimiz bu metnin görünmesini sağlıyoruz
        Gonder = "" 've gönder metin alanını boşaltıyoruz
    Else 'diğer olasılık
        Durum = "metin alanı boş" 'metin kutusu boştur bunu kullanıcıya bir labelde belirtiyoruz.
    Exit Sub 've görevi iptal ediyoruz.
    End If 'koşulun sonu :)
End Sub

Private Sub Kes_Click() 'kes butonuna basıldığında
    Durum = "Bağlantıyı Kestiniz" 'labelde durumu belirtiyoruz
    W1.Close 've winsock un bağlantısını kesiyoruz
End Sub

Private Sub W1_Connect() 'bağlantı kurulduğunda
    Durum = "Bağlantı Kuruldu -> " + W1.RemoteHostIP 'labelde bunu belirtip  hangi    uzak makineye bağlandığımızı yazdırıyoruz.
End Sub
Private Sub W1_ConnectionRequest(ByVal requestID As Long) 'Bir bağlantı isteği geldiği zaman.
    If W1.State <> sckClosed Then W1.Close 'eğer winsock kapalı değilse önce onu kapatıyoruz,
    W1.Accept requestID 'gelen isteği kabul ediyoruz
    Durum = "Bağlantı Alındı" 'istek geldiğini labelde belirtiyoruz
End Sub

Private Sub W1_DataArrival(ByVal bytesTotal As Long) 'veri aktarımı kısmı
    Dim Gelen As String 'gelen adında bir string değişken tanımlıyoruz
    W1.GetData Gelen 'winsock ile gelen veriyi alıyoruz
    YaziAlani = YaziAlani + Gelen + Chr(13) + Chr(10) 'gelen veriyi, yani karşıdakinin yazdıklarını yazı alanına ekliyoruz ki görelim
End Sub

Private Sub W1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Durum = "Bir Hata Oluştu" 'hata oluştuğunda bunu labelde belirt
End Sub

Private Sub YaziAlani_Change()
    YaziAlani.SelLength = Len(YaziAlani) 'yazı alanı değiştiğinde yani yazı alanına yazı eklendiğinde her zaman yazının en son kısmını gösterecek şekilde metin alanı seçme aralığını ayarla
End Sub

Visual Basic 6.0 Ağ üzerindeki makinelerle chat programı kodları Indir