program YahooMail_WebPageTester;

const
  cLogFile = 'c:\temp\log.txt';
  cDateTimeFormat = 'mm/dd/yy hh:mm:ss';
                
procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://mail.yahoo.com/?.intl=us' then
    begin
      Fill('login', GetParam('yahoo_l'));
      Fill('passwd', GetParam('yahoo_p'));
      ClickButton('.save');
    end;
  if IsPartOf('http://us.f413.mail.yahoo.com/ym/login?', URL) then
    begin
      WriteToLog(cLogFile, cDateTimeFormat, 'Yahoo Mail Main Screen');
      ClickHyperLink('Inbox');
    end;
  if IsPartOf('http://us.f413.mail.yahoo.com/ym/ShowFolder?rb=Inbox', URL) then
    begin
      WriteToLog(cLogFile, cDateTimeFormat, 'Yahoo Mail Inbox');
      ClickHyperLink('Sign Out');
    end;
  if IsPartOf('http://login.yahoo.com/config/login?logout', URL) then
    begin
      WriteToLog(cLogFile, cDateTimeFormat, 'Yahoo Mail Logged Out');
    end;
end;

begin
  DeleteFile(cLogFile);
  WriteToLog(cLogFile, cDateTimeFormat, 'Start Script Execution');
  Navigate('http://mail.yahoo.com/?.intl=us');
end.