File 如何在批处理文件中播放不可见的音乐

我正在制作一个批量音乐播放器，但我不能播放看不见的音乐。我试过这个：

@echo off
:1
echo Hello
pause
goto 2
:2
start /min wmplayer "C:\Users\*user\Desktop\Games\Music.wav" 
goto 1

但它并没有出现。如何启动

wmplayer

最小化

@echo off
set file=track12.mp3
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs

---

只需使用音频文件的名称更改

track12.mp3

，以下是批量音乐播放器的完整批量源代码！所以好好享受吧；）

批量音乐播放器.bat

@echo off
setlocal enabledelayedexpansion
Set vbsfile=%temp%\Intro.vbs
Set URL=http://hackoo.alwaysdata.net/Intro_DJ.mp3
Call:Play %URL% %vbsfile%
Start %vbsfile%
Set MyFile=%~f0
Set ShorcutName=DJ Batch Music Player
(
echo Call Shortcut("%MyFile%","%ShorcutName%"^)
echo ^'**********************************************************************************************^)
echo Sub Shortcut(CheminApplication,Nom^)
echo    Dim objShell,DesktopPath,objShortCut,MyTab
echo    Set objShell = CreateObject("WScript.Shell"^)
echo    MyTab = Split(CheminApplication,"\"^)
echo    If Nom = "" Then
echo    Nom = MyTab(UBound(MyTab^)^)
echo    End if
echo    DesktopPath = objShell.SpecialFolders("Desktop"^)
echo    Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "\" ^& Nom ^& ".lnk"^)
echo    objShortCut.TargetPath = Dblquote(CheminApplication^)
echo    ObjShortCut.IconLocation = "Winver.exe,0"
echo    objShortCut.Save
echo End Sub
echo ^'**********************************************************************************************
echo ^'Fonction pour ajouter les doubles quotes dans une variable
echo Function DblQuote(Str^)
echo    DblQuote = Chr(34^) ^& Str ^& Chr(34^)
echo End Function
echo ^'**********************************************************************************************
) > %temp%\Shortcutme.vbs
Start /Wait %temp%\Shortcutme.vbs
Del %temp%\Shortcutme.vbs
::****************************************************************************************************
Title DJ Batch Music Player by Hackoo 2015
:menuLOOP
Color 0A & Mode con cols=78 lines=25
echo(
echo        ===============================================================
echo        "/  |  /  |                    /  |                          ";
echo        "$$ |  $$ |  ______    _______ $$ |   __   ______    ______  ";
echo        "$$ |__$$ | /      \  /       |$$ |  /  | /      \  /      \ ";
echo        "$$    $$ | $$$$$$  |/$$$$$$$/ $$ |_/$$/ /$$$$$$  |/$$$$$$  |";
echo        "$$$$$$$$ | /    $$ |$$ |      $$   $$<  $$ |  $$ |$$ |  $$ |";
echo        "$$ |  $$ |/$$$$$$$ |$$ \_____ $$$$$$  \ $$ \__$$ |$$ \__$$ |";
echo        "$$ |  $$ |$$    $$ |$$       |$$ | $$  |$$    $$/ $$    $$/ ";
echo        "$$/   $$/  $$$$$$$/  $$$$$$$/ $$/   $$/  $$$$$$/   $$$$$$/  ";
echo        "                                                            ";
echo        "                                                            ";
echo(       =============================Menu==============================
echo(
for /f "tokens=2* delims=_ " %%A in ('"findstr /b /c:":menu_" "%~f0""') do echo                         %%A  %%B
echo(
echo(       ===============================================================
set choice=
echo( & set /p choice=Make a choice or hit ENTER to quit: || GOTO :EOF
echo( & call :menu_[%choice%]
GOTO:menuLOOP
::********************************************************************************************
:menu_[1] Play DJ Buzz Radio
cls & color 0A
Call:SkipLine 10
Call:Tab 3
echo %x% Please Wait for a while .. Launching DJ Buzz Radio ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
Set vbsfile=%temp%\DJBuzzRadio.vbs
Set URL=http://www.chocradios.ch/djbuzzradio_windows.mp3.asx
Call:Play %URL% %vbsfile%
Start %vbsfile%
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:menu_[2] Play David Guetta Mix
cls & color 0A
Call:SkipLine 10
Call:Tab 3
echo %x% Please Wait for a while .. Launching David Guetta Mix ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
Set vbsfile=%temp%\David_Guetta_Miami.vbs
Set URL=http://hackoo.alwaysdata.net/David_Guetta_Miami_2014.mp3
Call:Play %URL% %vbsfile%
Start %vbsfile%
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:menu_[3] Play Ibiza Mix
cls & color 0A
Call:SkipLine 10
Call:Tab 3
echo %x% Please Wait for a while .. Launching Ibiza Mix ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
Set vbsfile=%temp%\IbizaMix.vbs
Set URL=http://hackoo.alwaysdata.net/IbizaMix.mp3
Call:Play %URL% %vbsfile%
Start %vbsfile%
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:menu_[4] Play Avicii Mega Mix
cls & color 0A
Call:SkipLine 10
Call:Tab 3
echo %x% Please Wait for a while .. Launching Avicii Megamix ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
Set vbsfile=%temp%\IbizaMix.vbs
Set URL="http://hackoo.alwaysdata.net/Best of Avicii Megamix 2014.mp3"
Call:Play %URL% %vbsfile%
Start %vbsfile%
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:menu_[5] Play Mega Mix 90
cls & color 0A
Call:SkipLine 10
Call:Tab 3
echo %x% Please Wait for a while .. Launching Mega Mix 90 ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
Set vbsfile=%temp%\IbizaMix.vbs
Set URL="http://hackoo.alwaysdata.net/Megamix 90.mp3"
Call:Play %URL% %vbsfile%
Start %vbsfile%
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:menu_[6] Stop the music
cls & color 0C
Call:SkipLine 10
Call:Tab 3
echo  %x% Please Wait for a while .. Stopping the music ...
Taskkill /IM "wscript.exe" /F >nul 2>&1
TimeOut /T 1 /NoBreak>nul
GOTO:menuLOOP
::********************************************************************************************
:Play
(
echo Play "%~1"
echo Sub Play(URL^)
echo    Dim Sound
echo    Set Sound = CreateObject("WMPlayer.OCX"^)
echo    Sound.URL = URL
echo    Sound.settings.volume = 100
echo    Sound.Controls.play
echo    do while Sound.currentmedia.duration = 0
echo        wscript.sleep 100
echo    loop
echo    wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo End Sub
)>%~2
::*********************************************************************************************
:Tab
set "x="
For /L %%I In (1,1,%1) Do Set "x=!x!    "
REM                                  ^-- this is a TAB
goto :eof
::*********************************************************************************************
:SkipLine
    For /L %%I In (1,1,%1) Do Echo(
    Goto:Eof
:EOF
EXIT
::********************************************************************************************* 

@echo关闭
延迟扩展
设置vbsfile=%temp%\Intro.vbs
设置URL=http://hackoo.alwaysdata.net/Intro_DJ.mp3
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
设置MyFile=%~f0
Set ShorcutName=DJ批量音乐播放器
(
回显调用快捷方式（“%MyFile%”，“%ShorcutName%”^）
回音^************************************************************************************************************************************************************************************************************************************************************^）
echo子快捷方式（化学应用，名称^）
echo Dim objShell、桌面路径、objShortCut、MyTab
echo Set objShell=CreateObject（“WScript.Shell”^）
echo MyTab=Split（化学应用，“\”^）
如果Nom=”“，则回显
echo Nom=MyTab（UBound（MyTab^）^）
回显结束if
echo DesktopPath=objShell.SpecialFolders（“桌面”^）
echo Set objShortCut=objShell.CreateShortcut（desktopath^&“\”^&Nom^&“.lnk”^）
echo objShortCut.TargetPath=Dblquote（化学应用程序^）
echo ObjShortCut.IconLocation=“Winver.exe，0”
echo objShortCut.Save
回音端接头
回声^'**********************************************************************************************
echo ^的函数为外部变量加双引号
回显函数DblQuote（Str^）
echo DblQuote=Chr（34^）^&Str^&Chr（34^）
回波结束函数
回声^'**********************************************************************************************
)>%temp%\Shortcutme.vbs
启动/等待%temp%\Shortcutme.vbs
删除%temp%\Shortcutme.vbs
::****************************************************************************************************
标题：2015年Hackoo推出的DJ批量音乐播放器
：菜单
颜色0A和模式con cols=78行=25行
回音(
回音===============================================================
回声“/|/|/|”；
回显“$$$$$$$$$$$$$$$uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu”；
回显“$$$$$\/\/$$$$\/\\”；
回显“$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$124；”；
回显“$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$”；
回声“$$$$$$$$$$$$$$$$$$\\\\\\\\\\\\\\$$$$\\\\\\\\\\\\\\\\\\\\\\\\\$$\\\\\$\”；
回声“$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$/”；
回显“$$/$$$$$$$$$$$$$$$$$/$$$$/$$$$$$/$$$$$$$$/”；
回声“；
回声“；
回声（==============================================菜单==============================
回音(
对于（“'findstr/b/c:”：菜单“%~f0”“”）中的/f“tokens=2*delims=\%%A，请执行回显%%A%%b
回音(
回声（===============================================================
设定选择=
echo（&set/p choice=进行选择或按ENTER键退出：| |转到：EOF
回显（&调用：菜单\[%choice%]
后藤：Menulop
::********************************************************************************************
：menu_u[1]播放DJ Buzz收音机
cls&color0a
电话：SkipLine 10
电话：表3
回音%x%请稍候..正在启动DJ Buzz收音机。。。
Taskkill/IM“wscript.exe”/F>num2>&1
设置vbsfile=%temp%\DJBuzzRadio.vbs
设置URL=http://www.chocradios.ch/djbuzzradio_windows.mp3.asx
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：menu_u2;[2]播放David Guetta混音
cls&color0a
电话：SkipLine 10
电话：表3
回显%x%请稍候..正在启动David Guetta Mix。。。
Taskkill/IM“wscript.exe”/F>num2>&1
设置vbsfile=%temp%\David\u Guetta\u Miami.vbs
设置URL=http://hackoo.alwaysdata.net/David_Guetta_Miami_2014.mp3
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：菜单u[3]播放Ibiza混音
cls&color0a
电话：SkipLine 10
电话：表3
回显%x%请稍候..正在启动Ibiza Mix。。。
Taskkill/IM“wscript.exe”/F>num2>&1
设置vbsfile=%temp%\IbizaMix.vbs
设置URL=http://hackoo.alwaysdata.net/IbizaMix.mp3
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：菜单u[4]播放Avicii Mega Mix
cls&color0a
电话：SkipLine 10
电话：表3
echo%x%请稍候..正在启动Avicii Megamix。。。
Taskkill/IM“wscript.exe”/F>num2>&1
设置vbsfile=%temp%\IbizaMix.vbs
设置URL=”http://hackoo.alwaysdata.net/Best Avicii Megamix 2014.mp3的音乐
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：menu_u5;[5]播放Mega Mix 90
cls&color0a
电话：SkipLine 10
电话：表3
回显%x%请稍候..正在启动Mega Mix 90。。。
Taskkill/IM“wscript.exe”/F>num2>&1
设置vbsfile=%temp%\IbizaMix.vbs
设置URL=”http://hackoo.alwaysdata.net/Megamix 90.mp3“
呼叫：播放%URL%%vbsfile%
开始%vbsfile%
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：menu_[6]停止播放音乐
cls&color0c
电话：SkipLine 10
电话：表3
回显%x%请稍候..正在停止音乐。。。
Taskkill/IM“wscript.exe”/F>num2>&1
超时/T1/NoBreak>nul
后藤：Menulop
::********************************************************************************************
：播放
(
回声播放“%~1”
回显子播放（URL^）
回声微弱的声音
回声设置声音=CreateObject（“W