谁来解说下 open.vbs

来源：百度知道 编辑：UC知道 时间：2024/05/08 15:22:54
Set WshShell = WScript.CreateObject("WScript.Shell")

p1 = "HKEY_CLASSES_ROOT\Directory\shell\"
p2 = "none"

WshShell.RegWrite p1, p2

p1 = "HKEY_CLASSES_ROOT\Drive\shell\"
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!")
有什么用的?

p1 = "HKEY_CLASSES_ROOT\Directory\shell\"
p2 = "none"

WshShell.RegWrite p1, p2

p1 = "HKEY_CLASSES_ROOT\Drive\shell\"
WshShell.RegWrite p1, p2
以上 是写注册表,添加信息p1,p2

X = WshShell.Run("REGSVR32 /I /S SHELL32.DLL",4,True)
是运行REGSVR32 /I /S SHELL32.DLL,注册一个dll文件

MyBox = MsgBox("Folders will now Open when double clicked", 4096, "Finished!")
弹出一个信息框

补充回答：
作用应该是注册一个SHELL32.DLL的库文件，用它来改变文件夹的颜色和风格