DLPro - Scriptable Download Program

Usage Example

The sample scripts below helped to download 146 files from 73 Web pages.

var dt=DL.DateTime;
dt.Init(2004,7,8,0,0,0);
var saveDir="D:\\TMN\\Part 2\\";

function GetWebPageURL()
    {
var url="http://....../scripts/"; //Sorry, the domain of the site has been removed.
url+=dt.Year.toString();
url+="/";
if(dt.Month<10)
    url+="0";
url+=dt.Month.toString();
url+="/";
if(dt.Day<10)
    url+="0";
url+=dt.Day.toString();
url+="/0045/";
return(url);
    }

function GetSaveAsFileName()
    {
var fn=dt.Year.toString();
if(dt.Month<10)
    fn+="0";
fn+=dt.Month.toString();
if(dt.Day<10)
    fn+="0";
fn+=dt.Day.toString();
return(fn);
    }

// Program starts here
while(dt.Year*10000+dt.Month*100+dt.Day<=20051203)
    {
    var htmURL=GetWebPageURL();
    DL.Print(htmURL);
    DL.Print("...");
    var doc=DL.OpenURL(htmURL); // the doc is the same as "document" in Internet Explorer
    if(doc==null)
        {
        DL.Print("document NULL\n");
        continue;
        }
    // Find the MP3 link 
    var as=doc.all.tags("a");
    var mp3URL="";
    for(var i=0; i<as.length; i++)
        {
        var href=as[i].href;
        href=href.toLowerCase();
        if(href.indexOf("http")==0 && href.lastIndexOf(".mp3")==(href.length-4))
            {
            mp3URL=href;
            break;
            }
        }
    var fn=GetSaveAsFileName();

    var html=saveDir+fn+".htm";
    var mp3=saveDir+fn+".mp3";

    if(DL.Download(htmURL, html))
        DL.Print("+html, ");
    else
        DL.Print("-html, ");

    if(DL.Download(mp3URL, mp3))
        DL.Print("+mp3, ");
    else
        DL.Print("-mp3, ");

    DL.Print("\n");

    dt.Add(7, 0, 0, 0); // Next week 
	}