中国DOS联盟

::版权所有 趣味东::
@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"