TCP Chat 2 Schwierigkeiten.

Dustin · 7. Januar 2011, 14:45

Hallo liebe Community!
Ich arbeite derzeit an einem TCP Multichat.

Ich habe bisher alles selber gefunden und auch verstanden, aber mir bleiben trotzdem keine Umsatzideen, wie ich zum einen einen einzelnden User vom Chat kicken kann, indem ich einfach den Text "/kick USERNAME" zum Server sende. Zum zweiten versuche ich einen Text nur an einen bestimmten User zu senden, indem man einfach den Text "/USERNAME DERTEXT" zum Server sendet.

Ich habe mir bei der Kickfunktion schon einige Gedanken gemacht, leider klappte das nicht.
Ich habe es so versucht:

VB.NET-Quellcode

If Console.ReadLine = "/kick " & c.nick then
c.stream.close
End If

Jedoch wird hier dann nur 1 Verbindung angenommen, wenn sich ein 2.ter User zum Chat verbindet wird dieser erst zugelassen wenn der Kickbefehl ausgeführt wurde.

Und bei meiner 2.ten Idee, wo man einen Text zu nur einem Client senden will, habe ich noch keine Ideen und hoffe auch hier auf eure Hilfe.

Der Chatserver Source ist folgender Maßen:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Module Module1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
Private list As New List(Of Connection)
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
End Structure
Private Sub SendToAllClients(ByVal s As String)
For Each c As Connection In list ' an alle clients weitersenden.
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch
End Try
Next
End Sub
Sub Main()
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("Der Chatserver ist Online und bereit für einkommende Verbindungen!")
Console.ForegroundColor = ConsoleColor.White
server = New TcpListener(ipendpoint)
server.Start()
While True ' wir warten auf eine neue verbindung...
client = server.AcceptTcpClient
Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
list.Add(c) ' und fügen sie der liste der clients hinzu.
Userlist()
Console.WriteLine("[" & TimeString & "] " & c.nick & " ist dem Chat beigetreten!")
' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClient
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While
End Sub
Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
Console.WriteLine("[" & Date.Now & "] " & con.nick & ": " & tmp)
SendToAllClients("[" & TimeString & "] " & con.nick & ": " & tmp) ' an alle clients weitersenden.
Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
list.Remove(con)
Console.WriteLine("[" & TimeString & "] " & con.nick & " hat den Chat verlassem!")
Exit Do
End Try
Loop
End Sub
Public Sub Userlist()
Dim users As String = ""
For Each Connections In list
users = users & Connections.nick.ToString & ","
SendToAllClients("/u " & users)
Next
End Sub
End Module

Und der Clientsource lautet so:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Public Class Form6
Private stream As NetworkStream
Private streamw As StreamWriter
Private streamr As StreamReader
Private client As New TcpClient
Private t As New Threading.Thread(AddressOf Listen)
Private Delegate Sub DAddItem(ByVal s As String)
Private nick As String = Form1.TextBox1.Text
Public Sub AddItem(ByVal s As String)
Dim userlist As String()
If s.StartsWith("/u ") Then
userlist = s.Remove(0, 3).Split(",")
ListBox1.Items.Clear()
ListBox1.Items.AddRange(userlist)
Else
ListBox4.Items.Add(s)
End If
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
If client.Connected Then
stream = client.GetStream
streamw = New StreamWriter(stream)
streamr = New StreamReader(stream)
streamw.WriteLine(nick) ' das ist optional.
streamw.Flush()
t.Start()
ListBox1.Items.Add(nick)
Else
MessageBox.Show("Verbindung zum Server nicht möglich!")
Me.Close()
End If
Catch ex As Exception
MessageBox.Show("Verbindung zum Server nicht möglich!")
Me.Close()
End Try
End Sub
Private Sub Listen()
While client.Connected
Try
Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
Catch
MessageBox.Show("Verbindung zum Server nicht möglich!")
Me.Close()
End Try
End While
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
streamw.WriteLine(TextBox1.Text)
streamw.Flush()
TextBox1.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class

