Visual Basic Chat Programı Yapımı

[JeaxyJoker]

Gerekli Olanlar: 2 adet rich text box , 1 adet text box, 2 adet buton.

1 Adet Buton Açıyoruz Bu Buton Mesajımızı Göndermeye Yarayacak. İçine Aşağıdaki Kodları Yazıyoruz

Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.Net.NetworkCredential("ftp kullanıcı adı" , "ftp şifre")
client.UploadString("Chat.txt ftp adresi" , RichTextBox1.Text & name & ":" & RichTextBox2.Text + vbNewLine)
Catch ex As Exception
Msgbox("Sunucu bağlantı hatası")
End Try

Button2 ye aşağıdaki kodları giriyoruz bu kodlar sohbeti yenilemeye yarayacak.

Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("ftp kullanıcı adı", "ftp şifre")
            RichTextBox1.Text = client.DownloadString("ftp chat.txt adresi")
        Catch ex As Exception
            MsgBox("Sunucu bağlantı hatası")
        End Try

FormLoad Kısmına Bu Kodları Yazıyoruz:

Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("ftp kullanıcı adı", "ftp şifre")
            RichTextBox1.Text = client.DownloadString("ftp chat.txt adresi")
        Catch ex As Exception
            MsgBox("Sunucu bağlantı hatası")
        End Try

 

[JeaxyJoker]

İyi Forumlar.

 

[ravex]

Yararlı Konu ++

 

[JeaxyJoker]

Yararlı Konu ++

+++