Desactivar Active Desktop Windows XP

¿Cómo desactivar Active Desktop?


¿A quién no le ha pasado que en su pc aparezca esto de un momento a otro?

Desactivar Active Desktop Windows XP


muy creido de que era sencillo de solucionar hizo click en "Restaurar Active Desktop", después, se encontró con esto:

windows xp


y entonces no supo que hacer...

la solución es muy sencilla:

1) abrimos el block de notas y copiamos lo siguiente

Option Explicit
On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject("WScript.Shell"

p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop"
itemtype = "REG_DWORD"


n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 0 then

WSHShell.RegWrite p, 1, itemtype
End If

If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Active Desktop is now DISABLED", 64, "Disable Active Desktop"
End If

If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox("Active Desktop is now ENABLED", 64, "Enable Active Desktop"
End If

Set WshShell = Nothing


2) lo guardamos en el escritorio con el nombre "activedesktop.vbs"
3) hacemos doble click sobre el.
4) aparecerá una ventana que dice que active desktop fue desactivado.
5) reiniciamos la pc y el problema fue solucionado.


Espero que les haya servido. Saludos a mi novia que la amo!

cualquier duda comenten...


Gracias por sus puntos y comentarios

Fuentes de Información - Desactivar Active Desktop Windows XP

Dar puntos
21 Puntos
Votos: 3 - T!score: 7/10
  • 1 Seguidores
  • 32.114 Visitas
  • 9 Favoritos

24 comentarios - Desactivar Active Desktop Windows XP

@DrHack Hace más de 5 años
La Categoria



@Mamonasasesinas Hace más de 5 años -1
Delete&gt;&gt;windowsxp&gt;&gt;boot them Sudo apt-get install linux
@tromp200 Hace más de 5 años
tu tienes windows 2000?
@kazichef Hace más de 5 años
desktop
@LuChOoOo_CaBj Hace más de 5 años
no me funco...
@tiduxx Hace más de 5 años
Muuy bueno el post che
@LosDjsKpos Hace más de 5 años
NO FUNCIONA CHE!! ya intente varias veces y me lanza error!

porq? me salta ventana de error! porfa ayudaa! no abandones el post!!!

bye besitoo

yo lukitazz
@Rneryy Hace más de 5 años
hola a todos les comento que si funciona
lo unico que falta son unos parentesis al final les envio el codigo completo
por cierto gracias

codigo

Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot
p = &quot;HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop&quot;
itemtype = &quot;REG_DWORD&quot;
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum &lt;&gt; 0 then
WSHShell.RegWrite p, 1, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox(&quot;Active Desktop is now DISABLED&quot;, 64, &quot;Disable Active Desktop&quot
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox(&quot;Active Desktop is now ENABLED&quot;, 64, &quot;Enable Active Desktop&quot
End If
Set WshShell = Nothing
@Rneryy Hace más de 5 años
ha estos no la haces remplaza las caritas por el cerrar parentesis )
@CANGUROBUFALO Hace más de 5 años +1
aparentemente funciona, yo lo hice pero no se paraque sirve, la cuestion es que me desactivo el active.
@Troyano18 Hace más de 4 años
Gracias, la verdad me cirvi a los que no les anda lo hacen mal no echen mierda el post...
@elcirujanoloco Hace más de 4 años
Que mierd... son los emoticones entre medio de todo lo que hay que escribir!? Te felicito que ames a tu novia, pero deciselo a ella, no a nosotros!
@stiven95 Hace más de 4 años
Men agregame al msn felipe.0215@hotmail.com y me ayudas hago lo que dices pero me sale un error Agregame al msn
@dicarpio37 Hace más de 4 años
Amigos a quienes no les ha funcionado. Me pasaba lo mismo, pero descubri que donde aparece la CARITA FELIZ, hay que escribirle un parentesis &quot; )&quot; pero sin comillas, haganlo y veran que funciona. A mi me funcionó. Suerte
@A7xs Hace más de 4 años
gracias men buen aport, felicidades y q bueno q maes a tu chava we felicidades xti y xella q te ama cuidat y gracias
@FCs33 Hace más de 4 años
podrian enviarme directamente el arcivo??? me tira error!
@fackus92 Hace más de 4 años
funco!
@Jahrulez Hace más de 3 años
Rneryy dijo:hola a todos les comento que si funciona
lo unico que falta son unos parentesis al final les envio el codigo completo
por cierto gracias

codigo

Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot
p = &quot;HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoActiveDesktop&quot;
itemtype = &quot;REG_DWORD&quot;
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum &lt;&gt; 0 then
WSHShell.RegWrite p, 1, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox(&quot;Active Desktop is now DISABLED&quot;, 64, &quot;Disable Active Desktop&quot
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox(&quot;Active Desktop is now ENABLED&quot;, 64, &quot;Enable Active Desktop&quot
End If
Set WshShell = Nothing


si funciona! solo cambian las caritas por parentesis osea SHITF + ) y lu guardan y listo! xD
@Samuelive2 Hace más de 3 años
Este es el bueno


Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot;;)
p = &quot;HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoActiveDesktop&quot;
itemtype = &quot;REG_DWORD&quot;
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum &lt;&gt; 0 then
WSHShell.RegWrite p, 1, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox(&quot;Active Desktop is now DISABLED&quot;, 64, &quot;Disable Active Desktop&quot;;)
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox(&quot;Active Desktop is now ENABLED&quot;, 64, &quot;Enable Active Desktop&quot;;)
End If
Set WshShell = Nothing 

@Samuelive2 Hace más de 3 años
si el anterior no sirve (en algunas versiones del Service Pack de xp si funciona en otras no) usar este

Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot;)
p = &quot;HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoActiveDesktop&quot;
itemtype = &quot;REG_DWORD&quot;
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum &lt;&gt; 0 then
WSHShell.RegWrite p, 1, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox(&quot;Active Desktop is now DISABLED&quot;, 64, &quot;Disable Active Desktop&quot;)
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox(&quot;Active Desktop is now ENABLED&quot;, 64, &quot;Enable Active Desktop&quot;)
End If
Set WshShell = Nothing *



REINICIAN Y LISTO
@Jamdxxx Hace más de 3 años
@MaxSE01 Hace más de 3 años
El código de @Samuelive2 me funcionó en Windows XP.
@MaxSE01 Hace más de 3 años
MaxSE01 dijo:El código de @Samuelive2 me funcionó en Windows XP.

SP3