Скачать: CL | DM;

Как щелкнуть по кнопку на сайте?   Найти похожие ветки 

← →
Артём   (2012-09-06 16:10) [0]

Привет всем! Народ помогите разобраться, как конкретно можно программно из дельфи щелкнуть по кнопке на сайте? перепробовал все способы никак не получается? Что не так делаю то?

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;

---

← →
AV ©   (2012-09-06 16:25) [1]

html страницы ?

---

← →
Артём   (2012-09-06 16:26) [2]

<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>

---

← →
Артём   (2012-09-06 16:27) [3]

<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>

---

← →
AV ©   (2012-09-06 16:44) [4]

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

это убрать?

---

← →
Артём   (2012-09-06 23:41) [5]

не помогло.... все равно кнопка ненажимается на странице

---

← →
знайка   (2012-09-07 00:41) [6]

Так а что вы хотите от клика, у кнопки его нет.

---

← →
Дмитрий С ©   (2012-09-07 13:42) [7]

>  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 вызовы вроде как надо с пустыми скобками делать.

---

← →
AV ©   (2012-09-07 13:46) [8]

> forms.item(0).

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

---

← →
stas ©   (2012-09-07 23:02) [9]

Артём   (06.09.12 16:10)
Там наверное еще фрейм есть.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.046 c