Public Sub RunServer()
Dim listener As TcpListener
Dim counter As Integer = 1
Try
listener = New TcpListener(IPAddress.Parse("192.168.99.112"), 5000)
listener.Start()
While True
settext("Waiting for connection" & vbCrLf)
connection = listener.AcceptSocket
socketStream = New NetworkStream(connection)
writer = New BinaryWriter(socketStream)
reader = New BinaryReader(socketStream)
settext("Connection " & counter & " received." & vbCrLf)
writer.Write("SERVER>>> Connection successful")
setRead()
Dim theReply As String = ""
Try
Do
theReply = reader.ReadString
settext(vbCrLf & theReply)
Loop While (theReply <> "Client>>> TREMINATE" AndAlso connection.Connected)
Catch inputOutputException As IOException
MessageBox.Show("Client application closing")
Finally
settext(vbCrLf & "User terminated connection")
setReadOutput()
writer.Close()
reader.Close()
socketStream.Close()
connection.Close()
counter += 1
End Try
End While
Catch inputOutputException As IOException
MessageBox.Show("Server application closing")
End Try
End Sub
