Multiserver(TCP) Kick Funktion

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von XxMoritz99xX.

    Ja so wie ich das beschrieben hab...

    Google nach Schleife bzw Liste durchlaufen, und IF um den Nick zu prüfen.. Connection(index) liefert dir alles was du brauchst.. Aber anscheinend hast du nur C&P gemacht, und verstehst nicht wirklich was du da vor dir hast.

    so also soweit bin ich jetz schon das ich wenn man /kickBenutzername eingibt eine msgbox beim server erscheint.

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    6. Module Module1
    7. Private server As TcpListener
    8. Private client As New TcpClient
    9. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 50021) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein! Private list As New List(Of Connection)
    11. Private Structure Connection
    12. Dim stream As NetworkStream
    13. Dim streamw As StreamWriter
    14. Dim streamr As StreamReader
    15. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    16. End Structure
    18. Private Sub SendToAllClients(ByVal s As String)
    19. For Each c As Connection In list ' an alle clients weitersenden.
    20. Try
    21. c.streamw.WriteLine(s)
    22. c.streamw.Flush()
    23. Catch
    24. End Try
    25. Next
    26. End Sub
    27. Sub Main() Console.WriteLine("Der Server läuft!")
    28. server = New TcpListener(ipendpoint)
    29. server.Start()
    30. While True ' wir warten auf eine neue verbindung...
    31. client = server.AcceptTcpClient
    33. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    34. c.stream = client.GetStream
    35. c.streamr = New StreamReader(c.stream)
    36. c.streamw = New StreamWriter(c.stream)
    37. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    38. list.Add(c) ' und fügen sie der liste der clients hinzu.
    39. Console.WriteLine(c.nick & " ist dem Chat beigetreten.")
    40. SendToAllClients(c.nick & " ist dem Chat beigetreten.")
    41. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    43. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    44. t.Start(c)
    45. End While
    46. End Sub
    47. Private Sub ListenToConnection(ByVal con As Connection)
    48. Do Try Dim tmp As String = con.streamr.ReadLine
    51. ' warten, bis etwas empfangen wird...
    52. Console.WriteLine(con.nick & ": " & tmp)
    53. If tmp = "/kick" & con.nick Then
    54. MsgBox("Gekickt")
    56. End If
    57. SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
    58. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    59. list.Remove(con)
    60. Console.WriteLine(con.nick & " hat den Chat verlassen.")
    61. SendToAllClients(con.nick & " hat den Chat verlassen.")
    62. Exit Do
    63. End Try
    64. Loop
    65. End Sub
    66. End Module



    doch wie kann ich jetzt den nick von der liste entfernen?

    ThuCommix schrieb:

    Die Liste der Connections durchlaufen, und wenn eine Davon den Nick "blah" hat, den Network Stream schließen.

    VB.NET-Quellcode

    1. Private Structure Connection
    2. Dim stream As NetworkStream
    3. Dim streamw As StreamWriter
    4. Dim streamr As StreamReader
    5. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    6. End Structure


    Dim strUser = tmp.Replace("/kick ","")

    Jetzt einfach mit einer For Schleife die List(Of Connection) durchlaufen, und die Nicks abgleichen, wenn ja -> NetworkStream Schließen

Facebook
Telefonspende