[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 最简单的纯vbs音乐播放器

以前一直想要这样的代码,终于被我找到了相关控件和实现方法

调用WMPlayer.ocx,而不是后台运行其他程序,可以算作“纯vbs”吧。

而且电脑上一般都有这个控件。论坛有另一个程序,要用到MCI.mmcontrol这个控件,很多电脑上都没有。
  1. set wmp = CreateObject("WMPlayer.ocx")
  2. wmp.url = "C:\Documents and Settings\Administrator\桌面\琵琶语.wma"
  3. 'wmp.play '可以省略,照样能播放
  4. do until wmp.playState = 1 '这个循环等待播放结束
  5. wsh.sleep 100
  6. loop
复制代码
只能播放Window Media Player支持的音频。
可以播放在线音频。

如果你想加一个文件选择对话框:
  1. Set objDialog = CreateObject("UserAccounts.CommonDialog")
  2. objDialog.Filter = "Windows Media 音频(*.wma;*.wav)|*.wma;*.wav|MP3(*.mp3)|*.mp3|All Files(*.*)|*.*"
  3. objDialog.InitialDir = "C:\"
  4. intResult = objDialog.ShowOpen
  5. If intResult = 0 Then
  6.         'wscript.quit
  7.         song = "C:\Documents and Settings\Administrator\桌面\琵琶语.wma"
  8. Else
  9.         song = objDialog.FileName
  10. End If
复制代码
参考:
Scripto 博士的娱乐空间(Dr. Scripto's Fun Zone)
http://www.microsoft.com/technet/scriptcenter/funzone/player.mspx
1

评分人数

    • Batcher: 感谢分享PB + 10 技术 + 1
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

为什打开的那个 不 行 啊·
什么 都没有!!!

TOP

回复 2楼 的帖子

XP还是Win7?是不是精简版或者Ghost版的?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

好铁!鼎企

TOP

都能播放什么格式?

TOP

果然是高手!!!佩服!

TOP

可惜我用不了啊

TOP

返回列表