谁来解说下 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/06/21 09:51:35
![谁来解说下 open.vbsSet WshShell = WScript.CreateObject(](/uploads/image/z/14142743-71-3.jpg?t=%E8%B0%81%E6%9D%A5%E8%A7%A3%E8%AF%B4%E4%B8%8B+open.vbsSet+WshShell+%3D+WScript.CreateObject%28%22WScript.Shell%22%29p1+%3D+%22HKEY_CLASSES_ROOT%5CDirectory%5Cshell%5C%22p2+%3D+%22none%22WshShell.RegWrite+p1%2Cp2p1+%3D+%22HKEY_CLASSES_ROOT%5CDrive%5Cshell%5C%22WshShell.RegWrite+p1%2Cp2X+%3D+WshShell.Run%28%22REGSVR32+%2FI+%2FS+SHELL3)
谁来解说下 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的库文件,用它来改变文件夹的颜色和风格