Показать сообщение отдельно
  #1  
Старый 12.03.2020, 21:25
Gareth Gareth вне форума
Активный
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 202
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию webbrowser, вставить текст в поле воода

Доброе время суток. На сайте есть возможность обмениваться лиными сообщениями... Там 3 поля, все их нужно программно заполнить текстом.


Это вроде делается как то типа так:
Код:
var
  input_text, textareas: OleVariant;

  input_text := sWebBrowser1.OleObject.document.all.tags('input');
  textareas := sWebBrowser1.OleObject.document.all.tags('text');
  input_text.item(1).value := 'qweqweqwe'; 
Но не знаю что конкретно мне нужно искать, какие таги?
input?
Пробовал по разному, результата нет. Меняя значение в input_text.item(1), удалось написать текст в поле поиска по сайту)) но это не то поле)

прилагаю кусок html, получил его путем пкм по поле ввода, "просмотреть код элемента"
поле Получатели
Код:
 <textarea class="primary full textbox popupctrl" id="pmrecips_ctrl" name="recipients" rows="2" cols="50" tabindex="1" autocomplete="off"></textarea> 
поле Заголовок
Код:
 <input type="text" class="primary full textbox" id="title" name="title" value="" maxlength="85" tabindex="1"> 
поле самого редактора текста
Код:
 <textarea dir="ltr" tabindex="-1" role="textbox" aria-label="Rich text editor, vB_Editor_001_editor, press ALT 0 for help." class="cke_source cke_enable_context_menu" 
style="width: 100%; 
height: 100%; min-width: 100%; max-width: 100%; resize: none; outline: none; text-align: left;"></textarea> 

Пожалуйста, помогите.
Ответить с цитированием