Hast du deinen Code verändert , denn du musst in die Struktur einen TCPClient nehmen, du registrierst nur einen, aber du musst für jede verbindung einen registrieren.
VB.NET-Quellcode
Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Module Module1
Private server As TcpListener
Private client AsNew TcpClient
Private ipendpoint As IPEndPoint =New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
Private list AsNew List(Of Connection)
Public nicklist AsNew List(OfString)
Dim subnick AsString
PrivateStructure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
' Hier der Client
Dim UserClient As TcpClient
Dim nick AsString' natürlich optional, aber für die identifikation des clients empfehlenswert.
EndStructure
PrivateSub SendToAllClients(ByVal s AsString)
ForEach c As Connection In list ' an alle clients weitersenden.
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch
EndTry
Next
EndSub
Sub Main()
' Fabian
nicklist.Add("radioffk:fabiankrahtz")
' END
Console.WriteLine("InfoServer V 1 (c) radioffk - Status: Running")
Dim newClient =New Connection(listener.EndAcceptTcpClient(iasy).GetStream)
'Hier kannst du alles mit dem neuen Clienten machen da er eigtl noch nicht auf dem Server angezeigt wird und wenn dir was nicht passt schliesst du seine Verbindung
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RushDen“ ()
Schau mal meinen Beitrag oben an, du musst den Socket jedes Clienten mit Speichern, wenn du für jede verbindung einen neu aufmachst und Ihn aber nicht speicherst kannst du Ihn nich mehr verwenden.