[原创] VBS设置CMD快捷键

null

经常测试代码，需要打开CMD命令提示符，很麻烦，
所以就写了这个小东西，直接按个键就可以打开CMD
可以帮大家减少些麻烦，
把心思更好的投入到BAT或VBS上来，呵。

 
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 & "]进行测试！如果测试不成功,请更换快捷键！"
复制代码

转载请注明作者，谢谢。

aaqqi1111

要这么麻烦吗？直接点cmd的属性，在里面设快捷键不就行了 ^_^

zlq19590408

呵呵``谢了```回2楼的``lz的比较不错``不用在按Ctrl+shift了

xouou_53320

学习学习    呵呵

cnhk_

win +R  CMD  也很快呀