Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Button auf Homepage anklicken (https://www.delphipraxis.net/160027-button-auf-homepage-anklicken.html)

DoktorD 23. Apr 2011 19:23

Button auf Homepage anklicken
 
Servus liebe Delphi Praxis Gemeinde,

Und zwar habe ich folgende Frage:
Wie kann ich auf dieser Homepage http://goo.gl/H4gHj den Button unten rechts "Diese Gruppe gefällt mir" aus Delphi heraus anklicken?

Ich habe diesen Quellcode aktuell, der aber noch nicht funktioniert:
Code:
procedure TFrmMain.KlickButton;
var
  vDoc, vElem: OleVariant;
begin

  m_ButtonID := edtButtonID.Text;
  m_URL     := edtURL.Text + '?' + FormatDateTime('yyyymmddhhnnsszzz',now);

  if m_Webbrowser <> nil then
    FreeAndNil(m_Webbrowser);

  if m_Webbrowser = nil then
    CreateWebbrowser;

  if m_Webbrowser <> nil then
  begin
    try
      m_Webbrowser.Navigate(m_URL);
      repeat
        Application.ProcessMessages;
      until
        m_Webbrowser.ReadyState >= READYSTATE_COMPLETE;

      vDoc := m_Webbrowser.OleObject.document;
      vElem := vDoc.getElementByID(m_ButtonID);
      if VarIsNull(vElem) then
        ShowMessage('ButtonID nicht gefunden')
      else
      begin
        vElem.click;
        StatusBar.Panels[0].Text := 'zuletzt geklickt: ' + TimeToStr(now);
      end;
    except
      ShowMessage('Fehler beim Ausführen. Bitte überprüfen Sie ihre Eingaben.');
    end;
  end;
end;
Als m_Button ID habe ich aus dem Seitenquelltext ...
Code:
    <div class="voting voting_kirmesgruppe container_id_71 participant_id_4209" id="lemonlike_voting_container">
        <div class="slide_container">
            <div class="button hot"><!--<a onmouseover="return(false);">--><span style="color:#000000;" onmousedown="/* avoid selectable text */return(false);">Diese Gruppe gefällt mir!</span><!--</a>--></div>
            <!--<div class="button not"><a>Diese Gruppe gefällt mir nicht<span></span></a></div>-->
        </div>
    </div>
... als ID "lemonlike_voting_container" gewählt.

Damit funktioniert es aber leider nicht, da das anscheinend nur die Container ID ist und nicht des eigentlichen Buttons. Für den Button gibt es aber keine ID.

Hat jemand von Euch hierzu eine Idee?

Vielen Dank

himitsu 23. Apr 2011 19:26

AW: Button auf Homepage anklicken
 
Garnicht, da ein automatisches anklicken dieser Links bestimmt nicht erlaubt ist.
(gut, man könnte den Anbieter dieses Services mal fragen, wenn es erlaubt wäre, dann gäbe es vermutlich eine API für den Zugriff)

Wenn es dir gefällt, dann kannst'e es ja selber einmal anklicken.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz