Как зная hWnd открытого IE окна получить HTML код страницы?

[IvanTheTerrible]

Попытался разобраться с опубликованной на сайте статьей "Программирование для Internet Explorer".
Результат плачевный. Предложенный в статье способ у меня не работает.
Подскажите, что/как делать?

[Odrick]

Что именно не работает? Вроде как в статье все логично... Вопрос не понятен - конкретизируй проблему.

[IvanTheTerrible]

Ошибки возникают в

Function IEDOMFromhWnd(ByVal hwnd As Long) As IHTMLDocument
Dim IID_IHTMLDocument As UUID
Dim hWndChild As Long,lRes As Long,lMsg As Long,hr As Long

If hwnd <> 0 Then
If Not IsIEServerWindow(hwnd) Then
EnumChildWindows hwnd, AddressOf EnumChildProc, hwnd
End If

' В авторской версии функция IsIEServerWindow не изменяет hwnd.
' Какой тогда смысл ее вызова?

If hwnd <> 0 Then
lMsg = RegisterWindowMessage("WM_HTML_GETOBJECT")
SendMessageTimeout hwnd, lMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes
If lRes Then
With IID_IHTMLDocument
.Data1 = &H626FC520
.Data2 = &HA41E
.Data3 = &H11CF
.Data4(0) = &HA7
.Data4(1) = &H31
.Data4(2) = &H0
.Data4(3) = &HA0
.Data4(4) = &HC9
.Data4(5) = &H8
.Data4(6) = &H26
.Data4(7) = &H37
End With

' В следующей строке у меня возникает <Type mismatch>

hr = ObjectFromLresult(lRes, IID_IHTMLDocument, 0, IEDOMFromhWnd)
End If
End If
End If

[IvanTheTerrible]

Следующая ф-ия не работает. Почему не знаю. Может у кого есть соображения на этот счет?

Public Function IEDocumentFromhWnd(ByVal hWnd As Long) As IHTMLDocument
Dim lRes As Long, lMsg As Long

If hWnd <> 0 Then
If Not IsIEServerWindow(hWnd) Then
EnumChildWindows hWnd, AddressOf EnumChildProc, hWnd
End If

' New_hWnd - найденный handle элемента "Internet Explorer_Server"
' в открытом IE-окне

If New_hWnd <> 0 Then
' Следующая строка представляется подозрительной.
' В APIViewer 2004 представлена уйма констант.
' WM_HTML_GETOBJECT среди них нет. А раз так,
' то SendMessageTimeout будет возвращать черти-что...

lMsg = RegisterWindowMessage("WM_HTML_GETOBJECT")
SendMessageTimeout New_hWnd, lMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes

' Следующая строка возвращает Nothing для
' IEDocumentFromhWnd !!!

ObjectFromLresult lRes, New_hWnd, 0, IEDocumentFromhWnd
End If
End If
End Function