VC实现同一个IE中打开不同的地址

最近做一个项目，总是需要在同一个IE中打开不同的地址。我们常用的打开网页的方法有以下几种：

一、shellexecute

二、navigate/navigate2

但是这几种方法不好控制IE。在网上看到一篇文章，Automate the Active Windows Explorer or Internet Explorer Window - CodeProject （网址是http://www.codeproject.com/KB/shell/AutomateShellWindow.aspx），修改了一下其中的代码，实现了自己想要的功能。

 

步骤如下：

1，新建一个工程

2，在头文件中加入

#include "afxtempl.h" 和

typedef    CComQIPtr<IWebBrowser2> CComQIPtrIWebBrowser2;

3，声明如下函数

void    AttachShellWindow(BOOL bIE);

void    AdviseSinkIE(); void    UnadvisesinkIE();

void    NavigateToSamplePage(BOOL bIE);

CString    GetWindowClassName(IWebBrowser2* pwb);

4，实现上述函数。

void    AdviseSinkIE() {     if(m_pWebBrowser2)     {         LPUNKNOWN pUnkSink = GetIDispatch(FALSE);         AfxConnectionAdvise((LPUNKNOWN)m_pWebBrowser2,             DIID_DWebBrowserEvents2,pUnkSink,FALSE,&m_dwCookie);     } } void    UnadvisesinkIE() {     if(m_dwCookie != 0&&m_pWebBrowser2!=NULL)     {         LPUNKNOWN pUnkSink = GetIDispatch(FALSE);         AfxConnectionUnadvise((LPUNKNOWN)m_pWebBrowser2, DIID_DWebBrowserEvents2, pUnkSink, FALSE, m_dwCookie);         m_dwCookie = 0;     } }

CString    GetWindowClassName(IWebBrowser2* pwb)取得所有打开的窗口名 {     TCHAR szClassName[_MAX_PATH];     ZeroMemory(szClassName,_MAX_PATH*sizeof(TCHAR));     HWND hwnd=NULL;     if(pwb)     {         LONG_PTR lwnd=NULL;         pwb->get_HWND(&lwnd);         hwnd=reinterpret_cast<HWND>(lwnd);         ::GetClassName(hwnd,szClassName,_MAX_PATH);     }     return szClassName; } void    AttachShellWindow(BOOL bIE) {     CoInitialize(NULL);初始化com，此句非常重要。        if(!UpdateData())return;     if(m_pWebBrowser2)     {         if(m_bOwnIE)         {             m_pWebBrowser2->Quit();             m_bOwnIE=FALSE;         }         UnadvisesinkIE();     }       CComPtr<IShellWindows> psw;得到正在运行的IE实例列表     psw.CoCreateInstance(CLSID_ShellWindows);     if(psw)     {               CDWordArray    arHWNDShellWindows;用来存储IE句柄的数组         arHWNDShellWindows.SetSize(0,10);            CTypedPtrArray<CPtrArray,CComQIPtrIWebBrowser2*> arShellWindows;         arShellWindows.SetSize(0,10);                    long lShellWindowCount=0;         psw->get_Count(&lShellWindowCount);         for(long i=0;i<lShellWindowCount;i++)         {             CComPtr<IDispatch> pdispShellWindow;             psw->Item(COleVariant(i),&pdispShellWindow);             CComQIPtr<IWebBrowser2> pIE(pdispShellWindow);             if(pIE)             {                                CString strWindowClass=GetWindowClassName(pIE);                 if(bIE?    strWindowClass==_T("IEFrame")判断是否是需要的窗口                     :strWindowClass==_T("ExploreWClass"))                 {                     HWND hWndID=NULL;                     pIE->get_HWND((long*)&hWndID);                                                       arHWNDShellWindows.Add((DWORD)hWndID);                     arShellWindows.Add(new CComQIPtrIWebBrowser2(pIE));                 }             }            }         if(arHWNDShellWindows.GetSize()>0)     根据IE窗口的Z顺序，找到最新的窗口             {             BOOL bFound=FALSE;                                 HWND hwndTest=::GetWindow((HWND)arHWNDShellWindows[0],GW_HWNDFIRST);             while( hwndTest&& !bFound)             {                 for(int i=0;i<arHWNDShellWindows.GetSize();i++)                 {                     if(hwndTest==(HWND)arHWNDShellWindows[i])                     {                                             m_pWebBrowser2=*arShellWindows[i];                         AdviseSinkIE();                         NavigateToSamplePage(bIE);                         bFound=TRUE;                         m_bOwnIE=FALSE;                         break;                     }                 }                 hwndTest = ::GetWindow(hwndTest, GW_HWNDNEXT);             }         }               for(int i=0;i<arShellWindows.GetSize();i++)         {             delete arShellWindows[i];         }     } } void    NavigateToSamplePage(BOOL bIE)用来打开的网页 {     if(bIE)     {         if(!::PathIsURL(m_strFileToFind))             m_strFileToFind=_T("http://www.baidu.com/");         COleVariant vaURL((LPCTSTR)m_strFileToFind);         m_pWebBrowser2->Navigate2(             &vaURL,COleVariant((long) 0, VT_I4),             COleVariant((LPCTSTR)NULL, VT_BSTR),             COleSafeArray(),             COleVariant((LPCTSTR)NULL, VT_BSTR)             );     }    } 5,在工程中新增一个函数，如onXXX()，在其中加入如下代码便能实现。

ShellExecute(m_hWnd,_T("open"),_T("IEXPLORE"),_T("www.sina.com.cn"),NULL,SW_SHOWNORMAL);  Sleep(2000);   AttachShellWindow(TRUE);

最后，程序会打开一个IE，跳转到新浪首页，过2s后会自动跳转到百度首页。

 

如有疑问请留下您的联系方式。