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ıtlaSilOkey artık çok keyifli çünkü okey keyfinize özelde sohbet ve müzik keyfi ekledik.
YanıtlaSilOkeyat okey salonlarında Okey Oyna ve sohbet et ücretlik bedava.
Sohbetkur arkadaşlarınla eğlen 4 kişi toplan eşli veya herkes tek okey oyna
Canlı Okey burada ücretsiz hemen okeye bağlan ve oyun başlasın.
Ayrıca alternatif eğlence portallarımızda eğlenmeye başla
omegle tv
hocam 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