не получается нажать кнопку в Webbrowser

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
namomelkor
Сообщения: 227
Зарегистрирован: 31 авг 2006, 13:11

14 дек 2007, 18:54

есть следующая форма

Код: Выделить всё

<form method="post" name="snd" action="dorf1.php">
<input type="hidden" name="w" value="">
<input type="hidden" name="login" value="1197643355">

<p><table class="p1" style="width:100%"cellspacing="1" cellpadding="0"><tr><td>

<table width="100%" cellspacing="1" cellpadding="0">
<tr><td><label>Имя:</label>
<input class="fm fm110" type="text" name="ed74f8c" value="DeS" maxlength="15"> <span class="e f7"></span>
</td></tr>
<tr><td><label>Пароль:</label>
<input class="fm fm110" type="password" name="e188758" value="******" maxlength="20"> <span class="e f7"></span>
</td></tr>
</table></td></tr></table></p>


<p align="center"><input type="hidden" name="e7d4c9e" value="18cf0e83ee">
<input type="image" value="login" border="0" name="s1" src="img/ru/b/l1.gif" width="80" height="20" onMousedown="btm1('s1','','img/ru/b/l2.gif',1)" onMouseover="btm1('s1','','img/ru/b/l3.gif',1)" onMouseUp="btm0()" onMouseOut="btm0()" onClick="xy()"></input>


<div align="center" class="f8"><input type="Checkbox" name="autologin" value="ja" checked>Узнавать меня в будущем</div></p></form>
нужно нажать на ней кнопку
пытаюсь сделать это так:

Код: Выделить всё

var
  ovElements: OleVariant;
  i: Integer;
............
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
  begin
    if (ovElements.item(i).type = 'image')
      then
      ovElements.item(i).Click;
...................
Весь прикол в том что находятся все элементы формы кроме этой самой кнопки.
Подскажите как нажать эту кнопку.
Ответить