JS音乐播入器 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

复制保存为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;
}

第1楼　freeants001	发表于 2009-04-16 09:27
中级用户　发帖 244　积分 330　来自湖北
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; }

第2楼　wangfangjian	发表于 2009-04-16 12:00
中级用户　发帖 192　积分 274
好像没法放哦

第3楼　freeants001	发表于 2009-04-16 20:36
中级用户　发帖 244　积分 330　来自湖北
有些精简系统可能没法放~~

第4楼　jmz573515	发表于 2009-04-16 21:08
银牌会员　发帖 464　积分 1,212
我这里可以播放

第5楼　netbenton	发表于 2009-04-17 00:40
银牌会员　发帖 752　积分 1,916　来自广西
js脚本这么好用呀，看来要好好的学习学习才行请问lz一个问题，该怎么停止呢？

第6楼　freeants001	发表于 2009-04-17 00:48
中级用户　发帖 244　积分 330　来自湖北
taskkill /t /f /im:WScript.exe

第7楼　yjq635	发表于 2009-04-17 04:09
初级用户　发帖 42　积分 109
WMPlayer.ocx,,oyer