JS脚本使用RAR制作安装包

本文针对使用RAR自解压程序制作安装包：（只需将下面的代码保存成.js结尾的js脚本就可以使用了）

//<script language="JavaScript">

//创建ws对象 可以取得当前脚本所在路径，执行命令、程序等

var ws = new ActiveXObject("wscript.shell");

//创建fso对象 可以遍历目录、读写文件、复制移动文件等

var fso = new ActiveXObject("Scripting.FileSystemObject");

//创建seo对象 可以执行shellexecute函数

var seo = new ActiveXObject("Shell.Application");

//开始遍历脚本所在目录下的目录，每个目录代表一个安装包目录，这里遍历子目录可以批量生成安装包

var arrFolders = searchFolders(ws.currentdirectory);

for(x in arrFolders)

{

    try{

    //解析目录，判断目录是不是安装包目录

    var strSetupName = parseFolder(arrFolders[x]);

    if (strSetupName.length > 0) {

        //如果该目录是安装包目录，就生成该目录的安装包,并将生成好的安装包strSetupName拷贝到ws.currentdirectory目录下

        buildSetup(arrFolders[x], strSetupName, ws.currentdirectory);

    }

    } catch(err) {

        ;

    }

}

arrFolders=null;

seo = null;

fso = null;

ws = null;

////////////////////////////////////////////////////////////////////////

function alert(message){

    try{
ws.Popup(message);
} catch(err) {

        ;

    }

}

////////////////////////////////////////////////////////////////////////

//遍历目录

function searchFolders(path){

    var arr = new Array();

    try{

    var fsoFolder = fso.GetFolder(path);

    var fsoFolderEnumerator = new Enumerator(fsoFolder.subfolders);

    for (; !fsoFolderEnumerator.atEnd(); fsoFolderEnumerator.moveNext())

    {

    arr.push(fsoFolderEnumerator.item());

    }

    fsoFolderEnumerator = null;

    fsoFolder = null;

    } catch(err) {

        ;

    }

    return arr;

}

//解析目录是不是安装包目录，并返回将要生成的安装包的名称，如果path不是有效的安装包目录，返回空字符串

//这里可以自己根据自己的安装程序特定自己特殊处理

function parseFolder(path){
var strFile, txtFile, strText;
strFile = path + "\\QlSetup.ini";
//alert(strFile);
try{
txtFile = fso.OpenTextFile(strFile, 1);
strText = txtFile.ReadAll();
txtFile.Close();
} catch(err) {

        ;

    }
//alert(strText);
var chFirst, chNext, ch;
chFirst = strText.indexOf("QSID=");
if (chFirst >= 0) {
   chFirst += 5;
   //过滤掉空格之类
   for(ch = strText.charAt(chFirst); ch<'0' || ch>'9'; chFirst++, ch = strText.charAt(chFirst));
   if (chFirst < strText.length) {
       //找到QSID结尾
       for(chNext = chFirst + 1, ch = strText.charAt(chNext); ch>='0' && ch<='9'; chNext++,ch = strText.charAt(chNext));
       var strSetup;
       strSetup = strText.substring(chFirst,chNext);
       return strSetup;
   }
}
return "";

}

//生成path安装包目录的安装包，安装包名字是setup，然后将安装包放到目标目录destination下，如果不指定destination，就直接放在path下

function buildSetup(path, setup, destination){

    var strIcon, strSetup, strDestination;

    var strcmd;

    strIcon = path + "\\qlsetup.ico";

    //alert(strIcon);

    strSetup = path + "\\" + setup + ".exe";

    //alert(strSetup);

    if (destination.length>0) {

        strDestination = destination + "\\" + setup + ".exe";

        //alert(strDestination);

    }

    try{

    fso.DeleteFile(strSetup, true);

    } catch(err) {

        ;

    }

    

    //strcmd = 'a -mc -r -sfx -z..\\setup_c.txt -iicon"' + strIcon + '" ' + strSetup + '"';

    strcmd = 'a -mc -r -sfx -iicon.\\qlsetup.ico -z..\\setup_c.txt ' + setup + '.exe';

    //alert('rar ' + strcmd + ' ' + path);

    try{

    //seo.ShellExecute("winrar", strcmd, path, "", 1);

    var runcmd = 'cmd /K CD "' + path + '"&&' + 'winrar ' + strcmd + '&&EXIT';

    //alert(runcmd);

    ws.Run(runcmd, 1, true);

    if (strDestination.length>0) {

        fso.MoveFile(strSetup, strDestination);

    }

    } catch(err) {

        ;

    }

}

//</script>