ActiveX & IE interaction

[Mercdev]

I have an ActiveX control inherited from UserControl. This control is
hosted in IE(version 6 or later). How i can navigate IE from this control.
I know that i need to obtain IWebBrowser2 interface and work with it,
but i can't. Can someone show an example how to get IWebBroswer2 or way how
is possible navigate IE?

[Walter Wang [MSFT]]

Hi Mercdev,

Based on my understanding, you're writing an ActiveX Control using .NET
UserControl, and you want to navigate IE from this control.

As you've already known, to do this you need to obtain IWebBrowser2
interface first:

#How To Retrieve the Top-Level IWebBrowser2 Interface from an ActiveX
Control
http://support.microsoft.com/kb/257717/EN-US/

However, this doesn't work for .NET UserControl as described in following
KB:

#PRB: Cannot Retrieve Top-Level IWebBrowser2 Interface from a .NET
UserControl
http://support.microsoft.com/kb/311299/

We're sorry for any inconvenience.
Sincerely,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscripti...ult.aspx#notif
ications. If you are using Outlook Express, please make sure you clear the
check box "Tools/Options/Read: Get 300 headers at a time" to see your reply
promptly.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscripti...t/default.aspx.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.

[Mercdev]

Thanks, but I have read this articles before. And they were not helpfull.
I have managed wrapper for IWebBrowser2.
Maybe you can provide me with some sample code how to obtain any interface,
i tried as follow:
[Guid("6d5140c1-7436-11ce-8034-00aa006009fa"), ComImport,

InterfaceType(C omInterfaceType .InterfaceIsIUn known)]

interface IServiceProvide rMy

{

IntPtr QueryService(

ref Guid guidService,

ref Guid riid,

out IntPtr pVoid);
}
class MyContorl : UserControl
{
....
public MyContorl ()
{
...
IWebBrowser2 wb = this.GetService (typeof(IWebBro wser2)) as
IWebBrowser2;
// also i've tried as:
// IWebBrowser2 wb = this.Site.GetSe rvice(typeof(IW ebBrowser2)) as
IWebBrowser2;
// and
// IServiceProvide rMy wb =
this.GetService (typeof(IServic eProviderMy)) as IServiceProvide rMy;

...
}
....
}

All this ways didn't work.

[Walter Wang [MSFT]]

I'll do some research and get back to you later. Thank you for your
patience and understanding.
Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.

[Walter Wang [MSFT]]

Hi Mercdev,

To navigate IE from your control, you only need to obtain IWebBrowser
interface. (Let me know if you still want to get IWebBrowser2, it should be
similar)

public class SimpleControl : System.Windows. Forms.Control
{
public SimpleControl()
: base()
{
Button btn = new Button();
btn.Parent = this;
btn.Text = "Button1";
btn.Location = new Point(10, 10);
btn.Click += new EventHandler(Bt n_OnClick);
Controls.Add(bt n);
}

//from shlguid.h
Guid SID_STopLevelBr owser = new Guid(0x4C96BE40 , 0x915C, 0x11CF, 0x99,
0xD3, 0x00, 0xAA, 0x00, 0x4A, 0xE8, 0x37);
Guid SID_SWebBrowser App = new Guid(0x0002DF05 , 0x0000, 0x0000, 0xC0,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46);

private void Btn_OnClick(obj ect sender, EventArgs e)
{
Type typeIOleObject = this.GetType(). GetInterface("I OleObject",
true);
object oleClientSite = typeIOleObject. InvokeMember("G etClientSite",
BindingFlags.In stance | BindingFlags.In vokeMethod |
BindingFlags.Pu blic,
null, this, null);

IServiceProvide r serviceProvider = oleClientSite as
IServiceProvide r;
Guid guidIServicePro vider = typeof(IService Provider).GUID;
object objIServiceProv ider;
serviceProvider .QueryService(r ef SID_STopLevelBr owser, ref
guidIServicePro vider, out objIServiceProv ider);
serviceProvider = objIServiceProv ider as IServiceProvide r;
object objIWebBrowser;
Guid guidIWebBrowser = typeof(IWebBrow ser).GUID;
serviceProvider .QueryService(r ef SID_SWebBrowser App, ref
guidIWebBrowser , out objIWebBrowser) ;
IWebBrowser webBrowser = objIWebBrowser as IWebBrowser;
MessageBox.Show (webBrowser.Loc ationURL);
object flags = null;
object targetFrameName = null;
object postData = null;
object headers = null;
webBrowser.Navi gate("about:bla nk", ref flags, ref targetFrameName ,
ref postData, ref headers);
}
}

