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 ?
Merci pour vos réponses
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)
Partager