Board logo

标题: [系统相关] [已解决]win7 64环境，某个vbs文件，如何建立快捷方式，修改快捷方式的图标？ [打印本页]
作者: ygqiang    时间: 2017-9-27 08:54     标题: [已解决]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:16

本帖最后由 ygqiang 于 2017-9-27 09:18 编辑 
  1. del /q ""%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"

  2. 

  3. set "back_d=C:\WINDOWS\system32"

  4. set "back_dir=C:\WINDOWS\system32\显示桌面.vbs"

  5. ::指定图标路径

  6. 

  7. set "back_ico=%windir%\system32\shell32.dll,34"

  8. del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"

  9. 

  10. ;创建文件的快捷方式（普通位置）

  11. (echo Set objShell=CreateObject^("WScript.Shell"^)

  12. echo Set objlink=objShell.CreateShortcut^("%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"^)

  13. echo objlink.Hotkey="CTRL+ALT+X"

  14. echo objlink.WindowStyle=3

  15. echo objlink.TargetPath="%back_dir%"

  16. echo objlink.WorkingDirectory="%back_d%"

  17. ::设置图标

  18. echo objlink.IconLocation="%back_ico%"

  19. echo objlink.Save

  20. )>"mysendto.vbs"

  21. start /wait "" "mysendto.vbs"

  22. del "mysendto.vbs"

  23. 

  24. exit
复制代码
显示桌面.vbs代码为：
  1. Dim objSHA

  2. Set objSHA = CreateObject("Shell.Application")

  3. objSHA.ToggleDesktop

  4. Set objSHA = Nothing
复制代码
作者: ygqiang    时间: 2017-9-27 09:20

有个小问题，建立的lnk文件，CTRL+ALT+X快捷方式不好用。
作者: 窄口牛    时间: 2017-9-27 10:05

win7以上都有此问题，就是桌面设置的快捷方式的快捷键失效。
作者: CrLf    时间: 2017-9-27 16:37

回复 3# ygqiang


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



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