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

[网络连接] 如何让音乐后台运行别在前台显示!

如何让音乐后台运行别在前台显示!
这段代码不能把播放器隐藏了!大虾门请教!
start /min wmplayer.exe http://www.libnet.sh.cn/music/midi/down/hk^&tw/EMILZH/Lvfollow.mid
本人已死!不用联系!~
要联系下来联系!~~

  1. mshta vbscript:createobject("wscript.shell").run("wmplayer http://www.libnet.sh.cn/music/midi/down/hk&tw/EMILZH/Lvfollow.mid",0)(close)
复制代码

TOP

VBS 版块应该可以找到调用控件播放的。

TOP

  1. Dim Ie
  2. Set Ie=CreateObject("InternetExplorer.Application")
  3. With Ie
  4. .Navigate "about:blank"
  5. .MenuBar=0
  6. .AddressBar=0
  7. .ToolBar=0
  8. .StatusBar=0
  9. .Resizable=0
  10. .Width=158
  11. .Height=0
  12. .Document.Title="播放器2008"
  13. .Document.Body.InnerHTML="<embed src=""http://www.libnet.sh.cn/music/midi/down/hk&tw/EMILZH/Lvfollow.mid"" autostart=""true"" loop=""true"" hidden=""true""></embed>"
  14. WScript.Sleep 1000*60 '隐藏多久
  15. .Visible=1            '删掉这行与上边一行永远隐藏
  16. End With
复制代码

TOP

vbs利用WMPlayer.OCX后台播放

  1. Set Wmp=CreateObject("WMPlayer.OCX")
  2. Wmp.Settings.Volume="100"'音量100
  3. Wmp.Url="http://www.dxxauto.com/new/bbs/UploadImages/nicemoonandflower.mp3"
  4. While Wmp.PlayState=6 or Wmp.PlayState=9 or Wmp.PlayState=3
  5.   Wscript.Sleep 5
  6. Wend
复制代码

TOP

请楼主善用论坛搜索功能!!!
心绪平和,眼藏静谧。

TOP

返回列表