Получение HTML кода из WebBrowser'а

[StimorolD3DX]

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

[iGrok]

Например, так:

В референсах - Microsoft HTML Object Library

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

Dim mDoc As HTMLDocument
Set mDoc = webbrowser.Document

Dim html as string

html = mDoc.documentElement.innerHTML


Но, может быть, тебе что-то более конкретное надо?

UPD:
Тьфу. Не посмотрел, что оно для мобильных.. Но, может быть, там сработает тот же принцип?

[StimorolD3DX]

Увы, нет. Там у броузера нет свойства Document.

[StimorolD3DX]

Нашел альтернативный способ:

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

        Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http://yandex.ru")
        Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse()

        Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.GetEncoding(1251))
        MsgBox= myStreamReader.ReadToEnd()


[Spider-man]

Всё правильно в первом ответе сказали!!! Есть там свойство document, только его в списке почему-то нету, а так оно работает!! WebBrowser1.Document.documentelement.innerhtml

[Viper]

А ничего, что теме почти 2 года?