![]() |
Button auf Homepage anklicken
Servus liebe Delphi Praxis Gemeinde,
Und zwar habe ich folgende Frage: Wie kann ich auf dieser Homepage ![]() Ich habe diesen Quellcode aktuell, der aber noch nicht funktioniert:
Code:
Als m_Button ID habe ich aus dem Seitenquelltext ...
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;
Code:
... als ID "lemonlike_voting_container" gewählt.
<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> 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 |
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