Клиент-сервер - Visual Basic .NET - Ответ 2192172

Imports System.Net.Sockets
Imports System.Text
Public Class Form1
    Dim clientsList As New Hashtable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Main()
    End Sub
 
    Private Sub Main()
        Dim serverSocket As New TcpListener(8888)
        Dim clientSocket As TcpClient
        Dim infiniteCounter As Integer
        Dim counter As Integer
        serverSocket.Start()
        msg("Подключен")
        counter = 0
        infiniteCounter = 0
        For infiniteCounter = 1 To 2
            infiniteCounter = 1
            counter += 1
            clientSocket = serverSocket.AcceptTcpClient()
            Dim bytesFrom(10024) As Byte
            Dim dataFromClient As String
            Dim networkStream As NetworkStream = _
            clientSocket.GetStream()
            networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
            dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
            dataFromClient = _
            dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
            clientsList(dataFromClient) = clientSocket
            broadcast(dataFromClient + " Joined ", dataFromClient, False)
            msg(dataFromClient + " Joined chat room ")
            startClient(clientSocket, dataFromClient, clientsList)
        Next
        clientSocket.Close()
        serverSocket.Stop()
        msg("exit")
        Console.ReadLine()
    End Sub
 
    Private Sub msg(ByVal mesg As String) 'Принятие
        mesg.Trim()
        MsgBox(mesg)
    End Sub
 
    Private Sub broadcast(ByVal msg As String, _
    ByVal uName As String, ByVal flag As Boolean)
        Dim Item As DictionaryEntry
        For Each Item In clientsList
            Dim broadcastSocket As TcpClient
            broadcastSocket = CType(Item.Value, TcpClient)
            Dim broadcastStream As NetworkStream = _
                    broadcastSocket.GetStream()
            Dim broadcastBytes As [Byte]()
            If flag = True Then
                broadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg)
            Else
                broadcastBytes = Encoding.ASCII.GetBytes(msg)
            End If
            broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)
            broadcastStream.Flush()
        Next
    End Sub
 
    Dim clientSocket As TcpClient
    Dim clNo As String
 
 
    Public Sub startClient(ByVal inClientSocket As TcpClient, ByVal clineNo As String, ByVal cList As Hashtable)
        Me.clientSocket = inClientSocket
        Me.clNo = clineNo
        Me.clientsList = cList
        Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
        ctThread.Start()
    End Sub
 
    Private Sub doChat()
        Dim infiniteCounter As Integer
        Dim requestCount As Integer
        Dim bytesFrom(10024) As Byte
        Dim dataFromClient As String
        Dim rCount As String
        requestCount = 0
        For infiniteCounter = 1 To 2
            infiniteCounter = 1
            Try
                requestCount = requestCount + 1
                Dim networkStream As NetworkStream = _
                        clientSocket.GetStream()
                networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
                dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
                dataFromClient = _
                    dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
                msg(clNo + " " + dataFromClient)
                rCount = Convert.ToString(requestCount)
 
                broadcast(dataFromClient, clNo, True)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        Next
    End Sub
 
End Class