Die Grundstrukturen sind von diesen Tutorial: [VB.NET] Multiserver (TCP)?

Mit freundlichem Gruß-

Mono · 7. Januar 2011, 15:06

Und was davon ist von dir ? xD

VB.NET-Quellcode

Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
'Hier an dieser Stelle kommen alle Nachrichten an und werden verarbeitet.
'Sagen wir, dU (UserNick:Dustin) schreibst /kick Prollo (usernick der connected ist)
'Dann ist tmp eben = "/kick Prollo"
'D.H. hier kannst du die Commandos auswerten.
'Für den Anfang reicht sicher ein IF tmp.startswith("/kick ") Then CheckIfUserIsConnectedandKickHim(tmp.substring(6))
'Du schreibst also eine Prozedur zB Namens CheckIfUserIsConnectedandKickHim(byval USername)
'Dort durchläufst du alle Connections (Ähnlich wie bei SendToAllClients) und prüfst, ob der Username verbunden ist.
'Wenn ja dann Con.close und SendToAllClients("User soundso wurde von Nick gekickt)
Console.WriteLine("[" & Date.Now & "] " & con.nick & ": " & tmp)
SendToAllClients("[" & TimeString & "] " & con.nick & ": " & tmp) ' an alle clients weitersenden.

Probiere einfach aus, am Server die Befehle auszuwerten. Dh. überleg dir ein System wie der Server die Befehle empfängt.
Du kannst auch an den Clients die Befehle schon vereinfachen.
Das heisst, sendet der User im Client den Befehl "/KICK Irgendwas" prüft das CLient programm den Befehl. Ist der BEfehl korrekt und validiert, sendet der Client gar nicht mehr den Text sondern nur noch einen definierten Befehl wie zB "1Username". Oder irgendwas dergleichen, dieser Befehl sollte natürlich möglichst eindeutig sein, und am besten kurz. zB 1 Startbit eines Bytes wird bei Befehlen so und so gesetzt, bei text eben anders.
Der Vorteil ist klar, der Server muss weniger prüfen und hat daher weniger Last.
Der Nachteil, bei neuen Befehlen müssen die Clients geupdatet werden.
Du musst dir sozusagen dein eigenes Anwendungsprotokoll schreiben.
Ein verständlich einfaches Beispiel wäre zB das IRC Protokoll.

ein bissl selber tüfteln und dann schaffst das schon ^^

Gruss Mono

jvbsl · 7. Januar 2011, 15:25

also das Kicken macht man logischerweiße auf der Serverseite...
Hier mal eigt. C&P Code, was aber noch Fehler haben könnte, da es ausm Kopf geschrieben ist:

VB.NET-Quellcode

Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
If tmp.StartsWith("/kick ") Then'reagieren auf den Kick Befehl
Dim userToKick As String = tmp.Substring(6)'Auslesen des Benutzernamens
For Each Connections In list'durchlaufen aller Benutzer
If Connections.nick = userToKick Then'Wenn der Username dem entspricht der gekickt werden soll
Connections.streamr.Close()'Schließen des StreamReaders
Connections.streamw.Close()'Schließen des StreamWriters
Connections.stream.Close()'Verbindung trennen
list.Remove(Connections)'Benutzer aus der Liste löschen
End If
Next
Else
Console.WriteLine("[" & Date.Now & "] " & con.nick & ": " & tmp)
SendToAllClients("[" & TimeString & "] " & con.nick & ": " & tmp) ' an alle clients weitersenden.
End if
Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
list.Remove(con)
Console.WriteLine("[" & TimeString & "] " & con.nick & " hat den Chat verlassem!")
Exit Do
End Try
Loop
End Sub

*Aus anderem Thread hierher verschoben*

Dustin · 7. Januar 2011, 15:27

Okay, habs verstanden danke!
Wie könnte so eine Abfrage denn aussehen, also wo man Abfragt ob der User connected ist?
Bei mir siehts die Prozedur jetzt so asu:

