![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Подскажите пожалуйста как можна програмно нажать кнопку, точнее фому, в WebBrowser-е которая описана следующим кодом:
<html> <body> <form action="http://site.com" method="POST" id="gateway_form" > <input type="image" height="37" width="132" src="http://site.com/image.gif" alt="Нажать" title="Нажать" /> <input type="hidden" name="gateway_result" value="1"> </form> </body> </html> Я ето сделал перемещая курсор на нее и симулируя нажатия мышкой, но нужно чтобы нажатие проходило не перемещая курсор. Зарание спасибо |
|
#2
|
||||
|
||||
|
вот эта часть кода тебе покажет какие элементы есть на странице
Код:
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
ShowMessage(ovElements.item(i).tagName+#10+
ovElements.item(i).type+#10+
ovElements.item(i).Value);
end;Код:
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (UpperCase(ovElements.item(i).tagName) = 'BUTTON') and
(UpperCase(ovElements.item(i).type) = 'SUBMIT') then
ovElements.item(i).Click;Последний раз редактировалось Sharky, 09.07.2009 в 11:25. |
|
#3
|
||||
|
||||
|
Почему этот код не работает для такой кнопки?
Код:
<input type='submit' name='save' value='Сохранить' class='button'> Цитата:
этот код ее не находит Последний раз редактировалось hkdkest, 30.07.2009 в 01:29. |
|
#4
|
||||
|
||||
|
Эта строчка:
Код:
if (UpperCase(ovElements.item(i).tagName) = 'BUTTON') and Код:
if (UpperCase(ovElements.item(i).tagName) = 'INPUT') and |
|
#5
|
||||
|
||||
|
у меня проблема в том что на странице находятся все кнопки кроме той какой мне надо:
Код:
Код:
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
ShowMessage(ovElements.item(i).tagName+#10+
ovElements.item(i).type+#10+
ovElements.item(i).Value);
end;при выполнении этого кода ее не видно вот и вопрос как мне ее нажать если ее найти не могу? |