Fórum Simular clique via TWEBBROWSER - não moventar o mouse !! #382025

  ola tem um jeito

segue um codi talves ajude


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
FormItem: Variant;
Field: Variant;
FieldName: String;
  Fieldid: String;
I,J: Integer;
begin
  //WebBrowser1.OleObject.Document.all.Item('username', 0).value := Edit1.text;

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;
        Fieldid:=Field.id;
        memo1.Lines.Add(FieldName+'|-|');
        memo1.Lines.Add(Fieldid);

          if Fieldid = 'ctl00_ConteudoPagina_Login1_rdBtnContribuinte' then // Radio button  ativa atravez do id
                begin
        Field.click;
                end;

          if FieldName = 'ctl00$ConteudoPagina$Login1$UserName' then // nome do input para o campo CNPJ
                begin
          Field.Value := '(insira aqui o valor do campo)';
                end;

        if FieldName = 'ctl00$ConteudoPagina$Login1$Password' then // nome do input para o campo Inscr.Estadual
                  begin
          Field.Value :='(insira aqui o valor do campo)';
                  end;

        if FieldName = 'ctl00$ConteudoPagina$Login1$Login' then // nome do input para o campo Inscr.Estadual
                  begin
                    Field.Click;
//ele posta o formulario ativando o onclick da tag
                  end;



        end
    except
ShowMessage('Não foi possível identificar os campos para atribuir os valores de CNPJ e IE');
end;
end;