backmusic.bat

本程序的功能就是在后台播放音乐

@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