Merhabalar bu konumda visual basic ile FTP chat yapımını göstereceğim.
İlk olarak yeni bir form açıyoruz ve ismini boyutunu kendimize göre ayarlıyoruz.
Bir adet RichTextBox ekliyerek boyutunu ayarlıyoruz bu kısıma mesajlar gözükücek.
Bir adet daha RichTextBox ekliyoruz burada ise kullanıcı adımız gözükecek.
Bir tanede normal text box ekliyoruz.
Daha sonra 2 buton ekliyerek isimlerini "Yenile" ve "Gönder" yapıyoruz.
Daha sonra FileZilla programını açıyoruz ve ftp bilgilerimiz ile giriş yapıyoruz.
https://resmim.net/run/vwEN46.png
Masaüstünde "chat" adında bir metin belgesi açarak ftpmize aktarıyoruz.
"chat" dosyasının üzerine gelerek Adresi panoya kopyala diyoruz yani chat dosyasının dizinini veriyor bu bize lazım olucak.
Buton 1' e çift tıklıyoruz ve bu kodları yazıyoruz.
Kod:
System.EventArgs) Handles Button1.Click
Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("KULLANICI ADINIZ", "ŞİFRENİZ")
client.UploadString("FİLE ZİLLADAN PANOYA KOPYALADIĞINIZ YER", RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine)
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Buton 2'ye çift tıklıyoruz ve bu kodları yazıyoruz.
Kod:
System.EventArgs) Handles Button2.Click
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("KULLANICI ADINIZ", "ŞİFRENİZ")
RichTextBox1.Text = client.DownloadString("KOPYALADIĞINI YER")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
End Sub
Formun boş bir yerine çift tıklıyoruz ve bu kodları yazıyoruz.
Kod:
System.EventArgs) Handles MyBase.Load
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("KULLANICI ADI", "ŞİFRENİZ")
RichTextBox1.Text = client.DownloadString("KOPYALADIĞINI YER")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
End Sub
Programı çalıştırıyoruz. Buraya kullanıcı adımız gelicek.
Buraya gitmesini istediğinin mesaj.
Gönder tuşuna basarak gönderebiliyoruz.
Ve mesajımız gözüktü
Bu konumda bu kadardı okuduğunuz için teşekkür ederim.
EK FİLE ZİLLA: https://www.turkhackteam.org/resiml...-nasil-kullanilir-stajyer-asistan-kulubu.html
