Delphi: Twebbrowser – Elemente (ohne ID) automatisch anklicken lassen

Bei einem unserer Projekte musste ich eine Lösung suchen, welche das Anklicken von Webseitenelementen erlaubt.
Vorausgesetzt, es handelt sich hierbei um einen „span“-tag, welcher einen eindeutigen (!) Namen trägt, gehe ich so vor:

var
ovElements: OleVariant;
i: Integer;


try
ovElements := WebBrowser1.OleObject.Document.all;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).className = 'name') then
begin
try
ovElements.item(i).Click;
except
//fehlerbehandlung I
end;
end;
except
//fehlerbehandlung II => TEST
end;

Woocommerce // Zufällige Produkte auf der Startseite anzeigen lassen.

Bei der Verwendung von „Woocommerce“ als Basis für komplexere Affiliatekataloge möchte man ja nicht nur das Standard-Theme „mystile“ verwenden und gerade hier sind die folgenden Sortierverfahren machbar:

[via orderby.php]

Die Datei befindet sich im /plugins/woocommerce/templates/loop und hier kann man diese über den folgenden Code anpassen:

$catalog_orderby = apply_filters( ‚woocommerce_catalog_orderby‘, array(
‚random‘ => __( ‚Default sorting‘, ‚woocommerce‘ ),
‚popularity‘ => __( ‚Sort by popularity‘, ‚woocommerce‘ ),
‚rating‘ => __( ‚Sort by average rating‘, ‚woocommerce‘ ),
‚date‘ => __( ‚Sort by newness‘, ‚woocommerce‘ ),
‚random‘ => __( ‚Zufall‘, ‚woocommerce‘ )
) );

Dieser Quellcodeschnipsel bezieht sich auf das Theme „Bazar“. Man kann natürlich davon ausgehen, dass ähnliche Sortierfeatures überall zu finden sein werden.

[via Shortcode]

[recent_products per_page=“24″ columns=“4″ orderby=“rand“ order=“rand“]

Hier einfach bei Bedarf die Variablen „page“ und „columns“ ändern.