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

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

somebody

控件 wmplayer.ocx 还能这样用....
diao.url
diao.currentMedia.duration ..
确实不知道，不知道楼主从哪里知道这些的..

smilediao

没想到你somebody还会注意到我！荣幸啊！我也是几个月前看到了一个人提到此东东可以在vbs中使用，所以就试一下喽！没想到。。。还真可以！
你知道么？你说话毫无顾忌，想说什么就说什么，好象我的一个同学啊！呵呵。。。
我 好象说了好多的废话！不说了

fml520

好东西，厉害啊  。学习了

gfwlxx

什么叫厉害我今天算是领教了

wxcute

建议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.vbs
echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs
echo wscript.sleep 1000>>x.vbs
)
echo loop>>x.vbs
attrib +s +h x.vbs
start x.vbs
复制代码

加上个隐藏文件好看些

有的人可能会需要判断运行前是否已有wscript.exe进程。

嘻嘻。

66011230

能有说明的话，那就更好了

523066680

楼主 我一直很崇拜你……但是我很郁闷
为什么是set diao……
（该不会是……方言中的diao吧）

cbw1982

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

hackerlong

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

Batcher

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

jawe

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

cuncunningxue

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

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

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

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 ...

你这样会弹出错误

easy2003

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