@echo off
:began
set smilediao=""
set smilediao3=""
set smilediao2=""
set gequ=""
cls.
color 5a
title 背景音樂播放程序 
mode con cols=31 lines=21
echo    ************************ 
echo        背景音樂播放程序  
echo    ************************ 
echo                 作者:Wind Kid
echo.
echo =============================
echo 1.播放音樂 2.停止音樂 3.幫助
echo =============================
set /p smilediao=請選擇您的任務: 
if "%smilediao%"=="1" goto hello
if "%smilediao%"=="2" goto endmusic
if "%smilediao%"=="3" goto help
goto began
:endmusic
taskkill /f /im wscript.exe>nul
cls.
mode con cols=39 lines=4
echo ====================================
echo           謝謝使用!......
echo ====================================
ping -n 4 127.1>nul
exit) 
:hello 
cls.
echo   ===============
echo   請選擇播放類型：
echo   ===============
echo   1.選擇目錄  2.選擇歌曲
set /p smilediao3=任務：
if "%smilediao3%"=="1" goto hello2
if "%smilediao3%"=="2" goto hello3
goto hello
:hello2
echo ==========================
if exist "%cd%\背景音樂播放程序.vbs" echo 當前目錄有本程序的同名文件&echo 請處理，不然會覆蓋!
echo ==========================
echo.
echo   請輸入歌曲的目錄絕對路徑(可以拖放):
echo   (例如：F:\mp3_1)
set /p smilediao2=
if %smilediao2%=="" goto hello
echo set diao=createobject("wmplayer.ocx")>背景音樂播放程序.vbs 
for /r %smilediao2% %%a in (*.mp3 *.wma) do ( 
echo diao.url="%%a">>背景音樂播放程序.vbs 
echo wscript.sleep 1200>>背景音樂播放程序.vbs 
echo wscript.sleep diao.currentMedia.duration *1000>>背景音樂播放程序.vbs 
echo wscript.sleep 1000>>背景音樂播放程序.vbs 
) 
start 背景音樂播放程序.vbs 
goto began
:hello3
mode con cols=50 lines=90
echo ==========================
if exist "%cd%\背景音樂播放程序.vbs" echo 當前目錄有本程序的同名文件&echo 請處理，不然會覆蓋!
echo ==========================
echo ┏──────────────────┓
echo ┃☆請將歌曲拖放到這里,一首一個回車☆ ┃
echo ┃-=§歌曲名不能有空格§=-　　　　　　┃
echo ┃輸入end結束并播放　　　　　　　　　 ┃
echo ┗──────────────────┛
attrib -s -h -r 背景音樂播放程序.vbs >nul
echo '************************************** >背景音樂播放程序.vbs 
echo '            作者:Wind Kid              >>背景音樂播放程序.vbs
echo '************************************** >>背景音樂播放程序.vbs
echo Dim MyVar >>背景音樂播放程序.vbs
:1
set /p gequ=歌曲:
if ""%gequ%""==""end"" goto 2
echo set diao=createobject("wmplayer.ocx")>>背景音樂播放程序.vbs 
echo MyVar = MsgBox ("%gequ%", 64, "-=即將播放......=-")>>背景音樂播放程序.vbs
echo diao.url="%gequ%">>背景音樂播放程序.vbs 
echo wscript.sleep 1200>>背景音樂播放程序.vbs 
echo wscript.sleep diao.currentMedia.duration *1000>>背景音樂播放程序.vbs 
echo wscript.sleep 1000>>背景音樂播放程序.vbs
goto 1
:2
start 背景音樂播放程序.vbs
goto began
:help
cls.
mode con cols=31 lines=24
color 8f
echo   本程序由Wind Kid研究改良而來，雖是沒有什么技術含量，但Wind Kid也投入了大量的勞動與精神，所以有什么不好之處，請與Wind Kid聯系解決，Wind Kid將吸取一切好的意見和建議。
echo.
echo   本程序的功能就是在后臺播放音樂，沒有多余的界面。"選擇目錄"里的路徑可以自己輸入，也可以將音樂文件夾拖到程序的窗口中。"選擇歌曲"能選擇自己喜歡的歌來聽，只要將音樂文件拖到窗口即可，但拖一首歌就要激活本程序的窗口，再按一下回車，才可以選擇第二首歌。這里比較麻煩，我會努力解決問題。最重要一點就是，"選擇歌曲"里，歌曲名稱不能有空格，技術問題，請多多包含。
echo   "選擇目錄"里的路徑如果輸入"."(不包括雙引號)，就會自動選定程序的當前目錄。
pause
pause>nul 
goto began