创建程序的桌面快捷方式并修改快捷方式图标，实现自定义图片！

Unknown无名

.版本 2
.支持库 shell

.子程序 创建图标快捷方式
.参数 快捷方式名称, 文本型
.参数 指向文件路径, 文本型
.参数 备注信息, 文本型, 可空
.参数 命令行文本, 文本型, 可空
.参数 工作目录, 文本型, 可空
.参数 图标, 字节集
.局部变量 VBS文件, 整数型
.局部变量 内容, 文本型
.局部变量 文件名, 文本型
.局部变量 vbs路径, 文本型

写到文件 (工作目录 ＋ “\” ＋ 快捷方式名称 ＋ “.ico”, 图标)
文件名 ＝ 工作目录 ＋ “\” ＋ 快捷方式名称 ＋ “.ico”
vbs路径 ＝ 取特定目录 (3) ＋ 快捷方式名称 ＋ “.vbs”
.如果真 (文件是否存在 (vbs路径) ＝ 假)
    写到文件 (vbs路径, 到字节集 (取空白文本 (10)))
    VBS文件 ＝ 0
.如果真结束
.判断循环首 (VBS文件 ≤ 0)
    VBS文件 ＝ 打开文件 (vbs路径, 4, )
    程序_延时 (20, )
.判断循环尾 ()
内容 ＝ “Const DESKTOP = &H10&” ＋ #换行符 ＋ “Set objShell = CreateObject(” ＋ #引号 ＋ “Shell.Application” ＋ #引号 ＋ “)” ＋ #换行符 ＋ “Set objFolder = objShell.NameSpace(DESKTOP)” ＋ #换行符 ＋ “Set objFolderItem = objFolder.ParseName(” ＋ #引号 ＋ 快捷方式名称 ＋ “.lnk” ＋ #引号 ＋ “)” ＋ #换行符 ＋ “Set objShortcut = objFolderItem.GetLink” ＋ #换行符 ＋ “objShortcut.SetIconLocation ” ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “,” ＋ “0” ＋ #换行符 ＋ “objShortcut.Save”
.如果真 (创建快捷方式 (取特定目录 (3) ＋ “\” ＋ 快捷方式名称, 指向文件路径, 备注信息, 命令行文本, 工作目录) ＝ 真)
    .如果真 (写出文本 (VBS文件, 内容) ＝ 真)
        关闭文件 (VBS文件)
        执行 (4, vbs路径, , , )
        程序_延时 (500, )
        删除文件 (vbs路径)
    .如果真结束




请自行复制代码，调用的vbs脚本文件实现！

w3516330

支持开源感谢分享

dodge123

支持一下，感谢开源

灵感吖

支持一下，感谢开源

happyweeks365

能分享就值得点赞

xiaowukeji

可以    学习了

Unknown无名

kyo9766 发表于 2020-2-13 11:18
学习一下，怎么更换图标，感谢分享

子程序参数上面上传一个ico图片

kyo9766

学习一下，怎么更换图标，感谢分享