Zitat:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wcl As New Net.WebClient
Dim name As String
name = nametxt.Text
ProgressBar.Value = 10
wcl.Credentials = New Net.NetworkCredential("CoderYasin", "")
ProgressBar.Value = 45
wcl.UploadString("", "<" & name & ">" & RichTextBox1.Text)
ProgressBar.Value = 100
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("CoderYasin", "")
RichTextBox2.Text = wcl.DownloadString("")
Timer1.Enabled = True
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("", "")
TextBox2.Text = wcl.DownloadString("/chat.txt")
End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

Zitat von Spasslex:

wäre er wirklich von Dir, hättest Du alle Stellen an denen die Serveradresse, LoginID und Passwort steht oben als String definiert und nicht einfach den Code aus der MSDN-Bibliothek rauskopiert. Und nur weil "CoderYasin" drinnsteht heist das noch garnix!

Edit:

Hier nochmal kräftig auf den Putz hauen:
http://board.gulli.com/thread/1580965-vbnet-ftp-chat/

http://www.youtube.com/watch?v=ucWawFPGoCU

Man beachte die Werte von Yasins Code mit denen aus dem anderen Forum!

Für wie blöd hälst Du uns eigendlich?

Zitat von Pratsch:

Schon lange nichts mehr von dem kleinen gehört.

Hat er es aufgegeben? *___*

Zitat von Hsohnlol:

ich hacke auf 13 jaehrige rum ich bin intellektuell ...

Zitat von h3mpti:

Gibt es von dir eigentlich auch Beiträge, die in irgendeiner Art und Weise Sinn machen?