精典的ASP 传奇的J2EE 新生的NET FTP服务器服务器安全 WINDOWS B/S 模式 WEB安全 WAP世界动态网站推广宣传
空间服务器数据库技术邮局服务器站長工具硬设与组建 Alexa专题 DHTML 项目管理 WEB标准电脑硬件
病毒知识电脑使用布线协议接入交换路由局域网无线网络网络规划
Visual Basic Visual C/C++ Mssql MySql oracle Sybase 存在安全风险进程系统进程列表应用程序进程列表其它进程列表
黑客编程漏洞分析本地提权免杀技术脚本漏洞数据库注入安全防护内网渗透加密解密工具使用
WAP技术 WAP入门

您的位置： >> 相关知识 >> 桌面应用程序 >> Visual Basic >>

嵌入IE的activex怎么才能获得IE地址栏中的URL

合金网络科技

添加日期:2007-5-26 点击次数:144次

参考

以下是引用片段：
  Q181678   HOWTO:   Retrieve   the   URL   of   a   Web   Page   from   an   ActiveX   Control
  Q195188   PRB:   ActiveX   Control   Window   Is   Not   Created   Until   Visible   in   Internet   Explorer

  ActiveX控件中访问文档对象模型
  知识库文章Q172763   INFO:   Accessing   the   Object   Model   from   Within   an   ActiveX   Control   描述了这个问题的解决方案。可以看到，可以同样使用IOleClientSite来和IE这个控件容器交互。可以使用IOleClientSite::GetContainer得到网页所在HTML文档对象的IOleContainer接口，然后再查询其他接口，例如IHTMLDocument2来进行对DHTML对象模型的访问，或者用IMoniker获得网址。

  ActiveX控件的WM_CREATE直到控件第一次可见的时候才被调用。WM_DESTORY在离开或者关闭页面的时候也没有被调用。在控件大小是0*0的时候也有同样的问题。如果你在这之前(例如window.onload事件的处理代码)中访问控件的窗口或者子窗口，那么不会成功

  大多数ActiveX控件框架，例如MFC和ATL,在本地激活ActiveX控件时创建控件。IE直到控件第一次可见的时候才本地激活ActiveX控件。这使得包含ActiveX控件的网页载入更加迅速，占用内存更少。这也使得ActiveX控件的WM_CREATE直到控件第一次可见的时候才被调用。

  如果控件支持非窗口激活，那么IE会以非窗口激活方式创建控件，这时候控件的WM_DESTORY不会被调用。

  控件的IOleObject::SetClientSite()实现无论控件是否被本地激活都会被宿主调用。在初始化的时候，传递的指针是宿主的(IOleClientSite   接口指针，在清除的时候，传递的指针是空指针。可以根据这个指针来判断控件的状态，并且执行初始化或者清除的代码。

MFC

以下是引用片段：
  MFC对IOleObject::SetClientSite()的实现包含对虚函数COleControl::OnSetClientSite()调用。这时候可以根据m_pClientSite是否为空指针来判断控件是被加载还是被清除。

  //   CMyControl   is   derived   from   COleControl.
  void   CMyControl::OnSetClientSite()
  {
  if   (m_pClientSite)   {
              //   It   doesn|t   matter   who   the   parent   window   is   or   what   the   size   of
              //   the   window   is   because   the   control|s   window   will   be   reparented
              //   and   resized   correctly   later   when   it|s   in-place   activated.
              VERIFY   (CreateControlWindow   (::GetDesktopWindow(),   CRect(0,0,0,0),   CRect(0,0,0,0)));
              //   Obtain   URL   from   container   moniker.
              CComPtr<IMoniker>   spmk;
              LPOLESTR   pszDisplayName;

              if   (SUCCEEDED(m_pClientSite->GetMoniker(
                                                                          OLEGETMONIKER_TEMPFORUSER,
                                                                          OLEWHICHMK_CONTAINER,
                                                                          &spmk)))
              {
                    if   (SUCCEEDED(spmk->GetDisplayName(
                                                                    NULL,   NULL,   &pszDisplayName)))
                    {
                          USES_CONVERSION;

                          CComBSTR   bstrURL;
                          bstrURL   =   pszDisplayName;

                          ATLTRACE('The   current   URL   is   %s\n',   OLE2T(bstrURL));
                          CoTaskMemFree((LPVOID)pszDisplayName);
                    }

  }
  else
  DestroyWindow();
  COleControl::OnSetClientSite();
  }