@echo off
set "exe=Patch.exe"
set "lnk=ruanjian"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
echo 完成&pause
标签:bat,set,windows,echo,exe,lnk,快捷方式
From: https://www.cnblogs.com/rzkwz/p/16963631.html