| 1234567891011 |
- @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"") & ""\Start.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
|
