谁来解说下 open.vbsSet WshShell = WScript.CreateObject("WScript.Shell")p1 = "HKEY_CLASSES_ROOT\Directory\shell\"p2 = "none"WshShell.RegWrite p1,p2p1 = "HKEY_CLASSES_ROOT\Drive\shell\"WshShell.RegWrite p1,p2X = WshShell.Run("REGSVR32 /I /S SHELL3

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 14:45:19
谁来解说下 open.vbsSet WshShell = WScript.CreateObject(

谁来解说下 open.vbsSet WshShell = WScript.CreateObject("WScript.Shell")p1 = "HKEY_CLASSES_ROOT\Directory\shell\"p2 = "none"WshShell.RegWrite p1,p2p1 = "HKEY_CLASSES_ROOT\Drive\shell\"WshShell.RegWrite p1,p2X = WshShell.Run("REGSVR32 /I /S SHELL3
谁来解说下 open.vbs
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!")
有什么用的?

谁来解说下 open.vbsSet WshShell = WScript.CreateObject("WScript.Shell")p1 = "HKEY_CLASSES_ROOT\Directory\shell\"p2 = "none"WshShell.RegWrite p1,p2p1 = "HKEY_CLASSES_ROOT\Drive\shell\"WshShell.RegWrite p1,p2X = WshShell.Run("REGSVR32 /I /S SHELL3
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的库文件,用它来改变文件夹的颜色和风格