![]() |
|
|
Регистрация | << Правила форума >> | 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'> Цитата:
этот код ее не находит Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! Последний раз редактировалось hkdkest, 30.07.2009 в 01:29. |
#4
|
||||
|
||||
![]() Эта строчка:
Код:
if (UpperCase(ovElements.item(i).tagName) = 'BUTTON') and Код:
if (UpperCase(ovElements.item(i).tagName) = 'INPUT') and Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#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; при выполнении этого кода ее не видно вот и вопрос как мне ее нажать если ее найти не могу? Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |