Visual basic chat programı

Öncelikle merhaba ben visual basic 2008 express editiondan chat programı yapıcam.Adamın yazdığı kodları
yazdım adam hosting gtp bilgileri fln giriyodu bende free hosting açdım bilgiler geldi ama nereye hangi
bilgiyi gireceğimi bilmiyorum kod halinde bana atarsanız sevinirim

benim kodlarım



Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name As String
name = RichTextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("", "")
client.UploadString("", RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine)

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("", "")
RichTextBox1.Text = client.DownloadString("")
Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("", "")
RichTextBox1.Text = client.DownloadString("")

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub
End Class



adamın kodları



Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name As String
name = RichTextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
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
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
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
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
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
End Sub
End Class



Free hosting bilgilerim

maindomain: darkworldftpchat.byehost7.com
FTP hostname: ftpupload.net
FTP username: b7_24955655
MYSQL hostname sql305.byehost.com
MYSQL username: b7_24955655
Hosting Volume vol15_7