Zitat:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Click

Dim Minuten As String = My.Computer.Clock.LocalTime.Minute
Dim Stunden As String = My.Computer.Clock.LocalTime.Hour
Dim wc As New Net.WebClient
Dim name As String
name = RichTextBox4.Text
ProgressBar1.Value = 33
ProgressBar1.Value = 56
wc.Credentials = New Net.NetworkCredential("StuxnetCoder", "*****")
wc.UploadString("ftp://StuxnetCoder@stuxnetcoder.st.funnpic.de/Chattextdatei.txt", RichTextBox1.Text & vbCrLf & " " & Stunden & ":" & Minuten & " " & RichTextBox4.Text & ":" & Eingabefeld.Text)
Eingabefeld.Clear()
Downloader.Enabled = True







End Sub

Private Sub RichTextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eingabefeld.TextChanged

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wc As New Net.WebClient
wc.Credentials = New Net.NetworkCredential("StuxnetCoder", "****")
wc.DownloadString("ftp://StuxnetCoder@stuxnetcoder.st.funnpic.de/Chattextdatei.txt")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Downloader.Tick
Dim wc As New Net.WebClient
wc.Credentials = New Net.NetworkCredential("StuxnetCoder", "****")
RichTextBox1.Text = wc.DownloadString("ftp://StuxnetCoder@stuxnetcoder.st.funnpic.de/Chattextdatei.txt")
End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub Onliner_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Onliner.Tick
RichTextBox2.Text = ""
Dim wc As New Net.WebClient
RichTextBox2.Text = wc.DownloadString("ftp://StuxnetCoder@stuxnetcoder.st.funnpic.de/Benutzertextdatei.txt" & RichTextBox4.Text)


End Sub
End Class

Zitat von Protagonist:

Du musst den Link auf deinem http-Server, nicht auf deinem ftp-Server nehmen.

Zitat von scw:

Ein Tipp zum Quelltext. Solche generierten Dinge wie "Button1", "Form1" sind nicht schön und solltest durch aussagekräftige Bezeichner ersetzen... genau so, wie Kommentare im Quelltext immer sehr hilfreich sind ;)

EDIT: Auch deine Credentials kommen öfters vor. So etwas lagert man normal als Konstante aus. So musst du nur eine Stelle anfassen, wenn sich deine Credentials mal ändern.

Zitat von Protagonist:

Du musst den Link auf deinem http-Server, nicht auf deinem ftp-Server nehmen.

Zitat von Protagonist:

Also statt

wc.DownloadString("ftp:blablabla")

musst du überall

wc.DownloadString("http://stuxnetcoder.st.fu npic.de/Chattextdatei.txt")

nehmen. Bitte die Leerzeichen rausmachen!

Zitat von _Y4SiN-:

Habe ich doch gemacht, aber es passiert nix ich schreibe einmal Hallo und es kommt dahin aber wenn ich nochmal was schreiben will geht nix mehr

Zitat von piepmax:

Eine Chatlösung über FTP und eine Textdatei ist nicht praktikabel. Erstens ist die Übermittlungszeit verhältnismäßig hoch und zweitens bekommst du Zugriffsprobeleme wenn 2 Personen gleichzeitig etwas schreiben.
Es wäre vermutlich sinnvoller mit einer Datenbank zu arbeiten.

Zitat von scw:

Im Idealfall wäre natürlich ein Rest-Service, welcher mittels JSON mit dem Client kommuniziert. Nur ist sowas alles andere als anfängertauglich.
Auch das mit der Datenbank ist für Anfänger nicht ganz geeignet. Man müsste sich erst noch in Datenbanken und vor allem Transaktionen einarbeiten...auch hier könnten mehrere Clients auf einen Datensatz zugreifen wollen.

Zitat von piepmax:

Hier würde ich einfach eine Table pro Chat verwenden und für jede Nachricht einen neuen Eintrag einlegen. Statt JSON würde ich WSDL verwenden, da VB hierfür bereits Managed Code besitzt.