Bonjour à tous
J'ai trouvé sur le web un source qui m'interresse, mais je ne comprends pas tout.

Quelqu'un pourrait m'expliquer ce que fait le code suivant ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim lRes As Integer
Dim oDoc As IHTMLDocument2 = Nothing
Dim lMsg As Integer = RegisterWindowMessage("WM_HTML_GETOBJECT")
Call SendMessageTimeout(CType(hWnd, IntPtr), lMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes)
If lRes <> 0 Then Call ObjectFromLresult(lRes, IID_IHTMLDocument, 0, oDoc)
Merci pour vos réponses