win7֮
ǰλãҳ > ϵͳ̳ >

Ϊʲôwindows xpϵͳͬıǩ

  • ߣshs
  • Դ
  • ʱ䣺2018-12-22 08:35:07

ڴһӦóʱϵͳչʾһǩǩܹǿٲԼĴڣûϵͳµӦóΪʲô?ԴĽܡ

Ϊʲôwindows xpϵͳͬıǩ

ֻҪͨ޸עܿܵõ

ȴNOTEPAD(±):

Ϣ:

Set WSHShell = WScript.CreateObject("WScript.Shell")

Message = "ű޸Windows XPеСʱ޷ʾͼ⡣"& vbCR & vbCR

Message = Message & "Ϊűرպ Windows Explorer ǣϵͳ" & vbCR & vbCR

Message = Message & "رɱʵʱ!д򿪵ļ"& vbCR & vbCR

Message = Message & "Ƿ?"

X = MsgBox(Message, vbYesNo+vbExclamation, "ע")

If X = 6 Then

On Error Resume Next

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStuckRects2"

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStreamsMRU"

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStreamsDesktop"

WshShell.RegDelete "HKCUSoftwareMicrosoftInternet ExplorerExplorer Bars{32683183-48a0-441b-a342-7c2a440a9478}BarSize"

P1 = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"

WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"

WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"

WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

p1 = "HKCUSoftwareMicrosoftWindowsCurrentVersionGroup Policy ObjectsUserSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"

WshShell.RegDelete p1 & "NoMovingBands"

p1 = "HKLMSoftwareMicrosoftWindows NTCurrentVersionWinlogonShell"

WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

p1 = "HKCUSoftwareMicrosoftInternet ExplorerExplorer Bars{32683183-48a0-441b-a342-7c2a440a9478}"

WshShell.RegDelete p1 & "BarSize"

WshShell.RegWrite p1, "ý", "REG_SZ"

On Error Goto 0

For Each Process in GetObject("winmgmts:"). _

ExecQuery ("select * from Win32_Process where name='explorer.exe'")

Process.terminate(0)

Next

MsgBox "!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, ""

Else

MsgBox "ûжϵͳκθı䡣" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "ûȡ"

End If

Ϣȫȥ(Set WSHShellһֱEnd If)±ΪVBSʽļȻ˫ִиýűļ͵ԽǷdzӣʵֻҪ½ıơճִIJ͸㶨ˡ

ˣϱǹϵͳͬǩķˣҲͬ⣬ο̳̽вϣܹҡ

Ȩվ¼¼̶̳DZվСྫѧϰ֮ãתעͶ٣أ

  • ϲ
ǰλ ҳ > ϵͳ̳ >
 

Ϊʲôwindows xpϵͳͬıǩ

ߣshs

Դ

ʱ䣺2018-12-22 08:35:07

ڴһӦóʱϵͳչʾһǩǩܹǿٲԼĴڣûϵͳµӦóΪʲô?ԴĽܡ

Ϊʲôwindows xpϵͳͬıǩ

ֻҪͨ޸עܿܵõ

ȴNOTEPAD(±):

Ϣ:

Set WSHShell = WScript.CreateObject("WScript.Shell")

Message = "ű޸Windows XPеСʱ޷ʾͼ⡣"& vbCR & vbCR

Message = Message & "Ϊűرպ Windows Explorer ǣϵͳ" & vbCR & vbCR

Message = Message & "رɱʵʱ!д򿪵ļ"& vbCR & vbCR

Message = Message & "Ƿ?"

X = MsgBox(Message, vbYesNo+vbExclamation, "ע")

If X = 6 Then

On Error Resume Next

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStuckRects2"

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStreamsMRU"

WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerStreamsDesktop"

WshShell.RegDelete "HKCUSoftwareMicrosoftInternet ExplorerExplorer Bars{32683183-48a0-441b-a342-7c2a440a9478}BarSize"

P1 = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"

WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"

WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"

WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"

WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

p1 = "HKCUSoftwareMicrosoftWindowsCurrentVersionGroup Policy ObjectsUserSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"

WshShell.RegDelete p1 & "NoMovingBands"

p1 = "HKLMSoftwareMicrosoftWindows NTCurrentVersionWinlogonShell"

WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

p1 = "HKCUSoftwareMicrosoftInternet ExplorerExplorer Bars{32683183-48a0-441b-a342-7c2a440a9478}"

WshShell.RegDelete p1 & "BarSize"

WshShell.RegWrite p1, "ý", "REG_SZ"

On Error Goto 0

For Each Process in GetObject("winmgmts:"). _

ExecQuery ("select * from Win32_Process where name='explorer.exe'")

Process.terminate(0)

Next

MsgBox "!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, ""

Else

MsgBox "ûжϵͳκθı䡣" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "ûȡ"

End If

Ϣȫȥ(Set WSHShellһֱEnd If)±ΪVBSʽļȻ˫ִиýűļ͵ԽǷdzӣʵֻҪ½ıơճִIJ͸㶨ˡ

ˣϱǹϵͳͬǩķˣҲͬ⣬ο̳̽вϣܹҡ

ϲϵͳ̳

վڻ
ȨԭУҪ빺档
Ȩϵǣɾ
Copyright © 2004-2016
Win7ϵͳ֮(www.win764.org).All Rights Reserved