这个
脚本是应
论坛里的寂雪MM要求写的
, _1 u$ r# ]0 H$ i& }
她的要求是这样的:
2 P& n: O$ e5 r' H2 A B; r* T
播放歌曲,每首播完后停顿一段时间后再继续下一首
2 o, q/ W7 w- F8 S, D; K
% b9 Q# z* x& ?5 O5 c) e$ S我想了一下,不知道哪个播放器可以实现,如果大家知道请告诉我告诉她~~~~
8 E3 F4 C+ j8 z7 W" w2 i& v! {( X4 e; _0 |& h9 d5 u% { { e( Y1 B
但感觉似乎可以通过脚本来实现,于是试写了一下,原以为把以前写的那个定时执行程序的脚本改一下就行了,没想到写起来才发现,并不是那么简单,写了两个小时才初步满意下来
+ D; B% D: O$ `% M
0 I, x% ?' }4 Y: L: b2 t; B q" c" x过程:
' j6 d3 l# |, J* I& u9 o1.获取三个变量 :间隔时间 播放程序 音乐
文件所在的目录
5 O F, {& ]6 R* e
* X( h0 C, Y" r2 c' y1 V2.获取目录中的文件集合后,轮流调用播放程序来播放
/ Z g m9 I U# k! g8 E
4 x: W& I( q7 p* p- `% u% r5 k详细说明见代码, 稍稍改动,可以实现其他功能,希望对脚本初学者有所帮助
: d# C E4 |& f3 b, L8 W
4 c) P! F6 V$ P0 @, I
4 X8 ^) Z* z, {) q; F O' I还存在的问题:
. o1 z ]" G* r! u: i* n3 }1.播放程序的地址不能有空格~~~~所以program files目录下的
软件是不行的,这个我一时想不到怎么解决,请高手帮忙
$ p, ~" {$ A3 L
2.播放程序必须设置成播放完毕后自动退出
}0 |3 B) X( p' @3.半中途想结束,只能通过任务管理器来结束,感觉不太人性化
复制内容到剪贴板
代码:
Dim F, G, T
'提示用户输入播放间隔时间
T = InputBox("本程序将顺序播放目录中的音乐文件"&Chr(10)&Chr(10)&"请输入每首音乐播放后的停顿秒数,如5,默认为十秒","输入时间间隔")
'如果输入为空,则默认为十秒
If T = "" Then
T = 10
End If
'提示用户输入音乐播放程序的绝对地址
F = InputBox("本程序将顺序播放目录中的音乐文件,每首音乐间相隔"&T&"秒钟"&Chr(10)&Chr(10)&"请输入音乐播放程序的绝对地址,如 D:\music\ttplayer.exe ","输入播放程序地址")
'如果输入为空则退出
If F = "" Then
Wscript.Quit
End If
'提示用户输入音乐所在目录
G = InputBox("本程序将顺序播放目录中的音乐文件,每首音乐间相隔"&T&"秒钟"&Chr(10)&Chr(10)&"请输入音乐所在的目录,如 D:\music\ ","输入音乐所在目录")
'如果输入为空则退出
If G = "" Then
Wscript.Quit
End If
'检查输入的目录字符串是否在最后有"\",如果没有则加上
If InStrRev(G,"\")<LEN(G) Then
G = G & "\"
End If
Set oFSO = CreateObject("Scripting.FileSystemObject") '创建一个文件系统对象
'检查输入的播放程序是否存在
If Not (oFSO.FileExists(F)) Then
MsgBox "输入的播放程序"&F&"不存在,程序终止",16,"错误"
Wscript.Quit
End If
'检查输入的目录是否存在
If Not (oFSO.FolderExists(G)) Then
MsgBox "输入的目录"&G&"不存在,程序终止",16,"错误"
Wscript.Quit
End If
Dim musicfolder, musicfiles, musicfile
Set musicfolder = oFSO.GetFolder(G)
Set musicfiles = musicfolder.Files
Set wshshell = CreateObject("Wscript.shell")
For Each musicfile in musicfiles
wshshell.Run F&" "&musicfile,4,true '调用播放程序播放音乐文件
WScript.sleep (T*1000)
Next
