TcpListener. Сервер виснет - Visual Basic .NET - Ответ 2148738

 While True
  Dim client As TcpClient = server.AcceptTcpClient()
              
                data = Nothing
         
                Dim stream As NetworkStream = client.GetStream()
                Dim i As Int32= stream.Read(bytes, 0, bytes.Length)
 
                While (i <> 0) ' Смысл этого цикла потерялся в твоем коде...
                    
 
                    data = System.Text.Encoding.Unicode.GetString(bytes, 0, i)
               ' Тут получили данные и.... отослали их в AddText. См. примечание 1.
                    AddText(data)
 
                    My.Computer.Registry.SetValue("HKEY_Local_Machine\Software\ServMSEB", "Temp", TextBox5.Text)
                    data = My.Computer.Registry.GetValue("HKEY_Local_Machine\Software\ServMSEB", "Temp", "")
' Особого смысла от предыдущих 2 строчек не увидел..
 
' Пошел кода ответа подключенному клиенту.
                    Dim msg As Byte() = System.Text.Encoding.Unicode.GetBytes(data)
                 
                    stream.Write(msg, 0, msg.Length)
                    i = stream.Read(bytes, 0, bytes.Length)
' А тут мы выключили сервер. См. примечание 2.
                    server.Stop()
' Казалось бы запустили сервер... См. примечание 3.
                    server.Start()
                End While

  Case Is = "CONNECT"
'код...
                TextBox1.Focus()
                TextBox2.Text = "OK"
                server.Stop()
                server.Start()
'Мы во время обработки, ДО ответа клиенту перезапускаем сервер.... Зачем?
Дальше опять...
  Case Is = "User"
'код...
    Select Case TextBox1.Text
                    Case Is = strochka(2)
                    ' код...
                        server.Stop()
                        server.Start()
опять не понятно зачем перезапустили сервер...
                    Case Else
                   server.Stop()
                        server.Start()
    End Select
              server.Stop()
                server.Start()

Sub ThreadProc()
        Try
While True
            Dim bytes(1024) As Byte ' Вот тут увеличь число, если данные приходят не полностью или не полностью отправляются
            Dim data As String 
          
                Dim client As TcpClient = server.AcceptTcpClient()
                Dim stream As NetworkStream = client.GetStream()
 
                Dim i As Int32= stream.Read(bytes, 0, bytes.Length)
 
              
               
                    data = System.Text.Encoding.Unicode.GetString(bytes, 0, i)
                    AddText(data)
                    My.Computer.Registry.SetValue("HKEY_Local_Machine\Software\ServMSEB", "Temp", TextBox5.Text)
                    data = My.Computer.Registry.GetValue("HKEY_Local_Machine\Software\ServMSEB", "Temp", "")
 
                    Dim msg As Byte() = System.Text.Encoding.Unicode.GetBytes(data)
            
                    stream.Write(msg, 0, msg.Length)
                  stream.Close()
                  client.Close()
 
 
            End While
        Catch i As SocketException
            MsgBox("Ошибка на серваке!!!")
            'TextBox1.Text = "Error!!!"
            'TextBox1.Refresh()
        Catch e As Exception
            'txtLog.Text = txtLog.Text & vbCrLf & "Client Disconnect..."
            server.Stop()
            'txtLog.Text = txtLog.Text & vbCrLf & "Client Disconnect..."
 
        Finally
            'Thread.CurrentThread.Abort()
            'server.Stop()
        End Try
    End Sub