VB.Net Tutorial/Socket Network/Socket Port

Port scan

Imports System.Net.Sockets
Imports System.Net
Imports System.Threading
Imports System.Text
Public Class Tester
    Public Shared Sub Main
        Dim intPortStart As Integer = 1
        Dim intPortEnd As Integer = 10
        Dim lngLoop As Long
        For lngLoop = intPortStart To intPortEnd
            Dim myTcpClient As New TcpClient()
            Try
                myTcpClient.Connect("127.0.0.1", lngLoop)
                Console.WriteLine("Port " + lngLoop.ToString() + "started")
                myTcpClient.Close()
            Catch ex As SocketException
                Console.WriteLine("Port " + lngLoop.ToString() + " Closed" + ex.Message)
            End Try
        Next
    End Sub
End Class

Port 1 ClosedNo connection could be made because the target machine actively refused it
Port 2 ClosedNo connection could be made because the target machine actively refused it
Port 3 ClosedNo connection could be made because the target machine actively refused it
Port 4 ClosedNo connection could be made because the target machine actively refused it
Port 5 ClosedNo connection could be made because the target machine actively refused it
^CTerminate batch job (Y/N)? n