Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Эмуляция клика по ссылке


XcCCC ©   (2009-08-01 11:23:00) 

Как эмулировать клик мышью по ссылке, в html коде выглядит как
<a href="" onclick="delete похоже это просто скрипт запускающий удаление ?


XcCCC   (2009-08-01 13:30:00) [1]

надо в странице выполнить скрипт
вроде решил задачу, покрайней мере пока работает


oldman   (2009-08-01 13:14:00) [2]

По клику, наверное, происходят какие-то действия?
Ну так и соверши их. Вот и эмуляция.
Или тебе надо, чтоб курсор дополз и кнопочка нажалась?


XcCCC   (2009-08-01 13:03:00) [3]

добрался до всех имен и тегов, что дальше?

WebBrowser1.Document.QueryInterface(IHTMLDocument2, Doc);
HTMLWindow := Doc.parentWindow;
if not Assigned(HTMLWindow) then Exit;

 Memo1.Lines.Clear;
 HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
 HtmlCollection := HtmlDocument.All;
 for I := 0 to HtmlCollection.Length - 1 do begin
   HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
   Memo1.Lines.Add(HtmlElement.TagName + '  ' +
     HtmlElement.InnerText);


sniknik   (2009-08-01 11:43:00) [4]

> как?
через "оболочка IE в форме Form1", + http://ru.wikipedia.org/wiki/DOM
т.е. доступ к объекту есть, внутренняя структура известна (никакой анализ текста не нужен, в ней и так есть вписки ссылок страницы), методы объекта можно использовать (есть метод вызывающий яваскрипт, а уж он над страничкой "главный босс" и вызвать уже существующий скрипт для него не проблема).


XcCCC   (2009-08-01 11:35:00) [5]

как? оболочка IE в форме Form1
повешены кнопки вперед, назад, перейди и TEdit адрес
получить адрес ссылку к примеру для скачки могу,
анализируя текст на ссылку


sniknik   (2009-08-01 11:29:00) [6]

зачем эмулировать? просто вызвать этот скрип и все.


Наверх

Титульная страница Поиск, карта сайта Написать письмо