Registrarse

[Codename!!]

Wenas! hace poco puso Volks su flooder para el msn , aqui viene el mio, lo puse tmb en su hilo pero lo saco además aqui afuera en un post principal.

Código:

Private Sub Command1_Click() //distinto tipo de flood 
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
Next x
End If
End If
End Sub

Private Sub Command2_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command3_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command4_Click() //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "            " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command5_Click()  //distinto tipo de flood
If Text1.Text = "" Then
MsgBox "Complete los datos.", vbOKOnly, "Error."
Else
If Text2.Text = "" Then
MsgBox ("Complete los datos")
Else
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "       " & Text1.Text & "{enter}"
SendKeys "         " & Text1.Text & "{enter}"
SendKeys "           " & Text1.Text & "{enter}"
Next x
End If
End If

End Sub

Private Sub Command6_Click()
End
End Sub

Una imagen;

La descarga: Con binarios y sources.
http://rapidshare.com/files/9260349/flooder.zip.html

[‭lipman]

Tiene buna pinta, pero lo que no me gusta mucho es el diseño aunque es lo de menos.

El rojo sobre el negro, daña un poco la vista aunque se vea perfectamente, y el verde claro haría algo así tambien.

Yo pondría sobre el negro colores oscuros.

Sobre los rojos pondría un azul oscurillo y sobre los verdes verdes oscuros.

Saludos

[Codename!!]

nah si el diseño es lo de menos xdd lo valioso es el code xd

[~~]

Esta original xDD ahora podemos j0d3r con estilo jajaj

[Codename!!]

jajajajja exacto xdddd

[[VolkS]]

jajajajaja xD, igual yo no fui, fue ||MadAntrax|| 

[Codename!!]

jajajajaja xD, igual yo no fui, fue ||MadAntrax|| 

cierto xddd vaya fallo xdddddddddd