如何用vbs隐藏调用其他非cmd/bat的文件，如*.mp3文件，使之隐藏播放音乐？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]如何用vbs隐藏调用其他非cmd/bat的文件。
查看 706 回复 2
楼 主
[求助]如何用vbs隐藏调用其他非cmd/bat的文件。
发表于 2009-05-08 01:13 · 中国 甘肃 兰州 电信
第 2 楼
VBS 音乐播放器
发表于 2009-05-08 05:08 · 中国 广东 广州 番禺区 电信
不停重复播放：
可以设置播放次数：
可以自动播放当前目录及其子目录上的所有三类歌曲：
[ Last edited by newxso on 2009-5-9 at 06:55 ]
Set Wmp = CreateObject("WMPlayer.ocx")
do
Wmp.Url = "d:\张韶含-隐形的翅膀.mp3"
Wsh.Sleep 500
do Until Wmp.PlayState = 1
Wsh.Sleep 500
loop
loop
可以设置播放次数：
num = 2 '设置播放次数
set wmp = createobject("wmplayer.ocx")
for i = 1 to num
wmp.url = "d:\谢安琪 - 喜帖街.mp3"
wsh.sleep 500
do until wmp.playstate = 1
wsh.sleep 500
loop
next
可以自动播放当前目录及其子目录上的所有三类歌曲：
Wscript.Timeout = 60*30 '设置自动退出的时间(秒)
Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("%comspec% /c dir /b/s/a *.mp3 *.wma *.wav")
strText=Split(objExecObject.StdOut.ReadAll(),vbCrLf)
For Each strLine In strText
Play(strLine)
Next
Sub Play(Song)
Set Wmp = CreateObject("WMPlayer.ocx")
Wmp.Url = Song
Wsh.Sleep 500
do Until Wmp.PlayState = 1
Wsh.Sleep 500
loop
Set Wmp = Nothing
End Sub
[ Last edited by newxso on 2009-5-9 at 06:55 ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| slx8528 | +2 | 2009-05-08 05:36 |
第 3 楼
发表于 2009-05-08 05:36 · 中国 甘肃 兰州 电信
相当不错，你能帮喔大概解释一下吗？谢谢！
论坛跳转: