Set up a client that reads and displays data sent from server : UDP Client « Network Remote « VB.Net

1. VB.Net
2. Network Remote
3. UDP Client

Set up a client that reads and displays data sent from server

 
Imports System.Threading
Imports System.Net.Sockets
Imports System.IO

Public Class MainClass
   Shared Dim output As NetworkStream

   Shared Dim writer As BinaryWriter
   Shared Dim reader As BinaryReader

   Shared Dim message As String = "" 
   Shared Dim readThread As Thread

   Public Shared Sub Main()

      readThread = New Thread(AddressOf RunClient)

      readThread.Start()

      Try
         writer.Write("CLIENT>>> ")
         Console.WriteLine("CLIENT>>> ")
      Catch exception As SocketException
         Console.WriteLine("Error writing object")
      End Try
    

   End Sub
   
   Shared Public Sub RunClient()
      Dim client As TcpClient
      Try
         Console.WriteLine("Attempting connection" )

         client = New TcpClient()
         client.Connect("localhost", 5000)

         output = client.GetStream()

         writer = New BinaryWriter(output)
         reader = New BinaryReader(output)

         Console.WriteLine("Got I/O streams")

         Try
            Do
               message = reader.ReadString
               Console.WriteLine(message)

            Loop While message <> "SERVER>>> TERMINATE"

         Catch inputOutputException As IOException
            Console.WriteLine("Client application closing")

         Finally
            Console.WriteLine("Closing connection.")

            writer.Close()
            reader.Close()
            output.Close()
            client.Close()

         End Try

      Catch inputOutputException As Exception
         Console.WriteLine("Client application closing")

      End Try

   End Sub 

End Class


           
         
  

Related examples in the same category