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

ygqiang · 发表于 2017-9-27 08:54:43

本帖最后由 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:57

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

del /q ""%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"
set "back_d=C:\WINDOWS\system32"
set "back_dir=C:\WINDOWS\system32\显示桌面.vbs"
::指定图标路径
set "back_ico=%windir%\system32\shell32.dll,34"
del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"
;创建文件的快捷方式（普通位置）
(echo Set objShell=CreateObject^("WScript.Shell"^)
echo Set objlink=objShell.CreateShortcut^("%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\显示桌面.lnk"^)
echo objlink.Hotkey="CTRL+ALT+X"
echo objlink.WindowStyle=3
echo objlink.TargetPath="%back_dir%"
echo objlink.WorkingDirectory="%back_d%"
::设置图标
echo objlink.IconLocation="%back_ico%"
echo objlink.Save
)>"mysendto.vbs"
start /wait "" "mysendto.vbs"
del "mysendto.vbs"
exit

复制代码

显示桌面.vbs代码为：

Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing

复制代码

ygqiang · 发表于 2017-9-27 09:20:35

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

窄口牛 · 发表于 2017-9-27 10:05:29

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

CrLf · 发表于 2017-9-27 16:37:10

回复 3# ygqiang

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

		自动登录	找回密码
密码			注册

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

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