bat实现自启动以及创建快捷方式_bat文件start某个快捷方式

::install.bat文件
 
@echo off
setlocal EnableDelayedExpansion
set WrkDir=%~dp0
set "LinkName=run.bat.lnk"
set filname=run.bat
set ThePath=%~dp0%run.bat 
mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.WorkingDirectory=""!WrkDir!"":Link.Save:close"^)
if exist  "C:\ProgramData\Microsoft\Windows\Start Menu\run.bat.lnk" (
  echo 卸载原有程序
  del /Q "C:\ProgramData\Microsoft\Windows\Start Menu\run.bat.lnk"
)
 echo 安装新程序
::copy /y run.bat.lnk "%USERPROFILE%\Desktop\" >nul 2>nul
move /y run.bat.lnk "C:\ProgramData\Microsoft\Windows\Start Menu\" >nul 2>nul
echo 自启动安装成功！...
choice /t 3 /d y /n >nul
 
 

:: run.bat与jar文件放在一起
 
 
 
@echo off
 
:run
 
start javaw -jar XiaoyiTimer.jar
 
:end
 
exit

增强版的链接