Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2013, 20:03   #11
милт
Форумчанин
 
Регистрация: 19.03.2012
Сообщений: 108
По умолчанию

Например для того чтобы нажать кнопку "сказать" и выдать сообщение вот тут

// html код
<div class="header"><h1>Переписка с Mr_BLANK</h1></div>
<div class="block thin_separator">
<form action="/user_message/prepare_smiles" method="post"> //название метода method="post"
<input id="id" name="id" type="hidden" value="1271804" />
<input id="category" name="category" type="hidden" value="all" />
<textarea id="message" name="message"></textarea> //название строки name="message"
<input class="button_medium" name="say" type="submit" value="Сказать" /> //кнопка value="Сказать"
// html код

Надо написать такой код

var i,i2:integer; tt:variant;

for i:=0 to (WebBrowser1.OleObject.document.for ms.item(0).elements.length-1) do
if WebBrowser1.OleObject.document.form s.item(i).elements.method='post' then //тут надо указать название метода
begin
tt:=WebBrowser1.OleObject.document. forms.item(i).elements;
break; end;
for i2:=0 to (tt.length-1) do begin
if (tt.item(i2).name='message') then //тут надо написать название строки в которую будем вводить текст
tt.item(i2).value:='привет'; //тут сам текст
if (tt.item(i2).value='Сказать') then tt.item(i2).click; // а тут value кнопки которую надо нажать чтобы выслать сообщение.

Так же можно логины и пароли вводить

Последний раз редактировалось милт; 09.08.2013 в 20:11.
милт вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсить страницу. livesport PHP 4 15.12.2012 19:11
Как правильно парсить с TWebBrowser? Проблема с отображением. kojiger Общие вопросы Delphi 0 03.05.2012 07:14
как парсить HTML ? Jakethefish Общие вопросы по Java, Java SE, Kotlin 6 22.10.2011 19:54
Забыл как парсить bulldog5293 Общие вопросы Delphi 1 18.11.2010 21:13
как парсить ссылку на время bulldog5293 Общие вопросы Delphi 3 12.08.2010 21:46