Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Codename!! en 29 Diciembre 2006, 12:19 pm



Título: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: Codename!! en 29 Diciembre 2006, 12:19 pm
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;
(http://subetuimg.com/img/6639floods.JPG)
La descarga: Con binarios y sources.
http://rapidshare.com/files/9260349/flooder.zip.html


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: ‭lipman en 29 Diciembre 2006, 12:51 pm
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


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: Codename!! en 29 Diciembre 2006, 13:44 pm
nah si el diseño es lo de menos xdd lo valioso es el code xd


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: ~~ en 29 Diciembre 2006, 15:43 pm
Esta original xDD ahora podemos j0d3r con estilo jajaj


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: Codename!! en 29 Diciembre 2006, 18:01 pm
jajajajja exacto xdddd


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: [VolkS] en 29 Diciembre 2006, 20:09 pm
jajajajaja xD, igual yo no fui, fue ||MadAntrax|| 


Título: Re: Flooder MSN.VB con formas XD + Binarios y Source
Publicado por: Codename!! en 30 Diciembre 2006, 20:19 pm
jajajajaja xD, igual yo no fui, fue ||MadAntrax|| 
cierto xddd vaya fallo xdddddddddd