Главная страница
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.051 c
15-1341774208
Invoker
2012-07-08 23:03
2013.03.22
Отобразить все поля структуры.


15-1329421469
TUser
2012-02-16 23:44
2013.03.22
Спокойной ночи


15-1346349689
alexdn
2012-08-30 22:01
2013.03.22
Теория чисел


8-1202127408
sssyura
2008-02-04 15:16
2013.03.22
Форма без фона


15-1330513399
Константинов
2012-02-29 15:03
2013.03.22
Разбит диск на разделы