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