Du callst SchreibeAnJedenClient pro Nachricht 2x:
ChatServer.vb:
Code:
Private Sub NewMessage(ByVal c As ChatClient, ByVal sMessage As String)
RaiseEvent ClientNewMessage(c, sMessage)
SchreibeAnJedenClient(sMessage)
End Sub
wirft ein Event das gehandelt wird von:
Module1.vb:
Code:
Private Sub Server_ClientNewMessage(ByVal c As ChatClient, ByVal sMessage As String) Handles Server.ClientNewMessage
Console.WriteLine(sMessage)
Server.SchreibeAnJedenClient(sMessage)
End Sub
callen beide wiederrum:
Code:
Public Sub SchreibeAnJedenClient(ByVal sText As String)
Try
For Each c As ChatClient In ChatclientListe
c.schreiben(sText)
Next
Catch ex As Exception
Console.WriteLine("Schreib an jeden Client")
End Try
End Sub
wenn du den traffic gesnifft hättest, hättest du btw rausfinden können, ob es am client oder dem server liegt und so den bug immer weiter eingrenzen