VBS设置CMD快捷键

null

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

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

复制代码

转载请注明作者，谢谢。

aaqqi1111

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

zlq19590408

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

xouou_53320

学习学习    呵呵

cnhk_

win +R  CMD  也很快呀