@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
::以下为创建桌面快捷方式命令
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\ELK02.lnk""):b.TargetPath=""%~dp0startFurnace.bat"":b.IconLocation=""%~dp0..\FurnaceUI\FurnaceUI.exe"" :b.WorkingDirectory=""%~dp0"":b.Save:close")
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Stop.lnk""):b.TargetPath=""%~dp0stopFurnace.bat"":b.IconLocation=""%~dp0..\FurnaceUI\FurnaceUI.exe"" :b.WorkingDirectory=""%~dp0"":b.Save:close")
::以下一行为提示语句，如果不需要可以删除
mshta vbscript:msgbox("恭喜，已成功在桌面创建快捷方式，请尽情使用！！！",0,"提示")
pause