Нажать на кнопку в webbrowser

[zver777]

Есть страница.
С помощью этой функции заполняю поля логина и пароля

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := False;
    //no form on document  
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
    //count forms on document  
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //when the fieldname is found, try to fill out  
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
end;

А как эмулировать нажатие кнопки "зайти"?
Код страницы

<INPUT type="hidden" name="cmd" value="login"><TR>
<TD></TD>
<TD><INPUT type="submit" class="form-button" value="OK"></TD>

[beemoto]

думаю легче былоб заполнять поля посредством ПОСТ запроса =)

[zver777]

А не скажете как в webbrowser сделать пост запрос?
В нём так вроде нельзя.

[h4muk]

var DocS   : IHTMLElementCollection;
    Element: IHTMLElement;
begin
DocS:=(WebBrowser.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection; //находим все элементы input
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;//кнопка ОК здесь последняя
  Element.click;//кликаем на нее

[elli]

h4muk ) Спасибо, помог!!!