Privater Chat (Server-Client)

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von rausch88.

    Wow, ok, vielen Dank. Werde mich nun da einarbeiten :)
    Ein seltsames Problem habe ich noch:
    Ich versuche, an alle Clients eine Meldung zu schicken, wenn ein neuer Client online kommt.
    Nach der Onlinemeldung am Server habe ich nun hinzugefügt:

    VB.NET-Quellcode

    1. SendToAllClients("useradd:" & c.nick)


    Wenn ich nun im Programm folgendes einfüge, dann funktioniert das einfach nicht:

    VB.NET-Quellcode

    1. If streamr.ReadLine.Contains("useradd:") Then
    2. ListBox1.Items.Add(streamr.Readline.Replace("useradd:", "")
    3. End If

    Auch bei MsgBox(streamr.Readline) zeigt er mir nichts an, bei MsgBox("test erfolgreich") jedoch schon.
    Auch interessant: Wenn ich MsgBox(streamr.Readline) oder ListBox1.Items.Add(streamr.Readline.Replace("useradd:", "") VOR der If-Klausel einfüge, dann funktioniert es...
    Fast so, als würde sich streamr.Readline nach der ersten Verwendung (in dem Fall das If...Contains) in weniger als 0 auflösen (bei 0 würde MsgBox(streamr.Readline) ja eine leere MsgBox hervorrufen, es kommt aber gar keine MsgBox).
    Fehler habe ich auch keine... Es passiert einfach nichts.
    MfG

    VB.NET-Quellcode

    1. Dim tmp As String = streamer.ReadLine()
    2. If tmp.Contains("useradd:") Then
    3. ListBox1.Items.Add(Replace(tmp,"useradd:","")
    4. End If

    bei jedem mal ReadLine will er die nächste Zeile auslesen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---