WebBrowser: изменение HTML страниц на лету!

[$Yastrebov$]

Собственно есть страница, которая должна подгрузится в WebBrowser.
Необходимо перехватить ее до отображения в WebBrowser, найти и заменить нужный текст на мой и вывести в WebBrowser уже отредактированную страницу.

Как искать текст по странице я знаю.
Подозреваю, что нужно использовать метод WebBrowser.Document.write для редактирования!

Вот только где вставить код? На каком этапе?
Изменения должны коснуться только части страницы, остальное должно остаться неизменным!
Подтолкните, пожалуйста!

[$Yastrebov$]

Ни у кого никаких идей? Google тоже правду не выдает.
Совсем плохо дело...

Эх... Тема открыта!

[dr.MIG]

Грузи страницу, проверяй ReadyState, как загрузится получай необходимый элемент любым из сбособов (getElementById, getElementByName, getElementByTagName) и меняй ему innerHTML.

[$Yastrebov$]

Был уверен, что innerHTML только для чтения! Даже и не стал пробовать! Спасибо, все отлично работает.

[Antonariy]

Однако это работает после отображения...

[$Yastrebov$]

2Antonariy

Ну если менять object.Document.innerHTML при readyState="interactive" или даже readyState="loaded", то замена практически визуально не заметна. При readyState="complete" немного заметнее, но тоже сносно.

А есть еще какой-то вариант?

[Antonariy]

Есть, но как делается не знаю.

[agat344]

Может я чего-то не понимаю, но у меня объект - "WebBrowser1.Document.innerHTML" ничего не показывает :

А сам код показывается только через команду
"WebBrowser1.Document.documentElement.innerHTML"

Может подменять надо WebBrowser1.Document.documentElement.innerHTML , а не WebBrowser1.Document.innerHTML ????

[BION]

Может я чего-то не понимаю, но у меня объект - "WebBrowser1.Document.innerHTML" ничего не показывает :

А сам код показывается только через команду
"WebBrowser1.Document.documentElement.innerHTML"

Может подменять надо WebBrowser1.Document.documentElement.innerHTML , а не WebBrowser1.Document.innerHTML ????

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

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox WebBrowser.Document.body.innerHTML
End Sub


[agat344]

Я так делаю подмену картинок в документе:

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

Private Sub WebBrowser1_DownloadComplete()
For i = 0 To (WebBrowser1.Document.images.length - 1)
    WebBrowser1.Document.images(i).src = ""
Next i
End Sub

Но что-то не очень работает, всё равно замена происходит после показа. А как сделать помену до начала показа? Вот ведь важный вопрос......