Cita de: EleKtro H@cker en 5 Febrero 2012, 20:39 PMy funciona calalo con uno solo y ya con el script que te puse se ase
El comando del bucle: N.InvokeVerb("Install")
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úCita de: EleKtro H@cker en 5 Febrero 2012, 20:39 PMy funciona calalo con uno solo y ya con el script que te puse se ase
El comando del bucle: N.InvokeVerb("Install")
Citarcarpeta=objshell.expandenvironmentstringsy aber si te entendi los archivos .ttf estan en esa carpeta y tu los quieres instalar
("%systemroot%\fonts")
Citarsaludos hacker espero que te sirva
set objarchivo=createobject("scripting.filesystemobject")
set objshell=createobject("wscript.shell")
carpeta=objshell.expandenvironmentstrings("%systemroot%")
set f=objarchivo.getfolder(carpeta)
set fc=f.files
for each f1 in fc
if mid(f1.name,len(f1.name)-3,4)=".exe" then
msgbox f1.name
end if
next
CitarPs.. arriba puse los links de los crackmes,no estabien ya los pude bajar en el mismo rato que publique los baje pero ya abia publicado fue un error mio hacer esa pregunta.
pero si gustas que los suba a otro servidor,
lo hare
Saludos
http://depositfiles.com/files/le0q2duwj