Как в Twebbrowser кликнуть по ссылке?

[AquaKlaster]

Как в Twebbrowser кликнуть по ссылке, именно кликнуть! Вот ссылка страницы http://kinotraff.ru/in.php?id=62421&base=1 на ней имеется кнопка "ВХОД" при нажатии на эту кнопку запускается JAVA-скрипт http://www.mytraf.ru/js/kinotraff_ru.js ! Как кликнуть по ссылке "ВХОД" что бы активировался скрипт? Зарание спасибо!

[alex1245]

Квэнди молодец. мою тему вообще потер за правду...
хоть бы раз подсказал что!!! ну не знаешь - так не нужно "служебное положение" использовать...

а тебе - совет: этот форум - так себе, ищи другие, сам видишь что отвечали в предыдущей теме: вообще не смыслят люди...

а по теме, хотя бы так:
link:=WebBrowser1.OleObject.Documen t.getelementsbytagname('a');
for i:=0 to link.length-1 do begin
if link.item(i).id='ttp://kinotraff.ru/in.php?id=62421&base=1' then
link.item(i).click;
end;

и вообще - стыдно такие вещи спрашивать - поиск в гугле на первой странице решение выдает!

[Пепел Феникса]

хм....и какую же тему?
или мы упорно утверждаем что мы самые крутые просто нас не признают?

так вот о теме
1)alex1245, давал бы полный код.
вот полный код:

uses MSHTML;

-------------------------------

procedure TForm1.FormClick(Sender: TObject);
var link:variant;
    i:integer;
begin
 link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
 for i:=0 to link.length-1 do
 if pos('http://kinotraff.ru/go.php?id=',link.item(i).href)<>0 then link.item(i).click;
end;

2)топикстартер а вы в курсе что при нажитии там никакого скрипта не идет?
там просто новое окно открывается, обрабатывайте событие OnNewWindow2/3

[postal2]

Не знаю, почему многоуважаемые модераторы стёрли эту тему, но с полгода назад всем форумом разбирались, как это делается. Благо у меня остались все исходники, поэтому сейчас буду делиться теми (и не только ) наработками, итак
1. Сразу, чтобы потом не спрашивали - получение кода из webbrowser:

function WB_GetHTMLCode(WebBrowser: TEmbeddedWb; ACode: TStrings): Boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  ss := TStringStream.Create('');
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
    if Result then ACode.Text := ss.Datastring;
  finally
    ss.Free;
  end;
end;

2. Поиск компонента и установка его значения (может быть как Textarea, так и select вроде). what: название компонента (в коде, ищите), тоwhat - значение, которое ему надо установить:

procedure findandset(what,towhat:string);
var
form:olevariant;
f,i:integer;
begin
for f:=0 to form1.WebBrowser1.OleObject.Document.forms.Length-1 do
begin
form:=form1.WebBrowser1.OleObject.Document.forms.Item(f).elements;
for i:=0 to form.Length-1 do
if form.item(i).name=what then//можно также искать и по alt, type и другим, смотрите код страницы!
form.item(i).value:=towhat;
end;
end;

3. Как кликать по кнопке:

procedure findandclick(what:string);
var
form:olevariant;
f,i:integer;
begin
for f:=0 to form1.WebBrowser1.OleObject.Document.forms.Length-1 do
begin
form:=form1.WebBrowser1.OleObject.Document.forms.Item(f).elements;
for i:=0 to form.Length-1 do
if form.item(i).name=what then
begin form.item(i).click; break; end;
end;
end;

4. Если не получается стянуть значение у компонента страницы html стандартными способами, используйте нестандартные, например, получайте весь код элемента

form.item(i).innerhtml

Ну вот и все основные приёмы на html странице. Для большего удобства при работе с ней рекомендую пользоваться Embedded wb, функций больше.

[fate]

меня попросили написать прогу которая приглашает в группу в контакте.
Начал писать и пришел в тупик:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var di,link,link2:variant;
    i,j,kol:integer;
begin
 link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
for i:=0 to link.length-1 do begin
  if pos('Пригласить в группу',link.item(i).innerText)>0 then
  begin
  link.item(i).click;
  break;
  end;
end;

for i:=0 to link.length-1 do begin
  if pos('Перейти к поиску',link.item(i).innerText)>0 then
  begin
  link.item(i).click;
  break;
  end;
end;

link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
for i:=0 to link.length-1 do begin
memo1.Lines.add(link.item(i).innerText);
 if pos('Выслать приглашение,link.item(i).innerText)>0 then
  begin
  link.item(i).click;
  end;
end;
end;

не выполняется 3-й for
в memo выводится ссылки предыдущей страницы, почему не пойму.
Пробовал ставить sleep перед
link:=WebBrowser1.OleObject.Documen t.getelementsbytagname('a');

не помогает, сначала заполняется мемо текстами ссылок, только потом происходит переход на страницу на которой есть ссылка с текстом "Выслать приглашение". Пробовал вообще эту часть кода перенести в отдельную процедуру

link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
for i:=0 to link.length-1 do begin
memo1.Lines.add(link.item(i).innerText);
 if pos('Выслать приглашение,link.item(i).innerText)>0 then
  begin
  link.item(i).click;
  end;
end;
end;

не помогло, все тоже самое (

[Бриит]

не могу сделать нажатие на кнопку

<form class="shaurburgers-work" id="workForm" action="/shaurburgers/" method="post">
<input type="hidden" name="action" value="work">
<div class="time">
<select name="time"><option value="1">1 час</option>
<option value="2">2 часа</option>
<option value="3">3 часа</option>
<option value="4">4 часа</option>
<option value="5">5 часов</option>
<option value="6">6 часов</option>
<option value="7">7 часов</option>
<option value="8">8 часов</option></select>

<span class="button" onclick="$('#workForm').trigger('submit');">
<span class="f"><i class="rl"></i><i class="bl"></i><i class="brc"></i>
<div class="c">Работать</div></span></span>
</form>

по поводу выбора времени загвоздки не какой не было а вот как нажать на кнопу вот тут у меня стал вопрос

  
procedure TForm2.Button3Click(Sender: TObject);
Var
Form:oleVariant;
f,i:integer;
begin
WebBrowser1.Navigate('...');
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
for i:=0 to form.Length-1 do
if (form.item(i).name='time')  then begin
form.item(i).value:=8;// тут менять значение 
end;
end;
end;

кто чем может подскажите в какую сторону копать.