program DiscoverCard_Latest_Statement;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'https://www.novusnet.com/cardmembersvcs/loginlogout/app/ac_main' then
    begin
      Fill('userID', GetParam('dcard_l'));
      Fill('password', GetParam('dcard_p'));
      ClickImageButton('Log In');
    end;
  if IsPartOf('https://www.novusnet.com/cardmembersvcs/achome/homepage', URL) then
    begin
      ClickHyperLink('Statements');
    end;
  if IsPartOf('https://www.novusnet.com/cardmembersvcs/statements/app/stmt', URL) then
    begin
      PrintWebPage('print', 'dontpromptuser');
      NewbieScriptEnd;
    end;
end;

begin
  Navigate('https://www.novusnet.com/cardmembersvcs/loginlogout/app/ac_main');
end.