设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 批处理下如何使用wmplayer.exe参数
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 26029|回复: 4

批处理下如何使用wmplayer.exe参数

[复制链接]
lfoqtal
发表于 2011-9-1 09:10:06 | 显示全部楼层 |阅读模式
我想做一个自动播放系统，到时间自动播放音乐，播完后自动关机
我已经做好了AT自动定时，但如何一次播放多首歌曲呢？如何播完后自动关闭软件？
哪位高手知道wmplayer.exe的参数使用方法？

代码如下
  1. @echo off
  2. rem 开启任务计划服务,删除所有任务
  3. (
  4. sc config schedule start= auto
  5. net start schedule
  6. del c:\windows\tasks\at*.job
  7. ) >nul 2>nul

  9. set day15=Monday,Tuesday,Wednesday,Thursday,Friday
  10. set day3=Wednesday
  11. set day6=Saturday
  12. set day1245=Monday,Tuesday,Wednesday,Thursday,Friday
  13. set "铃声路径=E:\学校必备日常用曲\自动升级打铃音乐"
  14. set "到校1=%铃声路径%012让我们荡起双桨.mp3"
  15. set "到校2=%铃声路径%51校园的早晨.mp3"
  16. set "上课=%铃声路径%001上课.mp3"
  17. set "下课=%铃声路径%002下课.mp3"
  18. set "课间提示=%铃声路径%007课间提示.mp3"
  19. set "放学=%铃声路径%005放学.mp3"
  20. set "放学安全提示=%铃声路径%006放学安全提示.mp3"
  21. set "眼保健操=%铃声路径%004眼保健操.mp3
  22. set "run=start wmplayer.exe "

  24. ::周一~周五上午
  25. at 7:40 /every:%day15% %run%%到校1%
  26. at 7:55 /every:%day15% %run%%到校2%
  27. at 8:10 /every:%day15% %run%%上课%
  28. at 8:20 /every:%day15% %run%%下课%
  29. at 8:24 /every:%day15% %run%%课间提示%
  30. at 8:30 /every:%day15% %run%%上课%
  31. at 9:10 /every:%day15% %run%%下课%
  32. at 8:14 /every:%day15% %run%%课间提示%
  33. at 9:20 /every:%day15% %run%%上课%
  34. at 10:00 /every:%day15% %run%%下课%
  35. at 10:30 /every:%day15% %run%%上课%
  36. at 11:10 /every:%day15% %run%%下课%
  37. at 11:12 /every:%day15% %run%%放学安全提示%

  39. ::周一二四五下午
  40. at 14:05 /every:%day15% %run%%到校1%
  41. at 14:10 /every:%day1245% %run%%上课%
  42. at 14:30 /every:%day1245% %run%%下课%
  43. at 14:34 /every:%day1245% %run%%课间提示%
  44. at 14:40 /every:%day1245% %run%%上课%
  45. at 15:20 /every:%day1245% %run%%眼保健操%
  46. at 15:30 /every:%day1245% %run%%课间提示%
  47. at 15:35 /every:%day1245% %run%%上课%
  48. at 16:15 /every:%day1245% %run%%下课%
  49. at 16:20 /every:%day1245% %run%%课间提示%
  50. at 16:25 /every:%day1245% %run%%上课%
  51. at 17:05 /every:%day1245% %run%%下课%
  52. at 17:07 /every:%day1245% %run%%放学安全提示%

  54. ::周三下午
  55. at 14:10 /every:%day3% %run%%上课%
  56. at 14:50 /every:%day3% %run%%下课%
  57. at 14:54 /every:%day3% %run%%课间提示%
  58. at 15:05 /every:%day3% %run%%上课%
  59. at 15:55 /every:%day3% %run%%下课%

  61. ::自动关机
  62. at 17:55 /every:Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday shutdown -f -s -t 300 -c "下班回家啦，别累着了！如果您还想继续工作请使用桌面上的取消关机软件!"
  63. pause
复制代码
回复

举报

pdp320921
发表于 2011-9-1 13:24:45 | 显示全部楼层
一次播放多首，好像只能手动添加吧
自动关闭可以通过 taskkill来结束
回复

举报

