[其他] 背景音乐播放程序批处理版（测试版）

smilediao

把该bat文件放到您的音乐文件夹里运行即可,想要停止音乐播放，只要再次运行本程序，选择停止即可。
建议大家下载附件运行，不会有错误出现，亲测过！

::欢迎光临我的博客http://hi.baidu.com/smilediao
@echo off&color 0a&title 背景音乐播放程序
mode con cols=40 lines=20
echo       ************************
echo            背景音乐播放程序   
echo       ************************
echo                     作者smilediao
pause
echo    1。播放音乐   2。停止音乐
set /p smilediao=请选择您的任务:
if "%smilediao%"=="1" (goto hello) else (wmic process where name='wscript.exe' call terminate>nul&echo 谢谢使用。。&ping -n 2 127.1>nul&del /f /q x.vbs&exit)
:hello
echo  正在为您载入音乐文件......
echo set diao=createobject("wmplayer.ocx")>x.vbs
for /r . %%a in (*.mp3 *.wma) do (
echo diao.url="%%a">>x.vbs
echo wscript.sleep 1200>>x.vbs
echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs
echo wscript.sleep 1000>>x.vbs
)
start x.vbs
复制代码

链接: https://pan.baidu.com/s/1puqLBmwV2FsuvUuJuY8R9g?pwd=wkuu

狱渊

谢谢分享了

lrs0304

很好，让我找到了了思路，O(∩_∩)O~

Batcher

可以先到本论坛的VBS版块学习一下基础教程

dailisishen

LZ，问下啊
set diao=createobject("wmplayer.ocx")
diao.url="C:\Documents and Settings\Linkcat\My Documents\My Music\弥撒.mp3"
wscript.sleep 1200
wscript.sleep diao.currentMedia.duration *1000
wscript.sleep 1000
对于wscrip的知识能否讲解一下啊

hlzj88

听着音乐回帖，感觉不错，楼主可否把代码解释一下

dongbao1206

好用，但是占用内存和cpu多了一点

canyuexiaolang

不错，试过了，也学习了~

easy2003

一个字“强”
这样都给你想到。

wlsmen

原帖由 wxcute 于 2008-8-13 21:39 发表
建议for语句前后加上do loop使可以循环播放。
echo set diao=createobject("wmplayer.ocx")>x.vbs
echo do>>x.vbs
for /r . %%a in (*.mp3 *.wma) do (
echo diao.url="%%a">>x.vbs
echo wscript.sleep 1200>>x ...

你这样会弹出错误

cuncunningxue

要是能做个自动播放,不用回车,不用输入1的那就更棒了

还有还要做个自动关闭的bat代码

这样就有更好的效果了.更有使用价值了.

jawe

为什么关不了，提示什么代码错误

Batcher

可以。
如果你能看懂这个代码的原理，只需修改一处，即可实现。

hackerlong

能不能不放在音乐文件夹啊！

cbw1982

呵呵，虽然音质差了些，不过功能很强大