Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: 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 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.058 c
15-1347463185
brother
2012-09-12 19:19
2013.03.22
Парнишка снял видеоклип при помощи Excel


1-1295947554
>|
2011-01-25 12:25
2013.03.22
Помогите с языковой конструкцией


3-1277797743
Axe
2010-06-29 11:49
2013.03.22
ошибка поключения Ms Sql


2-1346498845
FIL-23
2012-09-01 15:27
2013.03.22
Открытие формы из другой


2-1328968204
Magedon
2012-02-11 17:50
2013.03.22
Broadcast() не работает ((. Что я делаю не так?