XP: Restaurar Propiedades de Pantalla

Taller de Windows

La ” Propiedad de pantalla ” es donde se configura las diferentes características gráficas del sistema operativo, dispone de cinco pestaña: Temas, Escritorio, Protector de pantalla, Apariencia y Configuración. Las cuales por culpa de algún virus o por error en alguna aplicación pueden ser desactivadas, para volver a mostrarlas y solucionar este problema adjunto un parche, esta hecho en vbs, solo tienes que ejecutarlo como cualquier ejecutable y comprobar el resultado. En leer mas también adjunto el código por si te diera error la descarga del archivo.


Si no puedes descargar el archivo adjunto o prefieres crearlo tu mismo, solo tienes que crear un nuevo archivo y copiar el siguiente código en el.

Abre el bloc de notas y pega el siguiente código, y luego guárdalo en el escritorio con el nombre “Restaurar_Propiedades_Pantalla.vbs” y luego solo tienes que ejecutarlo

 

========== DESDE AQUI EL CODIGO ====== (Esta línea no la copies)

Option Explicit
Dim Solotrastos, Solotrastosa,Solotrastosb, rtn
Set Solotrastos = CreateObject(“WScript.Shell”)
‘  Distribuido desde: Http://www.Solotrastos.es por SJale
Solotrastosa=”HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\”
Solotrastosc
Solotrastosa=”HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\”
Solotrastosc
Solotrastosb=”HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\”
Solotrastosd
Solotrastosb=”HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\”
Solotrastosd
Sub Solotrastosc()
On Error Resume Next
rtn = Solotrastos.Regdelete (Solotrastosa & “NoDispCPL”)
rtn = Solotrastos.Regdelete (Solotrastosa & “NoDispAppearancePage”)
rtn = Solotrastos.Regdelete (Solotrastosa & “NoDispBackgroundPage”)
rtn = Solotrastos.Regdelete (Solotrastosa & “NoDispScrSavPage”)
rtn = Solotrastos.Regdelete (Solotrastosa & “NoDispSettingsPage”)
On Error Goto 0
End Sub
Sub Solotrastosd()
On Error Resume Next
rtn = Solotrastos.Regdelete (Solotrastosb & “NoThemesTab”)
rtn = Solotrastos.Regdelete (Solotrastosb & “ClassicShell”)
rtn = Solotrastos.Regdelete (Solotrastosb & “NoChangingWallPaper”)
rtn = Solotrastos.Regdelete (Solotrastosb & “ForceActiveDesktopOn”)
rtn = Solotrastos.Regdelete (Solotrastosb & “NoActiveDesktop”)
rtn = Solotrastos.Regdelete (Solotrastosb & “NoWebView”)
On Error Goto 0
End Sub
Solotrastos.RUN (“regsvr32.exe shell32.dll -i -s”)
Solotrastos.RUN (“regsvr32.exe themeui.dll -s”)
Msgbox “Propiedades de Pantalla Restaurado.”
Set Solotrastos = Nothing

========== HASTA AQUI EL CODIGO ====== (Esta línea no la copies)


DESCARGAR: Xp_restaurar_propiedades_pantalla.rar