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

24 comentarios - Desactivar Active Desktop Windows XP

@DrHack
La Categoria



@Mamonasasesinas -1
Delete&gt;&gt;windowsxp&gt;&gt;boot them Sudo apt-get install linux
@tromp200
tu tienes windows 2000?
@tiduxx
Muuy bueno el post che
@LosDjsKpos
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
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
ha estos no la haces remplaza las caritas por el cerrar parentesis )
@CANGUROBUFALO +1
aparentemente funciona, yo lo hice pero no se paraque sirve, la cuestion es que me desactivo el active.
@Troyano18
Gracias, la verdad me cirvi a los que no les anda lo hacen mal no echen mierda el post...
@elcirujanoloco
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
Men agregame al msn felipe.0215@hotmail.com y me ayudas hago lo que dices pero me sale un error Agregame al msn
@dicarpio37
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
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
podrian enviarme directamente el arcivo??? me tira error!
@Jahrulez
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
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
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