【已解决】有没有办法用批处理修改快捷方式的图标？谢谢

yyz2191958 · 发表于 2023-9-25 15:08:54

本帖最后由 yyz2191958 于 2023-9-25 21:28 编辑

问题解决了：
::【在当前目录创建快捷方式（图标路径：D:\PE整理碎片（很好）\修改PE\到桌面\图标\Pecmd.ico）】
@echo off
set 文件名=%~nx1
set 路径是=%~1
set 目录是=%~dp1

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%目录是%"" & ""\%文件名%.lnk""):b.TargetPath=""%路径是%"":b.WorkingDirectory =""%目录是%"":b.IconLocation=""D:\PE整理碎片（很好）\修改PE\到桌面\图标\Pecmd.ico"":b.Save:close")
exit
**********************************************
原来的问题：
有没有办法用批处理修改快捷方式的图标？谢谢
**********************************************
假设：
1.快捷方式路径是：D:\桌面\Desktop\启动火绒更新.wcs.lnk
2.需要将它的图标修改为：D:\PE整理碎片（很好）\修改PE\到桌面\图标\Pecmd.ico

批处理代码应该怎样？谢谢

fulibo · 发表于 2023-9-25 15:32:54

LINK %Desktop%\OFFICE2010,pecmd.exe,LOAD "%ProgramFiles%\OFFICE2010\Office.ini",%ProgramFiles%\OFFICE2010\OFFICE.ICO

PE里面的设置。可以参考一下

2012yjkiw · 发表于 2023-9-25 15:37:43

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""D:\桌面\Desktop"" & ""\启动火绒更新.wcs.lnk""):b.TargetPath=""C:\Program Files (x86)\Huorong\Sysdiag\bin\HRUpdate.exe"":b.IconLocation=""D:\PE整理碎片（很好）\修改PE\到桌面\图标\Pecmd.ico"":b.Save:close")

复制代码

替换一下
C:\Program Files (x86)\Huorong\Sysdiag\bin\HRUpdate.exe

yyz2191958 · 发表于 2023-9-25 15:42:49

fulibo 发表于 2023-9-25 15:32
LINK %Desktop%\OFFICE2010,pecmd.exe,LOAD "%ProgramFiles%\OFFICE2010\Office.ini",%ProgramFiles%\OFFIC ...

我试一试谢谢

yyz2191958 · 发表于 2023-9-25 15:43:16

2012yjkiw 发表于 2023-9-25 15:37
替换一下
C:\Program Files (x86)\Huorong\Sysdiag\bin\HRUpdate.exe

我试一试谢谢

yyz2191958 · 发表于 2023-9-25 16:03:48

本帖最后由 yyz2191958 于 2023-9-25 16:06 编辑

2012yjkiw 发表于 2023-9-25 15:37
替换一下
C:\Program Files (x86)\Huorong\Sysdiag\bin\HRUpdate.exe

这样创建的快捷方式：

没有起始位置

能够将起始位置也弄上去吗？

谢谢

yyz2191958 · 发表于 2023-9-25 16:41:10

问题解决了：
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""D:\桌面\Desktop"" & ""\启动火绒更新.wcs.lnk""):b.TargetPath=""D:\1绿色软件\火绒更新\启动火绒更新.wcs"":b.WorkingDirectory =""D:\1绿色软件\火绒更新"":b.IconLocation=""D:\PE整理碎片（很好）\修改PE\到桌面\图标\Pecmd.ico"":b.Save:close")

::【需要修改】
::TargetPath=""————后面的路径
::WorkingDirectory =""————后面的目录

yc2428 · 发表于 2023-9-25 22:15:05

yyz2191958 发表于 2023-9-25 16:41
问题解决了：
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(" ...

谢谢分享。

kala2018 · 发表于 2023-9-27 23:20:57

进来学习一下，谢谢大佬

nathan6498 · 发表于 2023-9-27 23:37:15

学习学习了

无犹启动 · 发表于 2023-10-12 21:34:02

学习学习了

yyz2191958 · 发表于 2023-10-12 21:37:00

无犹启动发表于 2023-10-12 21:34
学习学习了

好好学习

rbwrbw · 发表于 2023-10-13 08:59:55

问度娘，肯定有

yyz2191958 · 发表于 2023-10-13 11:34:54

rbwrbw 发表于 2023-10-13 08:59
问度娘，肯定有

问题已经解决谢谢

rbwrbw · 发表于 2023-10-13 17:22:11

*.lnk ,杀伤力大,菜单项基本都是

yyz2191958 · 发表于 2023-10-13 20:44:00

rbwrbw 发表于 2023-10-13 17:22
*.lnk ,杀伤力大,菜单项基本都是

确实*.lnk比较多

Arthurlong · 发表于 2023-10-14 21:09:02

还能用什么，就那几个。

yyz2191958 · 发表于 2023-10-14 21:10:47

Arthurlong 发表于 2023-10-14 21:09
还能用什么，就那几个。

有一些时候需要

wang1126 · 发表于 2024-3-5 19:49:23

感谢分享

tilltotell007 · 发表于 2024-3-5 20:44:59

感谢分享。

紧急追踪 · 发表于 2024-3-8 12:32:16

谢谢，学习了

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

[已解决] 【已解决】有没有办法用批处理修改快捷方式的图标？谢谢

点评

评分

点评

评分

点评

点评

点评

点评

点评

点评

点评

点评