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

[系统相关] [已解决]win7 64环境,某个vbs文件,如何建立快捷方式,修改快捷方式的图标?

本帖最后由 ygqiang 于 2017-9-27 09:17 编辑

[已解决]win7 64环境,某个vbs文件,如何建立快捷方式,修改快捷方式的图标?

C:\Windows\System32\显示桌面.vbs
C:\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk

批处理代码可以实现建立快捷方式了。
主要问题是:如何讲lnk文件图标修改为显示桌面的那种图标效果?

本帖最后由 ygqiang 于 2017-9-27 09:18 编辑
  1. del /q ""%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"
  2. set "back_d=C:\WINDOWS\system32"
  3. set "back_dir=C:\WINDOWS\system32\显示桌面.vbs"
  4. ::指定图标路径
  5. set "back_ico=%windir%\system32\shell32.dll,34"
  6. del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"
  7. ;创建文件的快捷方式(普通位置)
  8. (echo Set objShell=CreateObject^("WScript.Shell"^)
  9. echo Set objlink=objShell.CreateShortcut^("%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"^)
  10. echo objlink.Hotkey="CTRL+ALT+X"
  11. echo objlink.WindowStyle=3
  12. echo objlink.TargetPath="%back_dir%"
  13. echo objlink.WorkingDirectory="%back_d%"
  14. ::设置图标
  15. echo objlink.IconLocation="%back_ico%"
  16. echo objlink.Save
  17. )>"mysendto.vbs"
  18. start /wait "" "mysendto.vbs"
  19. del "mysendto.vbs"
  20. exit
复制代码
显示桌面.vbs代码为:
  1. Dim objSHA
  2. Set objSHA = CreateObject("Shell.Application")
  3. objSHA.ToggleDesktop
  4. Set objSHA = Nothing
复制代码

TOP

有个小问题,建立的lnk文件,CTRL+ALT+X快捷方式不好用。

TOP

win7以上都有此问题,就是桌面设置的快捷方式的快捷键失效。

TOP

回复 3# ygqiang


    不是有 win+D 了,为什么还要自己设快捷键

TOP

返回列表