Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

// 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.
милт вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсить страницу. 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 22:13
как парсить ссылку на время bulldog5293 Общие вопросы Delphi 3 12.08.2010 21:46


10:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru