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(/^[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