Сначала перебираем возможные варианты, узнаем номер нужной формы (его мы увидим в последнем окошке):
Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
input_text,textareas:OleVariant; i:integer;
begin
input_text:=WebBrowser1.OleObject.document.all.tags('input');
textareas:= WebBrowser1.OleObject.document.all.tags('password');
for i:=0 to input_text.length-1 do
if input_text.item(i).type='password' then
ShowMessage(inttostr(i));
end;
После того как узнали нужный номер изменяем код на:
Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
input_text,textareas:OleVariant;
begin
input_text:=WebBrowser1.OleObject.document.all.tags('input');
textareas:= WebBrowser1.OleObject.document.all.tags('password');
input_text.item(полученный номер).value:='нужное значение';
end;
P.S. Прошу прощения за такую реализацию
Последний раз редактировалось Fix.ME; 18.07.2014 в 18:23.