//Written in 2007 by NoAngel777
//Init
var oShell=new ActiveXObject("WScript.Shell");
var fso=new ActiveXObject("Scripting.FileSystemObject");
for(;;)
{
//Backup download list
fso.CopyFile("dlist.txt","dlist.bak");
//Get link
oShell.Run("get2sh.js",1,true);
if(!fso.FileExists("link.txt"))
WScript.Quit();
var fi=fso.OpenTextFile("link.txt",1);
var dcmd=fi.ReadLine();
fi.Close();
//Download file
var Ret=oShell.Run(dcmd,1,true);
if(Ret!=0)
{
fso.DeleteFile("dlist.txt");
fso.MoveFile("dlist.bak","dlist.txt");
}
else
fso.DeleteFile("dlist.bak");
fso.DeleteFile("link.txt");
} |
