[cyborgg4655]

Как програмно нажать на

<span>нажми меня</span>

в webbrowser'е?

[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 doc : IHTMLDocument2;
 span, tmp : IHTMLElement;
 i, cnt : integer;
begin
 if WebBrowser1.Document = nil then 
  begin
   ShownMessage('Сперва хоть что нибудь загрузите в TWebBrowser!');
   Exit;
  end;

 if Edit1.Text = '' then 
  begin
   ShownMessage('Нужен SPAN ID!');
   Exit;
  end;

 doc:= WebBrowser1.Document as IHTMLDocument2;
 cnt:= doc.All.Length;
 for i := 0 to cnt - 1 do
  begin
   tmp:= doc.all.item(i, '') as IHTMLElement;
   if (tmp.tagName = 'SPAN') and (tmp.id = Edit1.Text) then
    begin
     span:= tmp;
     Break;
    end;
  end;
 if span <> nil then  span.click
 else  
   ShownMessage('Не повезло, нету тут тега SPAN или забыли его ID :)');
end;

[cyborgg4655]

Говорит: "Не повезло, нету тут тега SPAN или забыли его ID "... edit1.text ввожу то что внутри <span></span>

Еслибы span имел ID я бы через getelemetsbyid все сделал...

[NumLock]

Код:

var
  doc: IHTMLDocument2;
  i: Integer;
begin
  doc:=WebBrowser1.Document as IHTMLDocument2;
  for i:=0 to doc.all.length-1 do
  begin
    if LowerCase((doc.all.item(i, 0) as IHTMLElement).tagName)='span' then
      if (doc.all.item(i, 0) as IHTMLElement).innerText='click me' then
        (doc.all.item(i, 0) as IHTMLElement).click;
  end;
end;

http://zalil.ru/34464864

твоя кнопка span

[cyborgg4655]

Пасиба большое, теперь все как надо.

[M.A.D.M.A.N.]

Обязательно оверкворить?!

[cyborgg4655]

Извиняй, дурацкая привычка!)

[M.A.D.M.A.N.]

Заводи новую дурацкую привычку не оверквотить.