fastslz
发表于 2011-9-1 14:29:49 | 显示全部楼层
本帖最后由 fastslz 于 2011-9-1 14:31 编辑
  1. @echo off
  2. if not exist vbPlay.vbs (
  3. >vbPlay.vbs  echo Set Args=WScript.Arguments
  4. >>vbPlay.vbs echo For i=0 to Args.Count-1
  5. >>vbPlay.vbs echo Dim Wmp:Set Wmp=CreateObject^("WMPlayer.OCX"^):Wmp.Settings.Volume="100":Wmp.Url=Args^(i^)
  6. >>vbPlay.vbs echo While Wmp.PlayState=9 or Wmp.PlayState=6 or Wmp.PlayState=3:WScript.Sleep 1000:Wend:Set Wmp=Nothing
  7. >>vbPlay.vbs echo Next
  8. )

  10. rem 开启任务计划服务,删除所有任务
  11. (
  12. sc config schedule start= auto
  13. net start schedule
  14. del c:\windows\tasks\at*.job
  15. ) >nul 2>nul

  17. set day15=Monday,Tuesday,Wednesday,Thursday,Friday
  18. set day3=Wednesday
  19. set day6=Saturday
  20. set day1245=Monday,Tuesday,Wednesday,Thursday,Friday
  21. set "铃声路径=E:\学校必备日常用曲\自动升级打铃音乐"
  22. set "到校1=%铃声路径%012让我们荡起双桨.mp3"
  23. set "到校2=%铃声路径%51校园的早晨.mp3"
  24. set "上课=%铃声路径%001上课.mp3"
  25. set "下课=%铃声路径%002下课.mp3"
  26. set "课间提示=%铃声路径%007课间提示.mp3"
  27. set "放学=%铃声路径%005放学.mp3"
  28. set "放学安全提示=%铃声路径%006放学安全提示.mp3"
  29. set "眼保健操=%铃声路径%004眼保健操.mp3
  30. set "run=%~dp0vbPlay.vbs"

  32. ::周一~周五上午
  33. at 7:40 /every:%day15% "%run%" "%到校1%"
  34. at 7:55 /every:%day15% "%run%" "%到校2%"
  35. at 8:10 /every:%day15% "%run%" "%上课%"
  36. at 8:20 /every:%day15% "%run%" "%下课%"
  37. at 8:24 /every:%day15% "%run%" "%课间提示%"
  38. at 8:30 /every:%day15% "%run%" "%上课%"
  39. at 9:10 /every:%day15% "%run%" "%下课%"
  40. at 8:14 /every:%day15% "%run%" "%课间提示%"
  41. at 9:20 /every:%day15% "%run%" "%上课%"
  42. at 10:00 /every:%day15% "%run%" "%下课%"
  43. at 10:30 /every:%day15% "%run%" "%上课%"
  44. at 11:10 /every:%day15% "%run%" "%下课%"
  45. at 11:12 /every:%day15% "%run%" "%放学安全提示%"

  47. ::周一二四五下午
  48. at 14:05 /every:%day15% "%run%" "%到校1%"
  49. at 14:10 /every:%day1245% "%run%" "%上课%"
  50. at 14:30 /every:%day1245% "%run%" "%下课%"
  51. at 14:34 /every:%day1245% "%run%" "%课间提示%"
  52. at 14:40 /every:%day1245% "%run%" "%上课%"
  53. at 15:20 /every:%day1245% "%run%" "%眼保健操%"
  54. at 15:30 /every:%day1245% "%run%" "%课间提示%"
  55. at 15:35 /every:%day1245% "%run%" "%上课%"
  56. at 16:15 /every:%day1245% "%run%" "%下课%"
  57. at 16:20 /every:%day1245% "%run%" "%课间提示%"
  58. at 16:25 /every:%day1245% "%run%" "%上课%"
  59. at 17:05 /every:%day1245% "%run%" "%下课%"
  60. at 17:07 /every:%day1245% "%run%" "%放学安全提示%"

  62. ::周三下午
  63. at 14:10 /every:%day3% "%run%" "%上课%"
  64. at 14:50 /every:%day3% "%run%" "%下课%'
  65. at 14:54 /every:%day3% "%run%" "%课间提示%"
  66. at 15:05 /every:%day3% "%run%" "%上课%"
  67. at 15:55 /every:%day3% "%run%" "%下课%"

  69. ::自动关机
  70. at 17:55 /every:Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday shutdown -f -s -t 300 -c "下班回家啦，别累着了！如果您还想继续工作请使用桌面上的取消关机软件!"
  71. pause
复制代码
连续播放2个或多个
  1. vbPlay.vbs "C:\花好.mp3" "D:\月圆.mp3"
复制代码

评分

参与人数 1技术 +1 收起 理由
lfoqtal + 1 乐于助人

查看全部评分

回复

举报

lfoqtal
 楼主| 发表于 2011-9-3 09:12:07 | 显示全部楼层
谢谢，VB我一点都不懂呵，看来要好好学一学

再问一个：为什么我开启了服务有的电脑还是无法执行计划，而手动计划会问个用户密码就可以执行，是怎么回事
回复

举报

fastslz
发表于 2011-9-3 09:29:23 | 显示全部楼层
回复 4# lfoqtal

要看运行环境的，账户类型
原因估计是密码账户
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 01:42 , Processed in 0.020140 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表