Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Codename!!

Páginas 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#101
Hacking / Re: Backdoor reverse shell con netcat
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 Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source
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 Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source
29 Diciembre 2006, 18:01 PM
jajajajja exacto xdddd
#104
Programación Visual Basic / Re: Flooder MSN.VB con formas XD + Binarios y Source
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 Visual Basic / Flooder MSN.VB con formas XD + Binarios y Source
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 [Seleccionar]

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 Visual Basic / Re: [+] MSN Kick - Codigo Fuente
28 Diciembre 2006, 13:31 PM
Ya lo encontré  ;)

Os pongo el source:

Código [Seleccionar]
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 Visual Basic / Re: [+] MSN Kick - Codigo Fuente
28 Diciembre 2006, 13:17 PM
Yo hice un flooder con distintos metodos de flood
ahora os lo pongo si lo encuentro.
#108
Juegos y Consolas / Re: Una Partidilla CS (1.6)
17 Diciembre 2006, 12:02 PM
Tmb tengo el 1.6 , pero nadie tiene el source ?
#109
Juegos y Consolas / Re: Encuestas: Xbox 360 vs Ps3 vs Wii
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
Juegos y Consolas / Re: Una Partidilla CS (1.6)
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