批处理创建快捷键

@echo off & setlocal
set arg1=%~dp0\Daemon.exe
set arg2=c:
set arg3=机器人管理系统
if not defined arg1 goto usage
if “%arg2%”"" set arg2=Desktop
if “%arg3%”"" set arg3=shortcut
mshta VBScript:Execute(“Set a=CreateObject(”“WScript.Shell”"):Set b=a.CreateShortcut(a.SpecialFolders(""%arg2%"") & “”%arg3%.lnk""):b.TargetPath=""%arg1%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
goto :eof

:usage
echo %~n0 targetpath [shortcutfolder] [shortcutname]

goto :eof