Как программно щёлкнуть на ссылку в Internet Explorer?

← →
Volf_555 (2005-11-06 18:42) [0]

Есть Web-страница, загружённая в Internet Explorer, необходимо щёлкнуть программно на заранее известную ссылку. Как это реализовать?

← →
ViktorZ (2005-11-06 19:04) [1]

А для чего если не секрет, хочешь накрутчик сделать?

← →
Volf_555 (2005-11-06 19:15) [2]

Вроде того :-)

← →
Volf_555 (2005-11-06 21:14) [3]

Ну так что, может кто-то поможет решить мне данную проблему?

← →
SergP. (2005-11-06 23:33) [4]

Если в TWebbrowser, то могу подсказать.

← →
Volf_555 (2005-11-07 02:26) [5]

Допустим в TWebBrowser - как осуществить тогда?

← →
Volf_555 (2005-11-07 02:47) [6]

WrbBrowser1.Navigate("......") не предлагать :-)

← →
SergP © (2005-11-07 08:33) [7]

Кликнуть по i-ой ссылке:

WebBrowser.OleObject.document.all.tags("a").item(i).click;

По i-ой кнопке:

WebBrowser.OleObject.document.all.tags("input").item(i).click;

← →
SergP. (2005-11-07 08:41) [8]

Если с фреймами, то кликнуть в i-ом фрейме по j-ой ссылке:

WebBrowser.OleObject.document.frames.item(i).document.all.tags("a").item(j).click;

← →
Volf_555 (2005-11-08 11:05) [9]

i - какого типа? Integer или String?

← →
SergP © (2005-11-08 14:43) [10]

Я пробовал с integer

← →
Volf_555 (2005-11-10 02:23) [11]

написал следующее:
WebBrowser1.OleObject.document.frames.item(0).document.all.tags("a").item(1).clickВылазит ошибка:
"Project1.exe raised exception class EOleException with message "Член группы не найден". Process stopped. Use Step or Run to continue."

← →
Volf_555 (2005-11-10 02:45) [12]

SergP, приведи рабочий пример

> Volf_555 (10.11.05 02:23) [11]
> написал следующее:
> WebBrowser1.OleObject.document.frames.item(0).document.all.
> tags("a").item(1).clickВылазит ошибка:
> "Project1.exe raised exception class EOleException with
> message "Член группы не найден". Process stopped. Use Step
> or Run to continue."

ну правильно... Если у тебя в документе нет фреймов, или нет ссылок (или нужной ссылки нет), или вообще документ не загружен, то и будет выдаваться что "Член группы не найден"

А как кликнуть, а вернее заполнить поле input если страница состоит из нескольких вложенных друг в друга фреймов?

Например, на главной странице есть два фрейма, один для шапки, а другой для тела документа. Но нижний фрейм включает в себе страницу, которая в свою очередь сама состоит из фреймов.

Как добраться до определенного фрейма?? Я попробовал выявить это практическим путем, но увы ничего не получилось :(

procedure TForm1.Button8Click(Sender: TObject);
var frame1,frame2:variant;i:integer;
begin
for i:=0 to 10 do
begin
try
frame1:=WebBrowser1.OleObject.document.frames.item(1);
frame2:=frame1.document.all.tags("frame").item(i);
frame2.document.all.tags("input").item(1).value:="HHHHHHHHHELLOOOOO";
except
memo3.Lines.Add("в фрейм номер "+inttostr(i)+" не подходит");
end;
end;
end;

> А как кликнуть, а вернее заполнить поле input если страница
> состоит из нескольких вложенных друг в друга фреймов?

не знаю... Экспериментировать времени нет... Но попробуй так:

WebBrowser1.OleObject.document.frames.item(0).document.frames.item(0).document.all.tags("input").item(1).value:="Вася Пупкин"

либо так:

procedure TForm1.Button8Click(Sender: TObject); var frame1,frame2:variant;i:integer; begin for i:=0 to 10 do begin try frame1:=WebBrowser1.OleObject.document.frames.item(1); frame2:=frame1.document.frames.item(i); frame2.document.all.tags("input").item(1).value:="HHHHHHHHHELLOOOOO"; except memo3.Lines.Add("в фрейм номер "+inttostr(i)+" не подходит"); end; end; end;

Может получится... Но не гарантирую

Нет, не получается :(

Может кто то знает решение?

...

Как программно щёлкнуть на ссылку в Internet Explorer? Найти похожие ветки