Board logo

标题: [原创] VBS设置CMD快捷键 [打印本页]

作者: null    时间: 2008-8-14 23:11     标题: VBS设置CMD快捷键

经常测试代码,需要打开CMD命令提示符,很麻烦,
所以就写了这个小东西,直接按个键就可以打开CMD
可以帮大家减少些麻烦,
把心思更好的投入到BAT或VBS上来,呵。
  1. On Error Resume Next
  2. Set WshShell = WScript.CreateObject("WScript.Shell")
  3. xtxs="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
  4. yc=WshShell.RegWrite(xtxs,"0")
  5. set fso=createobject("scripting.filesystemobject")
  6. set wsys=fso.getspecialfolder(1)
  7. std = WshShell.SpecialFolders("Desktop"):
  8. set lnk = WshShell.CreateShortcut(std & "\Cmd.lnk")
  9. msgbox "注意:设置快捷键前请确认该键没有被其他软件占用!"
  10. kjj=inputbox("请设置相应快捷键:","设置快捷键","F9")
  11. lnk.TargetPath = wsys & "\Cmd.exe" :
  12. lnk.WindowStyle = 1 :
  13. lnk.Hotkey = kjj :
  14. lnk.IconLocation = wsys & "\Cmd.exe" :
  15. lnk.Description = "命令提示符" :
  16. lnk.WorkingDirectory = std :
  17. lnk.Save :
  18. set file=fso.getfile(std & "\Cmd.lnk")
  19. file.attributes=6
  20. msgbox "CMD快捷键设置成功,请按[" & kjj & "]进行测试!如果测试不成功,请更换快捷键!"
复制代码
转载请注明作者,谢谢。
作者: aaqqi1111    时间: 2008-8-15 00:10

要这么麻烦吗?直接点cmd的属性,在里面设快捷键不就行了 ^_^
作者: zlq19590408    时间: 2008-8-15 11:15

呵呵``谢了```回2楼的``lz的比较不错``不用在按Ctrl+shift了
作者: xouou_53320    时间: 2008-9-12 21:01

学习学习    呵呵
作者: cnhk_    时间: 2008-10-23 16:42

win +R  CMD  也很快呀




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2