WebBrouser (посмотреть исходный документа)

[extHack]

Всем привет

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

Private Sub Form_Load()
    webPage.Navigate = "http://ya.ru"
End Sub

Private Sub Command1_Click()
    'Здесь необходимо достать исходный код документа
End Sub


заранее спасибо

[Konst_One]

ща как пошлю в поиск

document.innerHTML тебе о чем-нибудь говорит

[extHack]

Неа, не о чем не говорит

[extHack]

спасибо, нашел
webPage.Document.body.innerHTML