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

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

Как программно щёлкнуть на ссылку в Internet Explorer? [D6, D7, WinXP]

Volf_555 ©   (2005-11-06 18:42:00) 

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

---

WebSQLNeeder   (2005-11-13 12:03:00) [1]

...

---

WebSQLNeeder   (2005-11-12 08:15:00) [2]

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

---

WebSQLNeeder   (2005-11-10 16:57:00) [3]

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

---

SergP   (2005-11-10 15:02:00) [4]

> А как кликнуть, а вернее заполнить поле 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;


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

---

WebSQLNeeder   (2005-11-10 14:10:00) [5]

А как кликнуть, а вернее заполнить поле 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;

---

SergP   (2005-11-10 08:12:00) [6]

> 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."


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

---

Volf_555   (2005-11-10 02:45:00) [7]

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

---

Volf_555   (2005-11-10 02:23:00) [8]

написал следующее:
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."

---

SergP   (2005-11-08 14:43:00) [9]

Я пробовал с integer

---

Volf_555   (2005-11-08 11:05:00) [10]

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

---

SergP.   (2005-11-07 08:41:00) [11]

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

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

---

SergP   (2005-11-07 08:33:00) [12]

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

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

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

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

---

Volf_555   (2005-11-07 02:47:00) [13]

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

---

Volf_555   (2005-11-07 02:26:00) [14]

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

---

SergP.   (2005-11-06 23:33:00) [15]

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

---

Volf_555   (2005-11-06 21:14:00) [16]

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

---

Volf_555   (2005-11-06 19:15:00) [17]

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

---

ViktorZ   (2005-11-06 19:04:00) [18]

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

---

Наверх