Bu Dersimiz'de Sizlere FTP Chat Programı Yapmayı Anlattık Basit Fakat Gizli İşler Yapıyor Ve Konuşuyorsanız Bu Projeyi Kesinlikle Kullanmayın!
Button1 Kodları:
Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
client.UploadString("ftp://ftp.deneme222.pusku.com/chat.txt",RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine )
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Button2 Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Form1_Load Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
client.UploadString("ftp://ftp.deneme222.pusku.com/chat.txt",RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine )
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Button2 Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
Form1_Load Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try
20 saniyeye bir yenilemek için kod verebilir misin?
YanıtlaSilbir timer oluşturup içine buton 2 nin kodlarını yazabilirsin

SilEğer hata oluşursa Try kodunun Catch ex As Exception un Altına Timer1.Stop yazmayı unutma haa , Neyse Sen Anlamışındır
kardeş şu kontrol panelini bizede yapmayı söylesen bizde temizleriz demi:)
YanıtlaSilAbi yaptım süper çalıştıı , şu an arkadaşlarla sohbet ediyoruzzz ....
YanıtlaSilAbi Bende Her Şekilde Sunucu Hatası Veriyo Site Kapanmış verdiğiniz
YanıtlaSilkendin ftp hesabı oluşturman lazım. Adam ifresini değiştirmiş olabilir.
YanıtlaSilkendin ftp hesabı oluşturman lazım. Adam ifresini değiştirmiş olabilir.
YanıtlaSilHazır Dosyasını Atsan olurmu
YanıtlaSilBu yorum yazar tarafından silindi.
YanıtlaSilneden
Silreis bnde bi alt satıra geçmiyor vbNewLine yazdığım halde
YanıtlaSilMaaf link hidup tidak akan tampil di sini!
YanıtlaSilhocam bende statement cannot appear within a method body hatası veriyor end class kısmında neden acaba ? satırlar button 2 satırlarının aynısı zaten
YanıtlaSiladamsın
YanıtlaSil