[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 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 & "]进行测试!如果测试不成功,请更换快捷键!"
复制代码
转载请注明作者,谢谢。

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

TOP

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

TOP

学习学习    呵呵

TOP

win +R  CMD  也很快呀
1

评分人数

    • rat: I agree!PB + 2

TOP

返回列表