How to get IOleSite interface of the WebBrowser in an ActiveX control

//based on Q172763 HOWTO: Retrieve the Top-Level IWebBrowser2 Interface from an ActiveX Control

using System;

using System.ComponentModel;

using System.Windows.Forms;

using System.Drawing;

using System.Reflection;

using System.Security;

using System.Runtime.InteropServices;

using SHDocVw;

 

 

//Use strongname to apply the customized pemission set

[assembly : AssemblyKeyFile(@"c:\key.snk")]

//Q814669 PRB: Strong Named User Controls Do Not render in Internet Explorer

[assembly: System.Security.AllowPartiallyTrustedCallers]

namespace Microsoft.Samples.WinForms.Cs.SimpleControl 

{

 

     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(Btn_OnClick);

              Controls.Add(btn);

         }

        //from shlguid.h

         Guid SID_STopLevelBrowser = new Guid(0x4C96BE40, 0x915C, 0x11CF, 0x99, 0xD3, 0x00, 0xAA, 0x00, 0x4A, 0xE8, 0x37);

         Guid SID_SWebBrowserApp = typeof(SHDocVw.IWebBrowserApp).GUID;

         private void Btn_OnClick(object sender, EventArgs e)

{

              try

{

                   Guid guidIServiceProvider = typeof(IServiceProvider).GUID;

                   Guid guidIWebBrowser2 = typeof(SHDocVw.IWebBrowser2).GUID;

                   object objIServiceProvider2;

                   object objIWebBrowser2;

 

              

                   Type typeIOleObject = this.GetType().GetInterface("IOleObject",true);

                //call the method on that interface

                   object oleClientSite = typeIOleObject.InvokeMember("GetClientSite",

                       BindingFlags.Instance|BindingFlags.InvokeMethod|BindingFlags.Public,

                       null,this,null);

                   IServiceProvider serviceProvider = oleClientSite as IServiceProvider;

                   serviceProvider.QueryService(ref SID_STopLevelBrowser,ref guidIServiceProvider, out objIServiceProvider2);

                   serviceProvider = objIServiceProvider2 as IServiceProvider;

                   serviceProvider.QueryService(ref SID_SWebBrowserApp, ref guidIWebBrowser2, out objIWebBrowser2);

                   IWebBrowser2 webBrowser = objIWebBrowser2 as IWebBrowser2;

                   MessageBox.Show(webBrowser.LocationURL);

              }

              catch(Exception ex)

{

                   System.Diagnostics.Debug.WriteLine(ex.ToString());

              }

 

         }

     }

 

     [

         ComImport,Guid("6d5140c1-7436-11ce-8034-00aa006009fa"),

         InterfaceType(ComInterfaceType.InterfaceIsIUnknown)

     ]

     public interface IServiceProvider

{

         void QueryService( ref Guid guidService,  ref Guid riid, [MarshalAs(UnmanagedType.Interface)] out object ppvObject); 

     }

}