P处理建立快捷方式

YuYing 网吧相关 2023-12-28 70 0

普通:

 BASIC
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\快捷方式名称.lnk""):b.TargetPath=""所需创建快捷方式exe路径"":b.WorkingDirectory=""所需创建快捷方式工作目录"":b.Save:close")
复制成功!

指定图标

 BASIC
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\快捷方式名称.lnk""):b.TargetPath=""所需创建快捷方式exe路径"":b.WorkingDirectory=""所需创建快捷方式工作目录"":b.IconLocation=""所需创建快捷方式指定图标"":b.Save:close")
复制成功!

带参数

 BASIC
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") &


评论