- Moderatör
- #1
Słyszę, słyszę letni powiew.
Kurucu
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
Button2 ye aşağıdaki kodları giriyoruz bu kodlar sohbeti yenilemeye yarayacak.
FormLoad Kısmına Bu Kodları Yazıyoruz:
Bilgi: Yenileme işlemini 10sn de bir falan yaptırabilirsiniz fakat bu programın 10sn de bir donmasına neden olacaktır. Sizebir taktik vereyim bu işlemleri backgroundworker ile yapın
O zaman kasma olmaz.
1 Adet Buton Açıyoruz Bu Buton Mesajımızı Göndermeye Yarayacak. İçine Aşağıdaki Kodları Yazıyoruz
Kod:
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 TryButton2 ye aşağıdaki kodları giriyoruz bu kodlar sohbeti yenilemeye yarayacak.
Kod:
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 TryFormLoad Kısmına Bu Kodları Yazıyoruz:
Kod:
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 TryBilgi: Yenileme işlemini 10sn de bir falan yaptırabilirsiniz fakat bu programın 10sn de bir donmasına neden olacaktır. Sizebir taktik vereyim bu işlemleri backgroundworker ile yapın
O zaman kasma olmaz.
