TCP Chat Problem mit den Namen

  • Allgemein

    TCP Chat Problem mit den Namen

    Hallo alle zusammen.

    Ich habe leider ein kleines Problem.
    Ich hab nach dieser Anleitung [VB.NET] Multiserver (TCP) einen Multiserver und verschiedene Clients programmiert.
    Das Grundsystem läuft. Also Server usw. das Problem was ich habe ist, dass er wenn zwei Leute on sind, den ersten "bevorzugt". Also egal von welchem Client man Text sendet, er kommt immer mit der Angabe, er wäre vom ersten gesendet, an.
    Das ist mein Programm mit auftretendem Fehler: (Links wird Hallo gesendet aber er behauptet es wäre von rechts gesendet worden)


    Das ist mein Sourcecode:
    Server:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    6. Private server As TcpListener
    7. Private client As New TcpClient
    8. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
    9. 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
    16. End Structure
    18. Private Sub SendToAllClients(ByVal s As String)
    19. For Each c As Connection In list
    20. Try
    21. c.streamw.WriteLine(s)
    22. c.streamw.Flush()
    23. Catch
    24. End Try
    25. Next
    26. End Sub
    28. Sub Main()
    29. Console.WriteLine("Server is running")
    31. server = New TcpListener(ipendpoint)
    32. server.Start()
    34. While True
    35. client = server.AcceptTcpClient
    37. Dim c As New Connection
    38. c.stream = client.GetStream
    39. c.streamr = New StreamReader(c.stream)
    40. c.streamw = New StreamWriter(c.stream)
    42. c.nick = c.streamr.ReadLine
    44. list.Add(c)
    45. Console.WriteLine(c.nick & " has joined.")
    46. SendToAllClients(c.nick & " ist dem Chat beigetreten.")
    49. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    50. t.Start(c)
    51. End While
    52. End Sub
    54. Private Sub ListenToConnection(ByVal con As Connection)
    55. Do
    56. Try
    57. Dim tmp As String = con.streamr.ReadLine
    59. Dim kickUser As String = tmp.Replace("/kick ", "")
    60. For Each con In list
    61. If con.nick = kickUser Then
    62. con.streamw.Write("Du wurdest gekickt.")
    63. con.streamw.Flush()
    64. list.Remove(con)
    65. End If
    66. Next
    68. Dim muteUser As String = tmp.Replace("/mute ", "")
    69. For Each con In list
    70. If con.nick = muteUser Then
    71. con.streamw.Write("Du wurdest gemutet.")
    72. con.streamw.Flush()
    73. list.Remove(con)
    74. End If
    75. Next
    77. Dim bcast As String = tmp.Replace("/bcast ", "")
    79. If tmp = "/closeall" Then
    80. SendToAllClients("/close")
    81. End If
    84. If tmp.StartsWith("/bcast") Then
    85. Console.WriteLine("[SERVER] Broadcast: " & bcast)
    86. SendToAllClients("[SERVER] Broadcast: " & bcast)
    87. ElseIf tmp = "/clsall" Then
    88. SendToAllClients("/cls")
    89. Else
    90. Console.WriteLine(con.nick & ": " & tmp)
    91. SendToAllClients(con.nick & " um " & TimeOfDay & ": " & tmp)
    92. End If
    94. Catch
    96. list.Remove(con)
    97. Console.WriteLine(con.nick & " has left.")
    98. SendToAllClients(con.nick & " hat den Chat verlassen.")
    99. Exit Do
    100. End Try
    101. Loop
    102. End Sub
    104. End Module

    Client:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Dim ip As String
    6. Private stream As NetworkStream
    7. Private streamw As StreamWriter
    8. Private streamr As StreamReader
    9. Private client As New TcpClient
    10. Private t As New Threading.Thread(AddressOf Listen)
    11. Private Delegate Sub DAddItem(ByVal s As String)
    12. Private nick As String = "[ADMIN] radio-ffk"
    14. Private Sub AddItem(ByVal s As String)
    16. If s.Contains("[ADMIN] radio-ffk") Then
    18. RichTextBox1.SelectionColor = Color.Green
    19. RichTextBox1.AppendText(s & vbNewLine)
    22. ElseIf s.Contains("[CO-ADMIN] Tiippexx") Then
    24. RichTextBox1.SelectionColor = Color.LimeGreen
    25. RichTextBox1.AppendText(s & vbNewLine)
    27. ElseIf s.Contains("[SERVER] Broadcast") Then
    29. RichTextBox1.SelectionColor = Color.RoyalBlue
    30. RichTextBox1.AppendText(s & vbNewLine)
    32. Else
    33. RichTextBox1.SelectionColor = Color.Black
    34. RichTextBox1.AppendText(s & vbNewLine)
    35. End If
    37. If s = "/close" Then
    38. Application.Exit()
    39. End If
    41. If s = "/cls" Then
    42. RichTextBox1.Text = ""
    43. RichTextBox1.SelectionColor = Color.RoyalBlue
    44. RichTextBox1.AppendText("[SERVER] Der Chat wurde geleert" & vbNewLine)
    45. End If
    47. RichTextBox1.SelectionColor = Color.Black
    50. End Sub
    52. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    53. ip = InputBox("IP?", "")
    54. End Sub
    56. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    57. Try
    58. client.Connect(ip, 8000) ' hier die ip des servers eintragen.
    59. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    60. If client.Connected Then
    61. stream = client.GetStream
    62. streamw = New StreamWriter(stream)
    63. streamr = New StreamReader(stream)
    65. streamw.WriteLine(nick)
    66. streamw.Flush()
    68. t.Start()
    69. Else
    70. Application.Exit()
    71. End If
    72. Catch ex As Exception
    73. Application.Exit()
    74. End Try
    75. End Sub
    77. Private Sub Listen()
    78. While client.Connected
    79. Try
    80. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    81. Catch
    82. Application.Exit()
    83. End Try
    84. End While
    85. End Sub
    87. Private Sub MetroButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetroButton1.Click
    88. streamw.WriteLine(TextBox1.Text)
    89. streamw.Flush()
    90. TextBox1.Clear()
    91. End Sub
    93. Private Sub MetroButton2_Click(sender As Object, e As EventArgs) Handles MetroButton2.Click
    94. streamw.WriteLine("/kick " & TextBox2.Text)
    95. streamw.Flush()
    96. TextBox2.Clear()
    97. End Sub
    99. Private Sub MetroButton3_Click(sender As Object, e As EventArgs) Handles MetroButton3.Click
    100. streamw.WriteLine("/mute " & TextBox3.Text)
    101. streamw.Flush()
    102. TextBox3.Clear()
    103. End Sub
    105. Private Sub MetroButton4_Click(sender As Object, e As EventArgs) Handles MetroButton4.Click
    106. streamw.WriteLine("/bcast " & TextBox4.Text)
    107. streamw.Flush()
    108. TextBox4.Clear()
    109. End Sub
    111. Private Sub MetroButton5_Click(sender As Object, e As EventArgs) Handles MetroButton5.Click
    112. streamw.WriteLine("/closeall")
    113. streamw.Flush()
    114. End Sub
    116. Private Sub MetroButton6_Click(sender As Object, e As EventArgs) Handles MetroButton6.Click
    117. streamw.WriteLine("/clsall")
    118. streamw.Flush()
    119. End Sub
    121. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    122. If TextBox2.Text = "" Then
    123. MetroButton2.Enabled = False
    124. Else
    125. MetroButton2.Enabled = True
    126. End If
    127. If TextBox3.Text = "" Then
    128. MetroButton3.Enabled = False
    129. Else
    130. MetroButton3.Enabled = True
    131. End If
    132. If TextBox4.Text = "" Then
    133. MetroButton4.Enabled = False
    134. Else
    135. MetroButton4.Enabled = True
    136. End If
    137. End Sub
    139. Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    140. If e.KeyCode = Keys.Enter Then
    141. streamw.WriteLine(TextBox1.Text)
    142. streamw.Flush()
    143. TextBox1.Clear()
    144. End If
    145. End Sub
    147. Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
    148. If e.KeyCode = Keys.Enter Then
    149. streamw.WriteLine("/kick " & TextBox2.Text)
    150. streamw.Flush()
    151. TextBox2.Clear()
    152. End If
    153. End Sub
    155. Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown
    156. If e.KeyCode = Keys.Enter Then
    157. streamw.WriteLine("/mute " & TextBox3.Text)
    158. streamw.Flush()
    159. TextBox3.Clear()
    160. End If
    161. End Sub
    163. Private Sub TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox4.KeyDown
    164. If e.KeyCode = Keys.Enter Then
    165. streamw.WriteLine("/bcast " & TextBox4.Text)
    166. streamw.Flush()
    167. TextBox4.Clear()
    168. End If
    169. End Sub
    171. End Class


    Befehle gehen dann vom zweiten User im übrigen garnicht mehr.
    Bin über jede Hilfe dankbar.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Vainamo“ ()

Facebook
Telefonspende