Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

Как программно щёлкнуть на ссылку в 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, приведи рабочий пример


 
SergP ©   (2005-11-10 08:12) [13]


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


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


 
WebSQLNeeder ©   (2005-11-10 14:10) [14]

А как кликнуть, а вернее заполнить поле 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 15:02) [15]


> А как кликнуть, а вернее заполнить поле 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 16:57) [16]

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


 
WebSQLNeeder ©   (2005-11-12 08:15) [17]

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


 
WebSQLNeeder ©   (2005-11-13 12:03) [18]

...



Страницы: 1 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
2-1139080529
ПОМОГИТЕ
2006-02-04 22:15
2006.02.19
нету темы


15-1138526986
vidiv
2006-01-29 12:29
2006.02.19
Применение шифрования в телефонии.


2-1138977194
Silica
2006-02-03 17:33
2006.02.19
Stringgrid


5-1125637215
DimaBr
2005-09-02 09:00
2006.02.19
Перемещение по компоненту


15-1138358865
Andy BitOff
2006-01-27 13:47
2006.02.19
Фоном открыть jpg и прочитать его размеры (VBA Excel)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский