Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
VB.NET CHAT PROGRAMİ YAPMA!
#1
Selamın Aleyküm TurkFrm Üyeleri Bu Dersimizde Chat Programı Yapımını Anlatacağım 

Gereken İtemler
-2 Adet Richtbox 
-2 Adet Button 
-1 textbox
Ve Bir Site

Program İnternet Üzerinden Çalışacağı İçin Bir Site Ye İhtiyacımız var [ücretsiz domain ve ücretsiz host yeterlidir]

Sitemizin Ftp Sine Bağlandıktan Sonra bir Metin Belgesi Oluşturalım ve adını Chat Yapalım ardından bu dosyayı ftp ye atalım ama ana dizine atmamız gerekiyor [public.html]

Bu İşlemleri Yaptıktan Sonra Artık Bir Form Oluşturabiliriz .
Forumumuzu Oluşturalım gerekli itemleri forma yerleştirelim 

Konumlar 
-Richtbox1 i en yukarı koyalım ve istediğiniz büyüklükte ayarlayın mesajları görmemize yarıyacak

-Richtbox2 yi Onun Biraz Altına Koyalım bu göndericeğimiz mesajı yazdığımız bölüm olucak

-Buttton1 i richtbox2 nin yanına koyalım veya altına mesajı gönderme buttonumuz olucak

-Textbox1 mesajı gönderen kişinin adının yazılacağı bölüm kendi istediğiniz yere koyun

-button 2 yi istediğiniz yere koyun yenileme buttonu olucak

Ardından Kodlarımıza Geçelim 
button 1 kodları





Dim name As String
        name 
TextBox1.Text
        
Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı""ftp şifresi")
            
client.UploadString("ftp://siteniz/chat.txt"RichTextBox1.Text name " : " RichTextBox2.Text vbNewLine)
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")

        
End Try 




Button 2 Kodları (isterseniz bir timere girin otomatik yenilensin)




Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı""ftp şifresi")
            
RichTextBox1.Text client.DownloadString("ftp://siteniz.com/chat.txt")
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")
        
End Try 




ve son olarak form1 load bölümüne girilecek kodlar




Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı ""ftp şifresi")
            
RichTextBox1.Text client.DownloadString("ftp://siteniz/chat.txt")
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")
        
End Try
    
End Sub 





Ve Bu Kadar Bir Dahaki Dersimizde Görüşmek Üzere İyi Forumlar...
Dalgalanan%20Bayrak%20Resmi.gif
vEJJ86.gif
Ara
Cevapla }}}}
#2
Teşekkürler
dbZ7QV.png
OZRv7A.gif
Ara
Cevapla }}}}
#3
Rica ederim.
Dalgalanan%20Bayrak%20Resmi.gif
vEJJ86.gif
Ara
Cevapla }}}}


Hızlı Menü:


Şu anda bu konuyu okuyanlar: 2 Ziyaretçi

Online Shopping App
Online Shopping - E-Commerce Platform
Online Shopping - E-Commerce Platform
Feinunze Schmuck Jewelery Online Shopping