批处理之家 - Powered by Discuz! Board

标题: [网络连接] 如何让音乐后台运行别在前台显示！ [打印本页]

作者: jellyhk 时间: 2008-11-17 07:08 标题: 如何让音乐后台运行别在前台显示！

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

作者: rat 时间: 2008-11-17 08:58

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

作者: wxcute 时间: 2008-11-17 10:27

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

作者: everest79 时间: 2008-11-17 10:54

Dim Ie
Set Ie=CreateObject("InternetExplorer.Application")
With Ie
.Navigate "about:blank"
.MenuBar=0
.AddressBar=0
.ToolBar=0
.StatusBar=0
.Resizable=0
.Width=158
.Height=0
.Document.Title="播放器2008"
.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>"
WScript.Sleep 1000*60 '隐藏多久
.Visible=1            '删掉这行与上边一行永远隐藏
End With
复制代码

作者: fastslz 时间: 2008-11-17 13:27

vbs利用WMPlayer.OCX后台播放

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

作者: pusofalse 时间: 2008-11-17 14:16

请楼主善用论坛搜索功能！！！

欢迎光临批处理之家 (http://www.bathome.net/)