On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
xtxs="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
yc=WshShell.RegWrite(xtxs,"0")
set fso=createobject("scripting.filesystemobject") 
set wsys=fso.getspecialfolder(1)
std = WshShell.SpecialFolders("Desktop"):
set lnk = WshShell.CreateShortcut(std & "\Cmd.lnk")
msgbox "注意：设置快捷键前请确认该键没有被其他软件占用!"
kjj=inputbox("请设置相应快捷键:","设置快捷键","F9")
lnk.TargetPath = wsys & "\Cmd.exe" : 
lnk.WindowStyle = 1 :
lnk.Hotkey = kjj : 
lnk.IconLocation = wsys & "\Cmd.exe" : 
lnk.Description = "命令提示符" : 
lnk.WorkingDirectory = std : 
lnk.Save : 
set file=fso.getfile(std & "\Cmd.lnk")
file.attributes=6
msgbox "CMD快捷键设置成功,请按[" & kjj & "]进行测试！如果测试不成功,请更换快捷键！"
复制代码