无忧启动论坛

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

作者: yyz2191958 时间: 2023-9-25 15:08
标题: 【已解决】有没有办法用批处理修改快捷方式的图标？谢谢
本帖最后由 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
LINK %Desktop%\OFFICE2010,pecmd.exe,LOAD "%ProgramFiles%\OFFICE2010\Office.ini",%ProgramFiles%\OFFICE2010\OFFICE.ICO

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

作者: 2012yjkiw 时间: 2023-9-25 15:37

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

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

我试一试谢谢

作者: yyz2191958 时间: 2023-9-25 15:43

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

我试一试谢谢

作者: yyz2191958 时间: 2023-9-25 16:03
本帖最后由 yyz2191958 于 2023-9-25 16:06 编辑

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

这样创建的快捷方式：

没有起始位置

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

谢谢

1.png (20.49 KB, 下载次数: 164)

作者: yyz2191958 时间: 2023-9-25 16:41
问题解决了：
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

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

谢谢分享。

作者: kala2018 时间: 2023-9-27 23:20
进来学习一下，谢谢大佬

作者: nathan6498 时间: 2023-9-27 23:37
学习学习了

作者: 无犹启动 时间: 2023-10-12 21:34
学习学习了

作者: yyz2191958 时间: 2023-10-12 21:37

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

好好学习

作者: rbwrbw 时间: 2023-10-13 08:59
问度娘，肯定有

作者: yyz2191958 时间: 2023-10-13 11:34

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

问题已经解决谢谢

作者: rbwrbw 时间: 2023-10-13 17:22
*.lnk ,杀伤力大,菜单项基本都是

作者: yyz2191958 时间: 2023-10-13 20:44

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

确实*.lnk比较多

作者: Arthurlong 时间: 2023-10-14 21:09
还能用什么，就那几个。

作者: yyz2191958 时间: 2023-10-14 21:10

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

有一些时候需要

作者: wang1126 时间: 2024-3-5 19:49
感谢分享

作者: tilltotell007 时间: 2024-3-5 20:44
感谢分享。

作者: 紧急追踪 时间: 2024-3-8 12:32
谢谢，学习了

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)