SendMessage sur un TWebBrowser

Bonjour à tous ^^

Je cherche à envoyer un click souris à une position précise d'un TWebBrowser. Mais si je fais :

Code:

---

1 2	SendMessage (WebB.Handle, WM_LBUTTONDOWN, 12, 100); SendMessage (WebB.Handle, WM_LBUTTONUP, 12, 100);

---

Ca ne fonctionne pas, rien ne se passe. Et pourtant je suis sur qu'à cette position, il y a une image clickable :(

Si je fais Application.Handle à la place, ou Form1.Handle, pas de changement. Si je fais la même chose sur un TButton posé pour le test sur ma form, ça marche :/

Des idées ?

Salut Phideliens !

Utilise le Body et IHTMLDocument, IHTMLDocument2 et 3, tu as des fonctions comme getElementByID on évoqué cela dans le sujet Composant/Unité équivalent à SimpleHtmlDom (PHP) ?

Cela s'utilise comme on le ferait en JavaScript
Voir le sujet cocher checkbox dans une page web avec du javascript, tu as 2 liens interressant pour faire ta propre getElementByID en utilisant getElementByTagName, si tu n'as pas accès à IHTMLDocument3 ou IHTMLDocument6

Une fois le IHTMLElement obtenu, la méthode Click s'offre à toi !

Si on traduit tes paramètres: tu envois le bouton gauche de la souris en ayant les boutons clavier Ctrl et Shift pressés à une position x=100 et y=0. Pas sûr que ce soit ce que tu cherches à faire :mrgreen:

L'appel correct serait:

Code:

---

SendMessage(Wnd, WM_LBUTTONDOWN, 0, MakeLong(x,y));

---

Sinon regarde plutôt du côté de Mouse_Event qui te permettra de t'affranchir de hWnd.

@Shai: ouaip j'ai posté aussi sur phidels, bien vu :ccool:
merci pour les liens, j'ai récupéré le getElementById et ça fonctionne à merveille :mrgreen:

@Andnotor : merci pour la correction sur le SendMessage, je sais pas pourquoi j'ai lu la doc à l'envers ...
sinon je voulais pas utiliser Mouse_Event parceque justement tu ne files pas de handle, donc tu dois donner des coordonnées avec la fenêtre "visible". or moi je ne vois pas ce TWebBrowser, donc envoyer un click à une coordonnée sans dire sur quel handle, ça ne me convient pas :aie:

merci à tous