Ufff, script para actualizar la pantalla del PC??? (F5) (SOLUCIONADO)

[SuperDraco]

Hola, he creado este medio"script" para poder mostrar/ocultar los archivos ocultos del sistema:



lo que hace cuando le das a "mostrar archivos ocultos es un comando "regedit /S mostrar.reg" que cambia una clave del registro, pero esto solo funciona si luego en el explorer apretas "F5" para actualizar... entonces, hay alguna manera de hacerlo automaticamente? mediante algun comando o algo??? para que aparte de hacer el "regedit /S" se actualize la pantalla...??

espero ayudaaaa gracias


p.d: si alguien quiere el script simplemente que me lo pida! funciona con windows 7.

[Novlucker]

Opciones tienes muchas .. una de ellas nircmd

---> Comandos Nircmd [Utiles para Batch]

Si tienes dudas puedes buscar en el foro, seguro que encuentras muchos ejemplos

Saludos

[SuperDraco]

quizás te refieras al comando "setdisplay"?? de toda la lista esa que has puesto en el link solo se me ocurre ese comando, que no tiene nada que ver con mi problema, u otro que tampoco tiene nada que ver, me los he mirado y no sirveeen, en el "setdisplay" pone algo de refreshdate pero lo he comprobado y se refiere a los herzios del monitor, asi que nada que ver, buf... esto es imposible xD

he probado a buscar la entrada "actualizar" del menu del mouse , que quizás si encuentro eso podria ver que comando usa windows para esa funcion pero tampoco he conseguido nada...   en fin ...:/ muchas gracias por la ayuda novlucker

[SuperDraco]

quizás esto sirva????

Código (vb) [Seleccionar] Expandir


with CreateObject("explorer.Application")
 .Visible = True
   WScript.Sleep 10
   .Refresh
End with

pero no me funciona. seguro que tiene algo mal xD, ademas donde pone "explorer" antes ponia "internetexplorer"... pero como no se vbs, he cambiado por probar...



EDITO: vaya, he encontrado uno muy bueno, pero solo actualiza el escritorio... no el explorer.exe :S   

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
WScript.Quit

' End of VBScript to refresh the desktop

[Novlucker]

Esos dos últimos codes que has dejado son vbs, que no era que no querias vbs?

De los comandos nircmd tienes el sendkey, revisalo

Saludos

[SuperDraco]

jajaja nov no keria porque no se nada, pero parece mucho mas "completo"...

al final me he servido de algo así

Código (vb) [Seleccionar] Expandir

Set oShell = CreateObject("WScript.Shell")
Set oSHApp = CreateObject("Shell.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")

oShell.SendKeys "{F5}~"
Wscript.Sleep 50000


realmente simple, y sencillo de entender, (aunque no se si las tres primeras lineas sobran o son necesarias...) en cuanto pueda iré aprendiendo sobre vbs xD

[sunbikers]

Hola

SuperDraco, me podrias pasar el script?

Estoy buscando algo así.

Muchas gracias.