[ComImport, Guid("6d5140c1-7436-11ce-8034-00aa006009fa"),
InterfaceType(C omInterfaceType .InterfaceIsIUn known)]
public interface IServiceProvide r
{
void QueryService(re f Guid guidService, ref Guid riid,
[MarshalAs(Unman agedType.Interf ace)] out object ppvObject);
}

[ComImport, TypeLibType((sh ort)0x1050),
Guid("EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B")]
public interface IWebBrowser
{
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(100)]
void GoBack();
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x65)]
void GoForward();
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x66)]
void GoHome();
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x67)]
void GoSearch();
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x68)]
void Navigate([In, MarshalAs(Unman agedType.BStr)] string URL, [In,
Optional, MarshalAs(Unman agedType.Struct )] ref object Flags, [In, Optional,
MarshalAs(Unman agedType.Struct )] ref object TargetFrameName , [In, Optional,
MarshalAs(Unman agedType.Struct )] ref object PostData, [In, Optional,
MarshalAs(Unman agedType.Struct )] ref object Headers);
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(-550)]
void Refresh();
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x69)]
void Refresh2([In, Optional, MarshalAs(Unman agedType.Struct )] ref
object Level);
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0x6a)]
void Stop();
[DispId(200)]
object Application { [return: MarshalAs(Unman agedType.IDispa tch)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(200)] get; }
[DispId(0xc9)]
object Parent { [return: MarshalAs(Unman agedType.IDispa tch)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xc9)] get; }
[DispId(0xca)]
object Container { [return: MarshalAs(Unman agedType.IDispa tch)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xca)] get; }
[DispId(0xcb)]
object Document { [return: MarshalAs(Unman agedType.IDispa tch)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xcb)] get; }
[DispId(0xcc)]
bool TopLevelContain er { [MethodImpl(Meth odImplOptions.I nternalCall,
MethodCodeType = MethodCodeType. Runtime), DispId(0xcc)] get; }
[DispId(0xcd)]
string Type { [return: MarshalAs(Unman agedType.BStr)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xcd)] get; }
[DispId(0xce)]
int Left { [MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xce)] get; [param: In]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xce)] set; }
[DispId(0xcf)]
int Top { [MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xcf)] get; [param: In]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xcf)] set; }
[DispId(0xd0)]
int Width { [MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType
= MethodCodeType. Runtime), DispId(0xd0)] get; [param: In]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xd0)] set; }
[DispId(0xd1)]
int Height { [MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType
= MethodCodeType. Runtime), DispId(0xd1)] get; [param: In]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xd1)] set; }
[DispId(210)]
string LocationName { [return: MarshalAs(Unman agedType.BStr)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(210)] get; }
[DispId(0xd3)]
string LocationURL { [return: MarshalAs(Unman agedType.BStr)]
[MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType =
MethodCodeType. Runtime), DispId(0xd3)] get; }
[DispId(0xd4)]
bool Busy { [MethodImpl(Meth odImplOptions.I nternalCall, MethodCodeType
= MethodCodeType. Runtime), DispId(0xd4)] get; }
}
Summary:

1) Define IServiceProvide r and IWebBrowser com interface in .NET
2) When the control is hosted in IE, first try to get the IOleObject
interface, then use reflection to call GetClientSite to get the
IServiceProvide r interface.

This will require UnmanagedCode and Reflection permission set.

Let me know if this works for you.

Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.

[Mercdev]

Thank you, this is what we need!!