P处理建立快捷方式

普通：

 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"") &