VB.NET-Quellcode

Private Sub Useronline(ByVal con As Connection)
End Sub

Mono · 7. Januar 2011, 15:33

Wie sieht denn SendToAllClients aus ?^^

Dustin · 7. Januar 2011, 15:38

Habs schon zum Teil hinbekommen

Aber leider wird nicht der gewünschte Client gekappt, sondern der eigene.
Was ist mein Fehler?

VB.NET-Quellcode

Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
If tmp.StartsWith("/kick ") Then
Useronline(con)
End If
Console.WriteLine("[" & Date.Now & "] " & con.nick & ": " & tmp)
SendToAllClients("[" & TimeString & "] " & con.nick & ": " & tmp) ' an alle clients weitersenden.
Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
list.Remove(con)
Console.WriteLine("[" & TimeString & "] " & con.nick & " hat den Chat verlassem!")
Exit Do
End Try
Loop
End Sub

Prozedur:

VB.NET-Quellcode

Private Sub Useronline(ByVal con As Connection)
If con.nick = client.Connected Then
con.nick = client.SendTimeout
End If
End Sub

Mono · 7. Januar 2011, 15:45

Der Fehler ist, das du prüfst, ob der NICK existiert, der den Befehl gesendet hat.
Davon darf man ungeprüft ausgehen ^^
Du musst natürlich den Nick prüfen, der in der Variable tmp hinter "/kick " kommt.
Der 2, Fehler ist,
du liest nicht, was ich schreibe.
Schau dir doch mal SendToAllClients an.
Was wird dort gemacht!!!!
Offensichtlich verstehst du es noch nicht!
Du musst ja ALLE Verbundenen Clients auf ihren NICK prüfen.
Für jede CONNECTION, die am Server ist. Oder du nutzt die METHODE 'FIND' der Klasse LIST(OF ).
Und suchst nach der CONNECTION, mit dem entsprechendem USERNAME!

Gruss

Dustin · 7. Januar 2011, 15:56

Hm, bei SendToAllClients wird ein Text an alle Clients gesndet :o

... Hm, ich bekomms echt nicht hin

Magst du mir evtl per ICQ oder TeamViewer helfen?

jvbsl · 7. Januar 2011, 16:13

wie wärs mit meinem Post?!:
[VB 2008] TCP Chat 2 Schwierigkeiten.

Dustin · 7. Januar 2011, 16:15

SOrry, hab das nicht gesehn. Ich werds mal Testen

Dustin · 7. Januar 2011, 17:49

Super, funktioniert tadellos!!!

Nun brauch ich nurnoch Hilfe bei dem Senden von einer Nachricht an nur einen Clienten.

Mono · 7. Januar 2011, 17:54

Das ist das selbe Prinzip..nur das du SendToAllClients nicht aufrufst.
Überleg dir einen Befehl + Username zB /query Username TEXT.

Sollte tmp mit "/query " starten, dann sende an den Nick der folgt, falls dieser eine Connection hat.
Wenn nicht, sende zurück, username nicht gefunden. Wenn ja, sende an die gefundene Connection den Rest der Nachricht.
SendToAllClients darf dann aber nicht mehr aufgerufen werden.

Dustin · 7. Januar 2011, 18:47

Habe es jetzt mal so versucht:

VB.NET-Quellcode

If tmp.StartsWith("/msgtouser ") Then
Dim MsgToOneUser As String = tmp.Substring(11)
For Each Connection In list
If Connection.nick = MsgToOneUser Then
con.streamw.WriteLine(tmp, tmp.Substring(11))
End If
Next
End If

Steht in der SendToAllCLient Sub, da ich nicht weüsste wo ich essonst reinschreiben könnte.

Aber bei den COdewird der Text trotzdem an alle gesendet.

TCP Chat 2 Schwierigkeiten.

TCP Chat 2 Schwierigkeiten.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben