elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


  Mostrar Temas
Páginas: [1]
1  Programación / Scripting / [VBS] Eliminar RunMRU List en: 20 Octubre 2009, 15:53 pm

código para eliminar los elementos de la lista que se guarda cada vez que accedemos a una carpeta, programa o archivo desde "Ejecutar" o "Run".



esta lista se guarda en el registro así que trabajaremos con el objeto "Wscript.Shell" para manipular las llaves de registro.



Código:
On Error Resume Next
Set objS = CreateObject("Wscript.Shell")
subclave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
clave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList"
lista = objS.regread(clave)
For i = 1 To Len(lista)
     objS.regdelete (subclave + "\" + Mid(lista, i, 1))
Next
objS.regdelete (clave)
MsgBox ("TAREA COMPLETADA")



Nota: una vez que se haya eliminado, la lista seguirá apareciendo xD,  a menos que reinicies, aunque esto no es del todo necesario, suficiente con que selecciones la opción de "apagar equipo" y aparezca el siguiente cuadro:



luego le das a cancelar y la lista ya no aparecerá  ;D.
2  Programación / Scripting / [VBS] Eliminar documentos recientes. en: 16 Octubre 2009, 05:48 am
Elimina la lista de archivos abiertos recientemente.

Código:
'creacion de objetos a utilizar
Set objS = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'define la ruta de la carpeta en donde se guardan los accesos
'directos a los archivos y carpetas abiertos recientemente
temp = objS.specialfolders("Recent") + "\"
'toma posesion de la carpeta
Set recent = objFSO.GetFolder(temp)
'un bucle que pasara por cada archivo
'que hay en la carpeta
For Each f In recent.Files
'elimina el archivo(acceso directo)
objFSO.DeleteFile (f.Path)
'sigue con el proximo archivo
Next
MsgBox ("TAREA COMPLETADA")

Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines