AxWinsock,TcpClient и прочие шплости - Visual Basic .NET - Ответ 1352859

Public Partial Class MainForm
Private ListenerThread As Threading.Thread
 
 
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
ListenerThread = New Threading.Thread(AddressOf DoListen) 'Создаем поток для сервера(чтобы не томозил основной поток)
listenerThread.IsBackground = True 'Делаем его фоновым, чтобы он завершался вместе с главным окном
ListenerThread.Start() 'Запускаем сервер в отдельном потоке
    End Sub
 Public Shared data As String = Nothing
 
'Собственно сам второй поток (сервер)
 
Private Sub DoListen()
Dim bytes() As Byte = New [Byte](1024) {} 'буфер для приема данных
Dim listener As New Socket(AddressFamily.InterNetwork, _
SocketType.Stream, ProtocolType.Tcp) 'Сокет
Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName()) 'Получаем ip адрес свой
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim remoteEP As New IPEndPoint(ipAddress,2233)
listener.Bind(remoteEP) 'биндим сокет на свой ip и порт
listener.Listen(10) 
'Дальше сам процесс получения байтов и перевод обратно в строку
        While True
            Dim handler As Socket = listener.Accept()
            data = Nothing
            While True
                bytes = New Byte(1024) {}
                Dim bytesRec As Integer = handler.Receive(bytes)
                data += Encoding.UTF8.GetString(bytes, 0, bytesRec)
                If data.IndexOf("*") > -1 Then
                    Exit While
                End If
            End While
 
            If textbox2.InvokeRequired Then 'Для доступа к контролам основного потока используестся Invoke, напрямую нельзя.
textbox2.beginInvoke(New Threading.ThreadStart(AddressOf DoSomeActions))
            Else
        DoSomeActions
End If
            handler.Shutdown(SocketShutdown.Both)
            handler.Close()
        End While
end sub
 
Sub DoSomeActions 'Это то, что делает Invoke после доступа к контролу гланого потока
    textbox2.Text =  textbox2.text & vbCrLf & (data)
End Sub

dim send As New Socket(AddressFamily.InterNetwork, _
            SocketType.Stream, ProtocolType.Tcp)
            Dim bytes(1024) As Byte
Dim remoteEP As New IPEndPoint(ip твоего сервера, 2233)'2233 это порт
send.Connect(remoteEP)
dim red as New System.IO.StringReader(textbox1.Text)' у меня идет чтение из textbox, у тебя может что то другое, переделывай
Dim body As String = red.ReadToEnd
Dim message() As Byte = Encoding.UTF8.GetBytes(body & "*")' * это сигналсерверу о конце сообщения
Dim bytesSent As Integer = send.Send(message)
send.Shutdown(SocketShutdown.Both)
send.Close()