Delphi + AdWords

[Agarthi]

Кто-нибудь знает, как в GoogleAdwords программно нажать на кнопку "поиск" в инструменте подсказки ключевых слов через TWebBrowser?
Браузеру передается обфусцированный код и я нифига не разобралась

[beegl]

будет необходимый TWebBrowser

function AcceptForm(WebBrowser: TWebBrowser): Boolean;
var
  iForms, iItems: Integer;
  FormItem: OleVariant;
begin
  Result := False;
  try
    for iForms := 0 to WebBrowser.OleObject.Document.forms.Length -1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(iForms);
      for iItems := 0 to FormItem.Length -1 do
      begin
        if (FormItem.Item(iItems).Type = 'submit') then
        begin
          FormItem.Item(iItems).Click();
          Result := True;
          Exit;
        end;
      end;
    end;
  except
    Exit;
  end;
end;

[Agarthi]

к сожалению не работает
скопировала вашу функцию, вызываю ее так

procedure TSDIAppForm.Button5Click(Sender: TObject);
begin
 AcceptForm(WebBrowser1);
end;

может я что-то неправильно делаю?


можно закрывать тему, придумала другой способ