标题: JS音乐播入器
[打印本页]
作者: freeants001
时间: 2009-4-16 09:27
标题: JS音乐播入器
复制保存为playmusic.js,双击运行之~
var VOLUME=100;
var MUSIC_TYPE=/mp3|wav|wma|wmv/i;
if(WScript.arguments.length==0){PlayDir(get_path());WScript.quit();}
PlayDir(WScript.arguments(0));
function PlayDir(fspec){
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fld = fso.GetFolder(fspec);
var fs = new Enumerator(fld.files);
var fd = new Enumerator(fld.SubFolders);
for(;!fs.atEnd();fs.moveNext())
if(MUSIC_TYPE.test(fso.GetExtensionName(fs.item())))
playMusic(fs.item());
for(;!fd.atEnd();fd.moveNext())PlayDir(fd.item());
}
function playMusic(music_path){
var wplayer = WScript.CreateObject("WMPlayer.ocx");
wplayer.url = music_path;
wplayer.settings.Volume=VOLUME;
while(wplayer.playState != 1){WScript.sleep(100);if(wplayer.playState==10)return;}
}
function get_path(){
var objShell = new ActiveXObject("Shell.Application");
do{
var objFolder = objShell.BrowseForFolder(0, "\n\t选择文件夹后台播放音乐:",0x301,0x11)
if(objFolder == null)WScript.quit();
var objPath = objFolder.Self.Path;
if(/^[a-z]:\\.+$/gi.test(objPath))break;
}while(true);return objPath;
}
作者: wangfangjian
时间: 2009-4-16 12:00
好像没法放哦
作者: freeants001
时间: 2009-4-16 20:36
有些精简系统可能没法放~~
作者: jmz573515
时间: 2009-4-16 21:08
我这里可以播放
作者: netbenton
时间: 2009-4-17 00:40
js脚本这么好用呀,看来要好好的学习学习才行
请问lz一个问题,该怎么停止呢?
作者: freeants001
时间: 2009-4-17 00:48
taskkill /t /f /im:WScript.exe
作者: yjq635
时间: 2009-4-17 04:09
WMPlayer.ocx,,oyer