program Download_PNG_Script;
// This sample script parses a web page to get the
// url of a PNG image. Parsing is useful specifically 
// when the url of the image file dynamically changes 

var
  sHtml, sUrl : string;  

procedure OnDocumentComplete(URL : string);
begin         
  if IsPartOf('http://www.newbielabs.com/commonsites.html', URL) then
    begin
      // Use line below to get exact raw html code returned by browser            
      // WriteToLog('c:\zzz.txt' , '', GetHTMLBody);
      sHtml := GetHTMLBody;  
      sUrl := ExtractSubStr(sHtml, '<IMG height=523 src="', '"');
      sUrl := 'http://www.newbielabs.com/' + sUrl;
      // downloads the png file to a local path
      GetURLFile('c:\temp\sample.png', sUrl);
    end;   
end;
                         
begin
   Navigate('http://www.newbielabs.com/commonsites.html');         
end.