::版权所有 趣味东::

@echo off

set/a"1/%1"2>nul||start /min mshta vbscript:createobject("wscript.shell").^

run("""%~nx0"" 1",0)(window.close)&&exit

set/a"1/(%1-1)"2>nul||(start /wait "" %0 2&cmd/c "del/a/f qwd.txt

"

taskkill /f /im "mshta.exe" /im "cmd.exe" &exit)

:::::::::::::::::加入自己的代码:::::::::::::::::::

echo 解决后台播放代码不能自动退出！

::start mshta vbscript:document.write("<bgsound src='不含空格路径的音乐地址' loop='1'>")

echo. %date%%time% >qwd.txt

echo 解决强制关批遗留临时文件的问题

pause

del/a/f/q qwd.txt

taskkill /f /im "mshta.exe" /im "cmd.exe"