如何在ActiveX控件中获得IE地址栏中的地址？？？？？？？？？？

问题： 如何在ActiveX控件中获得IE地址栏中的地址？？？？？？？？？？
描述:

最好有事例！谢谢

---

解决方案1:

http://support.microsoft.com/kb/181678
void CVC404PCtrl::OnSetClientSite() 
...{
// TODO: Add your specialized code here and/or call the base class
if (m_pControlSite != NULL)
...{
// Obtain URL from container moniker.
CComPtr<IMoniker> spmk;
LPOLESTR pszDisplayName;
IOleClientSite *pClientSite = NULL;
m_pControlSite->QueryInterface(IID_IOleClientSite, (void**)&pClientSite);
if (SUCCEEDED(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);
CString strServerIP = OLE2T(bstrURL);
g_strServerIP = strServerIP.Mid(7);
int nPos = g_strServerIP.Find('/', 0);
if(nPos > 0)
g_strServerIP = g_strServerIP.Left(nPos);
}
}
}
}
http://blog.csdn.net/jiangsheng/archive/2006/03/05/615714.aspx