Как получить текст из статусной строки IE ?

[jangle]

Предположим у меня открыт браузер IE, и в статусной строке у него некий текст. Как можно получить этот текст в VB программу?

Вобщем для начала ткнул PB WinSpy+ в статусную строку IE, он выдал такие данные:

Код: Выделить всё

Class:  msctls_statusbar32
hWnd:   460214
Id:     40961

Т.е. зная хендл окна IE, я могу получить текст из статусной строки, получив хендл этого контрола по его ID, и выполнив что-то типа:

GetWindowText hWnd, @Text, %Max_Path

Однако такой вопрос, во всех ли версиях IE, ID статусной строки равено 40961 ? Или он может отличаться от версии к версии.
И второй вопрос, есть ли более цивильный путь получения содержимого статусной строки? Например через COM как нибудь

[Antonariy]

Палюбэ. InternetExplorer/WebBrowser.StatusText.
F2 рулит неимоверно. Никогда не устану это повторять

[jangle]

Палюбэ. InternetExplorer/WebBrowser.StatusText.
F2 рулит неимоверно. Никогда не устану это повторять

Для этого сайт должен быть загружен в контрол WebBrowser?

У меня ТЗ другое, сайт уже загружен в окно IE, и программа должна выдрать текст именно из статусной строки эксплорера.

[Antonariy]

Перебираешь коллекцию ShellWindows, определяешь по типу документа, которые из них IE, смотришь у нужного StatusText.

[jangle]

Спасибо! Ларчик оказывается просто открывается:

Код: Выделить всё

Option Explicit
Private IE As InternetExplorer
Private SW As ShellWindows
Dim obj As ShellWindows

Private Sub Command1_Click()
Dim i As Integer
Dim IEDoc As HTMLDocument

Set obj = New ShellWindows
    For i = 0 To obj.Count - 1
    MsgBox obj.Item(i).StatusText
Next

End Sub

Совсем я VB забыл !

[jangle]

И тогда в догонку еще один вопрос, у меня на странице несколько фреймов. В одном из фреймов отображается картинка и текстовая строка, мне нужно выдрать содержание этой строки, не HTML код, а именно содержание.
Какой класс содержит коллекцию фреймов?

[Antonariy]

ie.document.frames

[jangle]

ie.document.frames

А пример кода есть? Что-то не пойму, как эту коллекцию заюзать

[Antonariy]

document.frames(0).document.all(номер_или_id_элемента_со_строкой).innerText