Показать сообщение отдельно
  #1  
Старый 25.11.2017, 08:04
sergeinovilozf sergeinovilozf вне форума
Прохожий
 
Регистрация: 25.11.2017
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как на Delphi нажать кнопку в гугл "Войти"?

Здравствуйте.

Буквально вчера начал знакомство с делфи.Создал форму,добавил кнопку button1.Никак не удаётся реализовать клик в мазиле.
Нужно ли браузер на форму добавить?Подскажите полный код.

Код:
for I := 0 to WebBrowser1.OleObject.Document.all.tags('input').length - 1 do
   begin
     
   try
   if (WebBrowser1.OleObject.Document.all.tags('input').item(i).value='Войти') then
   WebBrowser1.OleObject.Document.all.tags('input').item(i).click;
   except
   end;
//-----------------------------------
var
  a:variant;
begin
  a:=webbrowser1.oleobject.document.getelementbyid('gb_70');
  a.click;
end;
//----------------------------------
можно по классу  gb_Vf gb_Ha gb_Eb
//----------------------------------
Админ: Пользуемся тегами при оформлении кода!

Код вставляю в кнопку,выдаёт ошибку.
Ответить с цитированием