Accessing the MSHTML object in IE

[Nikolay Petrov]

How can I access the MSHTML object in Internet Explorer, from my app?
I don't want to use the IE Control and put it in my app. I want to be
able to do things with the opened document in the allready started IE.

[Ken Tucker [MVP]]

Hi,

Add a reference to Microsoft HTML object library in the com tab.

Private Sub AxWebBrowser1_D ownloadComplete (ByVal sender As Object, ByVal e
As System.EventArg s) Handles AxWebBrowser1.D ownloadComplete
Dim doc As mshtml.HTMLDocu mentClass

doc = CType(AxWebBrow ser1.Document, mshtml.HTMLDocu mentClass)

RichTextBox1.Te xt = doc.documentEle ment.innerHTML
End Sub

Ken
------------------
"Nikolay Petrov" <jo******@mail. bg> wrote in message
news:11******** **************@ g47g2000cwa.goo glegroups.com.. .
How can I access the MSHTML object in Internet Explorer, from my app?
I don't want to use the IE Control and put it in my app. I want to be
able to do things with the opened document in the allready started IE.

[stand__sure]

depending upon what you need to do with the underlying HTML, you can
also use one of the other document classes...

a friendly warning: these COM classes *change* the underlying source in
subtle ways (capitalizing, adding spaces, trimming trailing ";"
characters in styles, etc.

here's another code snippet

'get the IHTMLDocument2 object
Dim htmldoc2 As mshtml.IHTMLDoc ument2
htmldoc2 = CType(WebBrowse r1.Document.Dom Document,
mshtml.IHTMLDoc ument2)

'get the IHTMLTextRange object
Dim textrange As mshtml.IHTMLTxt Range =
CType(htmldoc2. selection.creat eRange, mshtml.IHTMLTxt Range)

[Cor Ligthert]

Nikolay,

AFAIK will this part not go.

I want to be
able to do things with the opened document in the allready started IE.

However you can open IE using the shdocvw and instance from that
InterenetExplor er instead of axwebbrowser. Be aware that you get than a much
more limited amount of methods, which is not documentated.

'Add from Project menu a reference from
'COM Microsoft Internet Controls
Public Class testIE
Public Shared Sub main()
Dim a As New SHDocVw.Interne tExplorer
a.Visible = True
a.Navigate2("ht tp://msdn.microsoft. com/")
End Sub
End Class

You can than use code as Ken and Stand sure showed.

I hope this helps, although it is not the answer you expected.

Cor

[Nikolay Petrov]

I need an access to the default IE browser, which every user can start,
not one created using axwebbrowser or shdocvw.
I guess my prog should be an plugin for IE, but I don't have idea how
to write one.