Simone
more +3 %0>mklnk.vbsmklnk.vbs&del mklnk.vbsexitSet a=CreateObject("WScript.Shell")Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\快或高捷方式名称.lnk")dir=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Pathb.IconLocation="图标路卖此径，可留空"b.TargetPath=dir &"\pncrossdays.exe"b.Arguments="/C""10"""b.WorkingDirectory=dirb.Description="程序描述，中团迅可留空"b.Save
