Client und bzw. Server problem

  • VB.NET

    Client und bzw. Server problem

    Hey Leute,
    Da das Forum wieder da ist kann ich sofort wieder losfragen.^^
    Also ich habe ein Client mit einem Server, ich nutze den Code vom Tutorial von Kevin69.
    Ich wollte jetzt eine FUnktion für Private nachrichten einbauen Alles klappt aber bisauf der Client fängt es irgendwie nicht ab (nur die Privaten nachrichten) hab schon alles Probiert...^^
    Code zum Abschicken:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim k As String = Nothing
    2. Dim count As Integer = 0
    3. If TabControl1.SelectedTab.Text.Contains(nick) Then
    4. k = TabControl1.SelectedTab.Text
    5. k = k.Replace(nick & "|", Nothing)
    6. MsgBox("IPRIVATE:" & k & "|" & TextBox1.Text)
    7. streamw.WriteLine("IPRIVATE:" & k & "|" & TextBox1.Text)
    8. streamw.Flush()
    9. TextBox1.Clear()
    10. Else
    11. streamw.WriteLine(TextBox1.Text)
    12. streamw.Flush()
    13. TextBox1.Clear()
    14. End If

    Wie der Server es verarbeitet:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim nicknns As String
    2. Dim txt As String
    3. Do
    4. Try
    5. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    6. If tmp.StartsWith("IPRIVATE:") Then
    7. MsgBox("Server bekommt: " & tmp)
    8. tmp = tmp.Replace("IPRIVATE:", Nothing)
    9. Dim splcnt As Integer = 0
    10. For Each xddd In tmp.Split("|")
    11. splcnt += 1
    12. If splcnt = 1 Then
    13. nicknns = xddd
    14. ElseIf splcnt = 2 Then
    15. txt = xddd
    16. Else
    17. txt &= "|" & xddd
    18. End If
    19. Next
    20. For Each conuu As Connection In list
    21. If conuu.nick = nicknns Then
    22. conuu.streamw.WriteLine(con.nick & " : " & "|" & nicknns & "|" & txt & "_KUVATE_")
    23. con.streamw.WriteLine(con.nick & " : " & "|" & nicknns & "|" & txt & "_KUVATE_")
    24. MsgBox("Nachricht wird vom Server abgeschickt: " & con.nick & " : " & "|" & nicknns & "|" & txt & "_KUVATE_")
    25. End If
    26. Next
    27. Console.WriteLine("Private Nachricht..")

    Und wie der Client es empfängt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Case msg.EndsWith("_KUVATE_")
    2. ' So jetzt ist es da
    3. MsgBox(msg)
    4. Dim nicknn As String = Nothing
    5. Dim txt As String = Nothing
    6. Dim cnt As Integer = 0
    7. ' Es bleibt nur noch NICKNAME : TEXT
    8. msg = msg.Replace("_KUVATE_", Nothing)
    9. For Each splitit In msg.Split("|")
    10. cnt += 1
    11. If cnt = 1 Then
    12. txt = splitit
    13. ElseIf cnt = 2 Then
    14. nicknn = splitit
    15. ElseIf cnt = 3 Then
    16. txt &= splitit
    17. Else
    18. txt &= "|" & splitit
    19. End If
    20. Next
    21. ' nicknn ist jetzt der nickname
    22. Dim tabvorhanden As Boolean = False
    23. For Each Tabpages As TabPage In TabControl1.Controls
    24. If Tabpages.Text = nick & "|" & nicknn Then
    25. AddItems(txt, Tabpages)
    26. Ton()
    27. tabvorhanden = True
    28. End If
    29. Next
    30. If tabvorhanden = False Then
    31. AddTab(nick & "|" & nicknn)
    32. Me.Invoke(New DAddItem(AddressOf AddItem), txt)
    33. Ton()
    34. End If
    35. MsgBox("Die nachricht ging an: " & nicknn & " vom user: " & nick & " mit den Text: " & txt)


    Die Messageboxen hab ich extra eingebaut damit ich besser sehen kann wann was passiert, aber der Client kann es wie gesagt nicht empfangen (keiner der msgboxen im oberigen Code kommen).
    Würde mich freuen würdet ihr mir helfen.
    Vielleicht ist es was ganz kleines vielleicht aber auch was riesieges ^^ keine ahnung 8o
    Mfg
    Confix

Facebook
Telefonspende