Тема: Автоматизирование действий, TWebBrowser
Показать сообщение отдельно
  #2  
Старый 01.11.2022, 16:15
Shaft Shaft вне форума
Новичок
  
Регистрация: 15.05.2013
Сообщения: 74
Версия Delphi: 7/10.4
Репутация: 12
По умолчанию
Код:
WebBrowser1.OleObject.Document.GetElementByID('input_value').value:=memo1.lines[i];
WebBrowser1.OleObject.Document.GetElementByID('btn_find').click();
repeat
  Application.ProcessMessages;
until not WebBrowser1.Busy;
WebBrowser1.OleObject.Document.GetElementByID('chbox1').click();
Ответить с цитированием