Клиент-серверное общение. - Visual Basic .NET - Ответ 1903817

mports System.Net
Imports System.Net.Sockets
Imports System.Text
Module Module1
 
    Sub Main()
        Try
            'Тcp- слушатель, по ip-адресу 127.0.0.1 порт=2233
            Dim ip As IPAddress = IPAddress.Parse("127.0.0.1")
            Dim listener As TcpListener = New TcpListener(ip, 2233)
            'Начинаем прослушивание
            listener.Start()
            'Создаем клиента для принятия данных
            Dim client As TcpClient = listener.AcceptTcpClient()
            Dim ns As NetworkStream = client.GetStream()
            Dim connected As Boolean = True
            While connected = True
 
                'буффер для полученных данных
                Dim buffer() As Byte = New Byte(200) {}
                'считываем данные
                ns.Read(buffer, 0, buffer.Length)
                'Отображаем данные
                Console.WriteLine(Encoding.UTF8.GetString(buffer))
            End While
 
            ns.Close()
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
 
End Module

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Module Module1
 
    Sub Main()
        Try
            'Создаем клиента 
            Dim tc As Sockets.TcpClient = New Sockets.TcpClient()
            'Подключаемся, используя имя хоста и порт
            tc.Connect("localhost", 2233)
            Console.WriteLine("Подключение с сервером установлено...")
            'Получаем экземпляр NetworkStream для отправки данных
            Dim ns As NetworkStream = tc.GetStream()
            Dim connected As Boolean = True
            While connected = True
                Console.WriteLine("Введите сообщение...")
                Dim body As String = Console.ReadLine()
                'Перекодируем введенное сообщение в набор байтов
                Dim message() As Byte = Encoding.UTF8.GetBytes(body)
                'считываем данные
                ns.Write(message, 0, message.Length)
            End While
            tc.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
 
End Module