Problem sa autoclick u TWebBrowser komponenti

[ Senaid_backo @ 28.01.2012. 07:26 ] @

Pozdrav,

Imam problem da nikako ne mogu da skontam kako da uradim "autoclick" kada se na stranici pojavi dugme sledećih vrijednosti:

Code:
<input value="Like" data-profileid="198531200206926" onclick="return fbpage_set_fan_status(this, "198531200206926", 1, 1, null, null, {"preserve_tab":true,"fan_origin":"page_profile"})" type="button" id="u9uca0_8">

Problem kod njega je što on nema svoj "name" tag niti mu je "id" za svaki profil isti, tako da jedino što preostaje ( po meni ) jeste da na osnovu "value" pronađem dato dugme i na neki način izvršim "autoclick". Ima li neko ideju kako da ovo uradim ili da me barem uputi pa ću sam skontat?

[ savkic @ 28.01.2012. 11:19 ] @

> Imam problem da nikako ne mogu da skontam kako da uradim "autoclick" kada se na stranici pojavi dugme sledećih vrijednosti:

Mislim da buttoni u browserima nemaju standardni window handle tako da nećeš moći preko WinApi funkcija, jedino preko TWebBrowser koda. Našao sam neki primer za to na netu, pa pogledaj...

http://stackoverflow.com/quest...in-html-page-webbrowser-delphi

[ Almedin @ 28.01.2012. 12:43 ] @

Još jedan primjer (ovaj gore neće proći ako nema forme) na linku http://www.delphidabbler.com/tips/56.

Pošto tražiš po 'value', trebaš liniju

Code:
if AnsiSameText(Tag.id, Id) then

zamijeniti sa nečim kao:

Code:
if (TVarData(Tag.getAttribute('value',0)).VType = varOleStr) and AnsiSameText(Tag.getAttribute('value',0), Id) then

takođe možeš liniju

Code:
Tags := Body.getElementsByTagName('*');

zamijeniti sa

Code:
Tags := Body.getElementsByTagName('input');

da, zaboravih buttonclick koji tebi treba

Code:
procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  Elem := GetElementById(wb.Document, 'Like') as IHTMLElement;
  if Assigned(Elem) then
    Elem.click;
end;

[ Senaid_backo @ 02.02.2012. 18:04 ] @

Nisam imao prije vremena, pa evo da sada iskoristim priliku da Vam se zahvalim na brzim odgovorima, a pogotovo @Almedin-u koji mi je dao tačno ono što sam trebao, a ujedno je to bilo i gotovo riješenje tako da nisam imao potrebe ništa mijenjati!