VB.net Program to Implement Socket Server to Accept Client Connections

VB.Net program to implement socket server to accept client connections

'VB.Net program to implement socket server.

Imports System
Imports System.Text
Imports System.Net
Imports System.Net.Sockets

Module Module1
    Sub Main()
        Dim IP As String = "127.0.0.1"
        Dim PORT As Integer = 15001
        Dim len As Integer = 0

        Dim byteArray(256) As Byte
        Dim sendbytes(256) As Byte

        Dim Encoding As ASCIIEncoding
        Dim Skt As Socket

        Dim LocalHostIP As IPAddress = IPAddress.Parse(IP)
        Dim listner As New TcpListener(LocalHostIP, PORT)

        listner.Start()

        Console.WriteLine("Server is listening on port " & PORT)
        Console.WriteLine("Waiting for incoming connections..")

        Skt = listner.AcceptSocket()
        len = Skt.Receive(byteArray)

        Console.WriteLine("Received Data...")
        For i = 0 To len - 1 Step 1
            Console.Write(Convert.ToChar(byteArray(i)))
        Next

        Encoding = New ASCIIEncoding()
        sendbytes = Encoding.GetBytes("I have received data")
        Skt.Send(sendbytes)

        Console.WriteLine(vbCrLf & "Data sent to received client")

        Skt.Close()
        listner.Stop()
    End Sub
End Module

Server is listening on port 15001
Waiting for incoming connections..
Received Data...
Hello
Data sent to received client
Press any key to continue . . .