últimos mensajes de: Codename!!

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 [11] 12 13 14 15 16 17

101	Seguridad Informática / Hacking / Re: Backdoor reverse shell con netcat	en: 2 Enero 2007, 21:01 pm
hoy dia el nc es detectado enviale un sfx y veras como el panda le salta a la supuesta victima xdd

102	Programación / Programación Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source	en: 30 Diciembre 2006, 20:19 pm
Cita de: [VolkS] en 29 Diciembre 2006, 20:09 pm jajajajaja xD, igual yo no fui, fue \|\|MadAntrax\|\| cierto xddd vaya fallo xdddddddddd

103	Programación / Programación Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source	en: 29 Diciembre 2006, 18:01 pm
jajajajja exacto xdddd

104	Programación / Programación Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source	en: 29 Diciembre 2006, 13:44 pm
nah si el diseño es lo de menos xdd lo valioso es el code xd

105

Programación / Programación Visual Basic / Flooder MSN.VB con formas XD + Binarios y Source

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;

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

106

Programación / Programación Visual Basic / Re: [+] MSN Kick - Codigo Fuente

en: 28 Diciembre 2006, 13:31 pm

Ya lo encontré

Os pongo el source:

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()//distinto tipo de flood
End
End Sub

Una imagen;

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

107	Programación / Programación Visual Basic / Re: [+] MSN Kick - Codigo Fuente	en: 28 Diciembre 2006, 13:17 pm
Yo hice un flooder con distintos metodos de flood ahora os lo pongo si lo encuentro.

108	Media / Juegos y Consolas / Re: Una Partidilla CS (1.6)	en: 17 Diciembre 2006, 12:02 pm
Tmb tengo el 1.6 , pero nadie tiene el source ?

109	Media / Juegos y Consolas / Re: Encuestas: Xbox 360 vs Ps3 vs Wii	en: 17 Diciembre 2006, 00:52 am
Pues yo tengo la xbox 1 y me gustaria tener la xbox 360, creo que es la mejor, a nivel visual, de comodidad de mando y aplicaciones multijugador.... ya me direis que hace la ps3 kontra el xbox live....

110	Media / Juegos y Consolas / Re: Una Partidilla CS (1.6)	en: 17 Diciembre 2006, 00:50 am
Jooooo yo quiero al source.... el 1.6 es muy irreal, necesitas 569813665462 cargadores para matar a uno en el pecho....

Páginas: 1 2 3 4 5 6 7 8 9 10 [11] 12 13 14 15 16 17