如何实现批处理音乐播放器中歌曲的连续自动播放？

针对你的需求，核心是让批处理等待当前歌曲播放完毕后自动切换下一首，同时保留现有按钮菜单功能，以下是具体实现方案：

关键修改思路 #

1. 调整VBS播放逻辑：关闭单首歌循环，让VBS在歌曲播放结束后自动退出，让批处理能检测到播放完成事件。
2. 同步执行VBS：用cscript同步运行VBS脚本，替代start的异步启动，确保批处理等待歌曲播放完毕再继续执行。
3. 封装通用播放函数：把重复的播放代码整合成通用标签，减少冗余，方便后续添加新歌曲。
4. 管理播放队列：用变量记录当前播放位置，播放完自动切换到下一首，实现连续播放。

具体代码修改 #

1. 通用播放标签（替换原有的单独歌曲播放代码） #

这个标签负责播放指定歌曲，并等待播放完成：

:PlaySong
:: 传入参数：%1=歌曲文件名前缀（如SongNumberOne），%2=歌曲名称（用于写入playing.txt）
set "file=data\%1.mp3"
:: 生成VBS播放脚本，关闭循环，播放完成后退出
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.settings.volume = 100
  echo Sound.settings.setMode "loop", False
  echo Sound.Controls.play
  echo While Sound.playState ^<^> 1
  echo      WScript.Sleep 100
  echo Wend
  echo Sound.close
)>sound.vbs
:: 同步执行VBS，等待播放结束
cscript //nologo sound.vbs
:: 删除临时VBS文件
del sound.vbs
:: 写入当前播放标识
echo %2>playing.txt
cls
:: 返回调用位置
goto :eof

2. 修改播放列表菜单与连续播放逻辑 #

替换原有的:songs及后续单独歌曲标签，实现选择歌曲后自动连续播放：

:songs
cls
:: 显示歌曲选择菜单
cmdMenuSel f870 "Song Number One - Author" "Song Number Two - Author" "Song Number Three - Author"
:: 记录选择的歌曲索引
set "selected=%ERRORLEVEL%"

:: 设置起始播放位置
if %selected% == 1 set "current=1"
if %selected% == 2 set "current=2"
if %selected% == 3 set "current=3"

:: 进入连续播放循环
:ContinuePlay
:: 根据当前索引播放对应歌曲，并切换到下一首
if %current% == 1 (
  call :PlaySong "SongNumberOne" "SongNumberOne"
  set /a current=2
) else if %current% == 2 (
  call :PlaySong "SongNumberTwo" "SongNumberTwo"
  set /a current=3
) else if %current% == 3 (
  call :PlaySong "SongNumberThree" "SongNumberThree"
  set /a current=1  :: 播放完最后一首回到第一首，实现循环；若要停止则改为 goto start
)
:: 继续播放下一首
goto ContinuePlay

核心原理说明 #

• 检测播放完成：VBS中的Sound.playState属性用于判断播放状态，其中1代表「停止」状态。通过While Sound.playState <> 1循环等待，直到歌曲播放完毕，VBS脚本自动退出，批处理同步执行的cscript命令结束，继续执行后续代码。
• 避免重复代码：用call :PlaySong调用通用播放逻辑，后续添加新歌曲时，只需在菜单中增加选项，并在:ContinuePlay循环中添加对应索引的判断即可，无需重复编写播放代码。
• 同步执行：放弃start sound.vbs的异步启动，改用cscript //nologo sound.vbs让批处理等待VBS执行完毕，确保播放顺序可控。

进阶优化建议（可选） #

如果后续需要大量添加歌曲，可以通过遍历data文件夹自动生成播放列表，无需手动修改菜单代码：

:songs
cls
:: 初始化菜单选项计数器
set "menu_idx=0"
:: 遍历data文件夹中的mp3文件，生成菜单选项
for %%f in (data\*.mp3) do (
  set /a menu_idx+=1
  set "song_name=%%~nf"
  :: 将歌曲名称添加到菜单（可读取同名txt文件获取作者信息）
  cmdMenuSel /add f870 "!song_name! - Author"
)
:: 显示菜单并获取选择
cmdMenuSel f870
set "selected=%ERRORLEVEL%"
:: 后续逻辑可通过文件名数组实现连续播放，适合大量歌曲场景

内容的提问来源于stack exchange，提问作者descreetOP