Board logo

标题: [其他] 背景音乐播放程序批处理版（测试版） [打印本页]
作者: smilediao    时间: 2007-11-6 21:30     标题: 背景音乐播放程序批处理版（测试版）

把该bat文件放到您的音乐文件夹里运行即可,想要停止音乐播放，只要再次运行本程序，选择停止即可。
建议大家下载附件运行，不会有错误出现，亲测过！
  1. ::欢迎光临我的博客http://hi.baidu.com/smilediao

  2. @echo off&color 0a&title 背景音乐播放程序

  3. mode con cols=40 lines=20

  4. echo       ************************

  5. echo            背景音乐播放程序   

  6. echo       ************************

  7. echo                     作者smilediao

  8. pause

  9. echo    1。播放音乐   2。停止音乐

  10. set /p smilediao=请选择您的任务:

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

  12. :hello

  13. echo  正在为您载入音乐文件......

  14. echo set diao=createobject("wmplayer.ocx")>x.vbs

  15. for /r . %%a in (*.mp3 *.wma) do (

  16. echo diao.url="%%a">>x.vbs

  17. echo wscript.sleep 1200>>x.vbs

  18. echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs

  19. echo wscript.sleep 1000>>x.vbs

  20. )

  21. start x.vbs
复制代码
链接: https://pan.baidu.com/s/1puqLBmwV2FsuvUuJuY8R9g?pwd=wkuu
作者: somebody    时间: 2007-11-7 22:29

控件 wmplayer.ocx 还能这样用....
diao.url
diao.currentMedia.duration ..
确实不知道，不知道楼主从哪里知道这些的..
作者: smilediao    时间: 2007-11-7 22:43     标题: 回复 2# 的帖子

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

好东西，厉害啊  。学习了
作者: gfwlxx    时间: 2008-4-16 01:01

什么叫厉害我今天算是领教了
作者: wxcute    时间: 2008-8-13 21:39

建议for语句前后加上do loop使可以循环播放。
  1. echo set diao=createobject("wmplayer.ocx")>x.vbs

  2. echo do>>x.vbs

  3. for /r . %%a in (*.mp3 *.wma) do (

  4. echo diao.url="%%a">>x.vbs

  5. echo wscript.sleep 1200>>x.vbs

  6. echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs

  7. echo wscript.sleep 1000>>x.vbs

  8. )

  9. echo loop>>x.vbs

  10. attrib +s +h x.vbs

  11. start x.vbs
复制代码

加上个隐藏文件好看些

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

嘻嘻。
作者: 66011230    时间: 2008-8-14 08:34

能有说明的话，那就更好了
作者: 523066680    时间: 2008-8-14 09:50

楼主 我一直很崇拜你……但是我很郁闷
为什么是set diao……
（该不会是……方言中的diao吧）
作者: cbw1982    时间: 2009-1-31 23:23

呵呵，虽然音质差了些，不过功能很强大
作者: hackerlong    时间: 2009-5-28 08:38

能不能不放在音乐文件夹啊！
作者: Batcher    时间: 2009-5-28 10:37     标题: 回复 12楼 的帖子

可以。
如果你能看懂这个代码的原理，只需修改一处，即可实现。
作者: jawe    时间: 2009-6-14 14:51

为什么关不了，提示什么代码错误
作者: cuncunningxue    时间: 2009-7-5 11:00

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

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

这样就有更好的效果了.更有使用价值了.
作者: wlsmen    时间: 2009-7-7 12:43

原帖由 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    时间: 2009-8-17 01:06

一个字“强”
这样都给你想到。
作者: canyuexiaolang    时间: 2009-8-25 10:45

不错，试过了，也学习了~
作者: dongbao1206    时间: 2009-9-26 08:24

好用，但是占用内存和cpu多了一点
作者: hlzj88    时间: 2009-9-26 12:41

听着音乐回帖，感觉不错，楼主可否把代码解释一下
作者: dailisishen    时间: 2009-9-26 17:59

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的知识能否讲解一下啊
作者: Batcher    时间: 2009-9-26 20:08     标题: 回复 19楼 的帖子

可以先到本论坛的VBS版块学习一下基础教程
作者: lrs0304    时间: 2012-12-31 16:10

很好，让我找到了了思路，O(∩_∩)O~
作者: 狱渊    时间: 2013-4-29 16:37

谢谢分享了



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2