Problem sa autoclick u TWebBrowser komponenti

Problem sa autoclick u TWebBrowser komponenti 28.01.2012. u 07:26 · pre 179 meseci #1

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?

Potpis

Samo jednom se živi, zato iskoristi svaku priliku i uživaj!

Re: Problem sa autoclick u TWebBrowser komponenti 28.01.2012. u 11:19 · pre 179 meseci #2

> 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

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Problem sa autoclick u TWebBrowser komponenti 28.01.2012. u 12:43 · pre 179 meseci #3

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;

Re: Problem sa autoclick u TWebBrowser komponenti 02.02.2012. u 18:04 · pre 179 meseci #4

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!

Potpis

Samo jednom se živi, zato iskoristi svaku priliku i uživaj!

Srodne teme