TCP Client Connection : TCP Client « Network Remote « VB.Net





TCP Client Connection

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


Public Class MainClass
   Shared Stream As NetworkStream


   Public Shared Sub Main()
        System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1))

        Dim Client As New TcpClient()

        Try
            Client.Connect(IPAddress.Parse("127.0.0.1"), 11000)
            Console.WriteLine("TCP Client Connection established.")
            Console.WriteLine(New String("-", 40))
            Console.WriteLine()

            Stream = Client.GetStream()

            Dim ReceiveThread As New Thread(AddressOf ReceiveData)
            ReceiveThread.IsBackground = True
            ReceiveThread.Start()

            Dim w As New BinaryWriter(Stream)

            Dim Text As String
            Do
                Text = Console.ReadLine()
                If Text <> "QUIT" Then w.Write(Text)
            Loop Until Text.ToUpper() = "QUIT"
            Client.Close()
        Catch Err As Exception
            Console.WriteLine(Err.ToString())
        End Try
   End Sub
   
   Shared  Private Sub ReceiveData()
        Dim r As New BinaryReader(Stream)
        Do
            If Stream.DataAvailable Then
                Console.WriteLine(("RECEIVED: " + r.ReadString()))
            End If
        Loop

    End Sub

   
End Class


           
       










Related examples in the same category