// This script logs into a user's 
// CapitalOne credit card account
// define cap_l and cap_p in the Parameters Screen
program CapitalOne;

var
  bLogon : boolean;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://www.capitalone.com/indexa.php' then
    ExecuteWebScript('goToLogin()', 'javascript');
  if not(bLogon) and (URL = 'https://service.capitalone.com/oas/login.do?objectclicked=LoginSplash') then
     begin
       Fill('userId', GetParam('cap_l'));
       Fill('password', GetParam('cap_p'));
       ClickButton('LoginButton');
       bLogon := True;
     end;
end;

begin
  bLogon := False
  Navigate('http://www.capitalone.com/indexa.php')
end.