磁盘双击或右键出现打开方式终极解决方法

2008年3月27日 | 分类: 学习笔记 | 标签:

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

p1 = "HKEY_CLASSES_ROOTDirectoryshell"
p2 = "none"

WshShell.RegWrite p1, p2

p1 = "HKEY_CLASSES_ROOTDriveshell"
WshShell.RegWrite p1, p2

X = WshShell.Run("REGSVR32 /I /S SHELL32.DLL",4,True)
Set WshShell = Nothing

MyBox = MsgBox("Folders will now Open when double clicked", 4096, "Finished!")

将上面引用框中的内容复制到记事本内,保存为open.vbs,双击运行即可,保证药到病除
注意:如果杀毒软件弹出警告,请选择忽略或跳过。