THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

FTP CHAT yapımı ● starktom

'starktom - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2017
Nereden:
Nereye
Mesajlar:
1.739
Konular:
132
Teşekkür (Etti):
470
Teşekkür (Aldı):
419
Ticaret:
(0) %
28-11-2018 00:48
#1
FTP CHAT yapımı ● starktom
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/resimli...an-kulubu.html

WM06 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Mesajlar:
1.136
Konular:
136
Teşekkür (Etti):
323
Teşekkür (Aldı):
179
Ticaret:
(0) %
28-11-2018 00:52
#2
Ellerine sağlık
---------------------
Beri Bak Beri
'starktom - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2017
Nereden:
Nereye
Mesajlar:
1.739
Konular:
132
Teşekkür (Etti):
470
Teşekkür (Aldı):
419
Ticaret:
(0) %
28-11-2018 15:49
#3
Alıntı:
WM06´isimli üyeden Alıntı Mesajı göster
Ellerine sağlık
Teşekkür ederim.
"Tranquila - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2017
Nereden:
Trabzon
Yaş:
2
Mesajlar:
1.998
Konular:
229
Ticaret:
(0) %
28-11-2018 15:50
#4
Eline sağlık
Liserjik - ait Kullanıcı Resmi (Avatar)
Moderasyon Ekipler Sorumlusu
Üyelik tarihi:
08/2018
Nereden:
268,3 g/mol
Yaş:
2
Mesajlar:
2.125
Konular:
188
Teşekkür (Etti):
455
Teşekkür (Aldı):
954
Ticaret:
(0) %
28-11-2018 15:53
#5
Birde AES şifreleme eklersen tadından yenmez, elinize sağlık
---------------------
Liserjik (LSD25)
Turkhackteam.net/org Cute Moderator

VITALLION, PALA, Albert Hoffman

Gitlab

----- PGP PUBLIC KEY -----
özür dilerim ..
isimyokbea - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2018
Nereden:
Nereye..
Mesajlar:
13
Konular:
3
Teşekkür (Etti):
8
Teşekkür (Aldı):
1
Ticaret:
(0) %
28-11-2018 16:54
#6
Rez alalim lazim olucak eline saqliq kaptan.
erfer - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Gaziantep
Mesajlar:
397
Konular:
80
Teşekkür (Etti):
34
Teşekkür (Aldı):
38
Ticaret:
(0) %
28-11-2018 17:03
#7
Eline Sağlık . FTP üzerinden web site kurma yöntemini de biliyorsan konu açabilirsin Önerim
spravci - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Nereye...
Mesajlar:
1.433
Konular:
46
Teşekkür (Etti):
66
Teşekkür (Aldı):
170
Ticaret:
(0) %
28-11-2018 17:11
#8
Elinize sağlık yararlı
--------------------- dead
"Atmaca - ait Kullanıcı Resmi (Avatar)
Kulüpler Genel Sorumlusu
Üyelik tarihi:
12/2017
Nereden:
Seul
Yaş:
15
Mesajlar:
3.530
Konular:
258
Teşekkür (Etti):
526
Teşekkür (Aldı):
713
Ticaret:
(0) %
28-11-2018 17:15
#9
Ellerine sağlık hocam, yalnız bu kısımda görsel ımg si eksik.

Daha sonra FileZilla programını açıyoruz ve ftp bilgilerimiz ile giriş yapıyoruz.

https://resmim.net/run/vwEN46.png
---------------------
Redcayber - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2018
Mesajlar:
13
Konular:
7
Teşekkür (Etti):
2
Teşekkür (Aldı):
0
Ticaret:
(0) %
02-12-2018 14:42
#10
Eline sağlık
--------------------- уα gєç кαяşıмα σятαℓıgı ιηℓєт... ()уα∂α çєкιℓ кєηєяα вєηι ѕєуяєт

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler