Board logo

标题: 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(/^:\\.+$/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