[Помогите!] Заполнить поле (WebBrowser)

[RamDigga]

Как заполнить нужное поле, если их 2 одинаковых ?

<input name="pass" type="password" size="23" maxlength="35" class="ps">
<input name="pass" type="password" size="25" maxlength="20"> (это нужно заполнить)

[NebesaBag]

В скрипте к параметру forms приписать [1], что будет означать "второй".
.. .forms[1]. ..

[Fix.ME]

Цитата: Как заполнить нужное поле, если их 2 одинаковых ?

Сначала перебираем возможные варианты, узнаем номер нужной формы (его мы увидим в последнем окошке):

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. Прошу прощения за такую реализацию