FTP Chat überschreibt alles!

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    FTP Chat überschreibt alles!

    Hallo Leute,

    mein Problem hab en kleinen FTP Chat. Aber immer wen ich Etwas schreibe wird das zu letzt geschriebene Überschrieben d.h. es gibt nur eine Zeile.


    Form1 Load

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Dim wcl As New Net.WebClient
    3. wcl.Credentials = New Net.NetworkCredential("keydrow", "*********")
    4. RichTextBox1.Text = wcl.DownloadString("ftp://keydrow.bplaced.net/filemanager/chat.txt")
    5. Timer1.Enabled = True
    6. End Sub


    Sene Button:

    VB.NET-Quellcode

    1. Dim wcl As New Net.WebClient
    2. Dim name As String
    3. name = nametxt.Text
    4. ProgressBar.Value = 10
    5. wcl.Credentials = New Net.NetworkCredential("keydrow", "*******")
    6. ProgressBar.Value = 45
    7. wcl.UploadString("ftp://keydrow.bplaced.net/filemanager/chat.txt", "<" & name & ">" & RichTextBox2.Text)
    8. ProgressBar.Value = 100
    9. RichTextBox2.Text = Nothing


    Timer:

    VB.NET-Quellcode

    1. Private Sub chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chat.Tick
    2. Dim wcl As New Net.WebClient
    3. wcl.Credentials = New Net.NetworkCredential("keydrow", "*******")
    4. RichTextBox1.Text = wcl.DownloadString("ftp://keydrow.bplaced.net/filemanager/chat.txt")
    5. End Sub


    Hoffe jemand hatt ne idee!

    PS: Das RichTextBox2.Text = Nothing ist dafür das das sendefenster gecleart wird ;)

Facebook
Telefonspende