TCP Server Demo : TCP Server « Network Remote « VB.Net

1. VB.Net
2. Network Remote
3. TCP Server

TCP Server Demo

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

Public Class MainClass
   Shared Stream As NetworkStream

   Public Shared Sub Main()
        Dim Listener As New TcpListener(11000)
        Listener.Start()

        Console.WriteLine("TCP Server Waiting for a connection...")

        Try
            Dim Client As TcpClient = Listener.AcceptTcpClient()
            Console.WriteLine("Connection accepted.")
            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"
            ReceiveThread.Abort()
            Client.Close()
            Listener.Stop()

        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