Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как щелкнуть по кнопку на сайте? [D7, XP]

Артём © (2012-09-06 16:10:00)
Привет всем! Народ помогите разобраться, как конкретно можно программно из дельфи щелкнуть по кнопке на сайте? перепробовал все способы никак не получается? Что не так делаю то?

var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length-1) do
if (ovElements.item(i).tagName = 'reg_form_wrap') and
(ovElements.item(i).type = 'button') and
(ovElements.item(i).Value = 'Далее') then
ovElements.item(i).Click;
end;

stas (2012-09-07 23:02:00) [1]
Артём (06.09.12 16:10)
Там наверное еще фрейм есть.

AV (2012-09-07 13:46:00) [2]

> forms.item(0).

А искомая форма точно первая?

Дмитрий С (2012-09-07 13:42:00) [3]

> if (ovElements.item(i).tagName = 'reg_form_wrap') and
> (ovElements.item(i).type = 'button') and
> (ovElements.item(i).Value = 'Далее') then
> ovElements.item(i).Click;

То с большой буквы то с маленький. IDispach вызовы вроде как надо с пустыми скобками делать.

знайка (2012-09-07 00:41:00) [4]
Так а что вы хотите от клика, у кнопки его нет.

Артём (2012-09-06 23:41:00) [5]
не помогло.... все равно кнопка ненажимается на странице

AV (2012-09-06 16:44:00) [6]

> (ovElements.item(i).tagName = 'reg_form_wrap')

это убрать?

Артём (2012-09-06 16:27:00) [7]
<div class="reg_form_wrap">
<form id="regForm" action="" method="post">
<div id="step1" class="activeStep">
<p class="title">
<table border="0" cellspacing="5" cellpadding="0" width="100%">
<tbody>
<tr>
<tr>
<tr>
<tr>
<td colspan="2" class="center">
<input type="button" class="btnNext" value="Далее"/>
</td>
</tr>

Артём (2012-09-06 16:26:00) [8]
<div class="reg_form_wrap">
<form id="regForm" action="" method="post">
<div id="step1" class="activeStep">
<p class="title">
<table border="0" cellspacing="5" cellpadding="0" width="100%">
<tbody>
<tr>
<td class="label_wrap">
<label id="email_text" for="email">
</td>
<td class="field_wrap">
<input type="text" id="email" name="email_reg" class="jsValid" value="" onkeypress="return validate(event, this)" onblur="return validate(event, this)" onkeyup="return validate(event, this)" maxlength="32"/>
</td>
</tr>

AV (2012-09-06 16:25:00) [9]
html страницы ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »