TCP chat filtering by listbox multiline, is it possible?

Question

Hey, would you help me 
so, i have a TCP chat one-way. and i need to filter every chat which will be forward to end-devices, this is a scenario:
client 1, client 2, client 3, etc -----> Filter -----> end devices.
my problem is in Filter, i have listbox which receive chat from any client, and of course i dont limit the client 1 line, so they can chat with 2 or more line. In filter (listbox), it only can be seen 1 line not 2 or more line. now, what if the client write
long or more than one line?
and this is my code :
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Threading.Tasks
Imports System.IO
Public Class ServerForm
Private _Listener As TcpListener
Private _Connections As New List(Of ConnectionInfo)
Private _ConnectionMontior As Task
Private Sub StartStopButton_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles StartStopButton.CheckedChanged
If StartStopButton.Checked Then
StartStopButton.Text = "Stop"
StartStopButton.Image = My.Resources.Resources.StopServer
_Listener = New TcpListener(IPAddress.Any, CInt(PortTextBox.Text))
_Listener.Start()
Dim monitor As New MonitorInfo(_Listener, _Connections)
ListenForClient(monitor)
_ConnectionMontior = Task.Factory.StartNew(AddressOf DoMonitorConnections, monitor, TaskCreationOptions.LongRunning)
Else
StartStopButton.Text = "Start"
StartStopButton.Image = My.Resources.Resources.StartServer
CType(_ConnectionMontior.AsyncState, MonitorInfo).Cancel = True
_Listener.Stop()
_Listener = Nothing
End If
End Sub
Private Sub PortTextBox_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PortTextBox.Validating
Dim deltaPort As Integer
If Not Integer.TryParse(PortTextBox.Text, deltaPort) OrElse deltaPort < 1 OrElse deltaPort > 65535 Then
MessageBox.Show("Port number must be an integer between 1 and 65535.", "Invalid Port Number", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
PortTextBox.SelectAll()
e.Cancel = True
End If
End Sub
Private Sub ListenForClient(monitor As MonitorInfo)
Dim info As New ConnectionInfo(monitor)
_Listener.BeginAcceptTcpClient(AddressOf DoAcceptClient, info)
End Sub
Private Sub DoAcceptClient(result As IAsyncResult)
Dim monitorInfo As MonitorInfo = CType(_ConnectionMontior.AsyncState, MonitorInfo)
If monitorInfo.Listener IsNot Nothing AndAlso Not monitorInfo.Cancel Then
Dim info As ConnectionInfo = CType(result.AsyncState, ConnectionInfo)
monitorInfo.Connections.Add(info)
info.AcceptClient(result)
ListenForClient(monitorInfo)
info.AwaitData()
Dim doUpdateConnectionCountLabel As New Action(AddressOf UpdateConnectionCountLabel)
Invoke(doUpdateConnectionCountLabel)
End If
End Sub
Private Sub DoMonitorConnections()
Dim doAppendOutput As New Action(Of String)(AddressOf AppendOutput)
Dim doUpdateConnectionCountLabel As New Action(AddressOf UpdateConnectionCountLabel)
Dim monitorInfo As MonitorInfo = CType(_ConnectionMontior.AsyncState, MonitorInfo)
Me.Invoke(doAppendOutput, "# Monitor Started.")
Do
Dim lostCount As Integer = 0
For index As Integer = monitorInfo.Connections.Count - 1 To 0 Step -1
Dim info As ConnectionInfo = monitorInfo.Connections(index)
If info.Client.Connected Then
If info.DataQueue.Count > 0 Then
Dim messageBytes As New List(Of Byte)
While info.DataQueue.Count > 0
Dim value As Byte
If info.DataQueue.TryDequeue(value) Then
messageBytes.Add(value)
End If
End While
Me.Invoke(doAppendOutput, System.Text.Encoding.ASCII.GetString(messageBytes.ToArray))
End If
Else
monitorInfo.Connections.Remove(info)
lostCount += 1
End If
Next
If lostCount > 0 Then
Invoke(doUpdateConnectionCountLabel)
End If
_ConnectionMontior.Wait(1)
Loop While Not monitorInfo.Cancel
For Each info As ConnectionInfo In monitorInfo.Connections
info.Client.Close()
Next
monitorInfo.Connections.Clear()
Invoke(doUpdateConnectionCountLabel)
Me.Invoke(doAppendOutput, "# Monitor Stopped.")
End Sub
Private Sub AppendOutput(message As String)
If RichTextBox1.TextLength > 0 Then
RichTextBox1.AppendText(ControlChars.NewLine)
RichTextBox1.AppendText(ControlChars.NewLine)
End If
RichTextBox1.AppendText(message)
RichTextBox1.ScrollToCaret()
ListBox1.Items.Add(message.Remove(0, 37))
End Sub
Private Sub UpdateConnectionCountLabel()
ConnectionCountLabel.Text = String.Format("{0} Connections", _Connections.Count)
End Sub
Private Sub ServerForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not ListBox1.SelectedItem Is Nothing AndAlso ListBox1.SelectedItem.ToString() <> "" Then
ListBox2.Items.Add(ListBox1.SelectedItem)
If Not ClientForm.ServerTextBox.Text = "" Then
ClientForm.InputTextBox.Text = ListBox1.SelectedItem
ClientForm.SendButton_Click(sender, e)
End If
If ClientFormExtra.ServerTextBox.Text = "" Then
ClientFormExtra.InputTextBox.Text = ListBox1.SelectedItem
ClientFormExtra.SendButton_Click(sender, e)
End If
ListBox1.Items.Remove(ListBox1.SelectedItem)
End If
IO.File.WriteAllText("LOG.txt", RichTextBox1.Text.Replace(Chr(10), Environment.NewLine))
Using writer1 = New StreamWriter(Application.StartupPath + "\LOG1.txt")
For Each o1 As Object In ListBox1.Items
writer1.WriteLine(o1)
Next
End Using
Using writer2 = New StreamWriter(Application.StartupPath + "\LOG2.txt")
For Each o2 As Object In ListBox2.Items
writer2.WriteLine(o2)
Next
End Using
Using writer3 = New StreamWriter(Application.StartupPath + "\LOG3.txt")
For Each o3 As Object In ListBox3.Items
writer3.WriteLine(o3)
Next
End Using
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Hide()
Dim isi As String = ""
isi = InputBox("Security code", "Configure")
If isi = "12" Then
ClientForm.Show()
ClientFormExtra.Show()
Me.Show()
Else
MsgBox("FAILED TO LOAD : please contact our admin", MsgBoxStyle.Exclamation, "permission is required to change default")
Me.Show()
End If
End Sub
End Class
Public Class MonitorInfo
Public Property Cancel As Boolean
Private _Connections As List(Of ConnectionInfo)
Public ReadOnly Property Connections As List(Of ConnectionInfo)
Get
Return _Connections
End Get
End Property
Private _Listener As TcpListener
Public ReadOnly Property Listener As TcpListener
Get
Return _Listener
End Get
End Property
Public Sub New(tcpListener As TcpListener, connectionInfoList As List(Of ConnectionInfo))
_Listener = tcpListener
_Connections = connectionInfoList
End Sub
End Class
Public Class ConnectionInfo
Private _Monitor As MonitorInfo
Public ReadOnly Property Monitor As MonitorInfo
Get
Return _Monitor
End Get
End Property
Private _Client As TcpClient
Public ReadOnly Property Client As TcpClient
Get
Return _Client
End Get
End Property
Private _Stream As NetworkStream
Public ReadOnly Property Stream As NetworkStream
Get
Return _Stream
End Get
End Property
Private _DataQueue As System.Collections.Concurrent.ConcurrentQueue(Of Byte)
Public ReadOnly Property DataQueue As System.Collections.Concurrent.ConcurrentQueue(Of Byte)
Get
Return _DataQueue
End Get
End Property
Private _LastReadLength As Integer
Public ReadOnly Property LastReadLength As Integer
Get
Return _LastReadLength
End Get
End Property
Private _Buffer(63) As Byte
Public Sub New(monitor As MonitorInfo)
_Monitor = monitor
_DataQueue = New System.Collections.Concurrent.ConcurrentQueue(Of Byte)
End Sub
Public Sub AcceptClient(result As IAsyncResult)
_Client = _Monitor.Listener.EndAcceptTcpClient(result)
If _Client IsNot Nothing AndAlso _Client.Connected Then
_Stream = _Client.GetStream
End If
End Sub
Public Sub AwaitData()
_Stream.BeginRead(_Buffer, 0, _Buffer.Length, AddressOf DoReadData, Me)
End Sub
Private Sub DoReadData(result As IAsyncResult)
Dim info As ConnectionInfo = CType(result.AsyncState, ConnectionInfo)
Try
If info.Stream IsNot Nothing AndAlso info.Stream.CanRead Then
info._LastReadLength = info.Stream.EndRead(result)
For index As Integer = 0 To _LastReadLength - 1
info._DataQueue.Enqueue(info._Buffer(index))
Next
info.SendMessage("Received " & info._LastReadLength & " Bytes")
For Each otherInfo As ConnectionInfo In info.Monitor.Connections
If Not otherInfo Is info Then
otherInfo.SendMessage(System.Text.Encoding.ASCII.GetString(info._Buffer))
End If
Next
info.AwaitData()
Else
info.Client.Close()
End If
Catch ex As Exception
info._LastReadLength = -1
End Try
End Sub
Private Sub SendMessage(message As String)
If _Stream IsNot Nothing Then
Dim messageData() As Byte = System.Text.Encoding.ASCII.GetBytes(message)
Stream.Write(messageData, 0, messageData.Length)
End If
End Sub
End Class
any solution ? or alternate?
thanks.

Answer 1

Hi blackkynit,
you could open different form, then communicate with each one with different form. when you select different comboBox item. Use SelectChanged event handle of comboBox.