Fórum cadastro online #424230

<input type="email" name="login" id="i0116" maxlength="113"> login

<input name="passwd" type="password" id="i0118" autocomplete="off"> senha

procedure TForm1.BitBtn5Click(Sender: TObject);
var
URL: OleVariant;
FormItem: Variant;
Field: Variant;
FieldName: String;
I,J: Integer;
inputelement:HTMLInputButtonElement;
begin
WebBrowser1.Navigate('https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1348755720&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1046&id=64855&mkt=pt-br&cbcxt=mai&snsc=1');
while WebBrowser1.Busy do begin
Application.ProcessMessages;
end;
 if WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
    Exit;
  for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
   begin
   FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
   try
    for j := 0 to FormItem.Length - 1 do
  begin
  //Identifica o campo e seu nome no formulário
   Field := FormItem.Item(j);
   FieldName := Field.Name;
 if FieldName = 'logind' then // nome do input para o campo login no caso Login
 Field.Value := senha_padrao;
 
 if FieldName = 'password' then // nome do input para o campo pasword no caso Login
 Field.Value := senha_padrao;

    if fieldname='Entrar' then begin
      Field.click;
      Field .click;
except
ShowMessage('Não foi possível identificar os campos para atribuir os valores de usuário e senha');
end;
end;
end;