VC++ webbrowser函数使用范例

/*============================说明部分=================================
 实现一下函数需包含头文件
#include <Wininet.h>
#include <Shlwapi.h>
Linker : Wininet.lib  Shlwapi.lib
=================================================================*/
/*========================================END========================================*/

/*============================说明部分=================================
清除指定网页Cookie,注意传参,如:www.baidu.com 要写为:baidu.com
=================================================================*/
BOOL CleanUrlCache(LPCTSTR lpUrl)
{
    LPINTERNET_CACHE_ENTRY_INFO lpICEI = NULL;
    DWORD dwSize = 0;
    HANDLE hFind = FindFirstUrlCacheEntry(NULL, NULL, &dwSize);
    if (hFind == NULL && GetLastError() != ERROR_INSUFFICIENT_BUFFER)
        return FALSE;

    lpICEI = (LPINTERNET_CACHE_ENTRY_INFO)new char[dwSize];
    hFind = FindFirstUrlCacheEntry(NULL, lpICEI, &dwSize);
    if (hFind == NULL)
    {
        delete lpICEI;
        return FALSE;
    }

    do
    {
        if (StrStrI(lpICEI->lpszSourceUrlName, lpUrl))
        {
            int bRet = DeleteUrlCacheEntry(lpICEI->lpszSourceUrlName);
        }
        delete lpICEI;
        lpICEI = NULL;
        dwSize = 0;

        if (!FindNextUrlCacheEntry(hFind, NULL, &dwSize) && GetLastError() != ERROR_INSUFFICIENT_BUFFER)
            break;
        lpICEI = (LPINTERNET_CACHE_ENTRY_INFO)new char[dwSize];
    } while (FindNextUrlCacheEntry(hFind, lpICEI, &dwSize));

    if (lpICEI != NULL)
        delete lpICEI;
    return TRUE;
}
/*========================================END========================================*/




/*============================说明部分=================================
清除IE所有Cookie
#include <Wininet.h>
Linker : Wininet.lib
=================================================================*/
void   ClearInternetCache()
{
    DWORD   dwNeeded   =   0;
    FindFirstUrlCacheEntry(NULL,   NULL,   &dwNeeded);

    if   (GetLastError()   ==   ERROR_INSUFFICIENT_BUFFER)
    {
        unsigned   char   *buffer   =   new   unsigned   char[dwNeeded];
        try
        {
            LPINTERNET_CACHE_ENTRY_INFO   lpicei   =
                reinterpret_cast<LPINTERNET_CACHE_ENTRY_INFO>(buffer);
            HANDLE   HFind   =     FindFirstUrlCacheEntry(NULL,   lpicei,   &dwNeeded);
            DeleteUrlCacheEntry(lpicei->lpszSourceUrlName);

            bool   no_more_files   =   false;
            while   (!no_more_files)
            {
                if   (FindNextUrlCacheEntry(HFind,   lpicei,   &dwNeeded))
                {
                    DeleteUrlCacheEntry(lpicei->lpszSourceUrlName);
                }
                else   switch   (GetLastError())
                {
case   ERROR_INSUFFICIENT_BUFFER:
    {
        delete   []   buffer;
        buffer   =   new   unsigned   char[dwNeeded];
        lpicei   =   reinterpret_cast<LPINTERNET_CACHE_ENTRY_INFO>(buffer);
        break;
    }
default:
    {
        no_more_files   =   true;
        break;
    }
                }
            }
            FindCloseUrlCache(HFind);
        }
        catch   (...)
        {
            delete   []   buffer;
        }
        delete   []   buffer;
    }
}

/*========================================END========================================*/

/*============================说明部分=================================
CString 转换为 VARIANT 类型
=================================================================*/
StringToVariant(CString str)
{
    VARIANT variant;
    VariantInit(&variant);
    variant.vt=VT_BSTR;
    variant.bstrVal=str.AllocSysString();

    return variant;
}
/*========================================END========================================*/

/*============================说明部分=================================
打开指定URL,其中m_webBrowser 是web browser
控件关联的控件类型的变量
=================================================================*/
OpenURL(LPCTSTR strURL)
{
    VARIANT vInfo;
    VariantInit(&vInfo);
    CString strHeaders=_T("Content-Type:application/x-WWW-form-urlencoded");
    VARIANT vHeaders=StringToVariant(strHeaders);
    m_webBrowser.Navigate(strURL,&vInfo,&vInfo,&vInfo,&vHeaders);
}
/*========================================END========================================*/




/*============================说明部分=================================
向指定ID的HTML标记中输入文字
strID为标记的ID值
#include <mshtml.h>
#include <atlbase.h>
=================================================================*/
InputText(CString strID, CComVariant strText)
{
    HRESULT hr;

    IDispatch *pDisp;
    pDisp=m_webBrowser.get_Document();  //得到webBrowser控件接口

    IHTMLDocument2* pDoc;
    hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc); //得到网页文档接口

    IHTMLElementCollection* pColl=NULL;
    hr=pDoc->get_all(&pColl);//得到所有网页元素记录集合

    IDispatch *pDisp2;
    VARIANT index;//用于接收返回元素基于的索引，一般不用，设为0就好，而是用IDispatch 接收元素对象接口
    //V_VT(&index)=VT_I4;
    //V_I4(&index)=0;
    index.vt=VT_I4;
    index.lVal=0;

    VARIANT varID;//要查找的HTML标记ID
    varID=StringToVariant(strID);

    hr=pColl->item(varID,index,&pDisp2); //找到元素的位置
    if(S_OK==hr&&NULL!=pDisp2)
    {
        IHTMLElement* pElem=NULL;
        hr=pDisp2->QueryInterface(IID_IHTMLElement,(void**)&pElem);

        if(S_OK==hr&&NULL!=pElem)
        {
            pElem->put_innerText(strText.bstrVal);
            pElem->Release();
        }
        pDisp2->Release();
        pDisp->Release();
    }
}
/*========================================END========================================*/
/*============================说明部分=================================
点击指定ID值的ＨＴＭＬ按钮
strID是按钮的ID值
#include <mshtml.h>
#include <atlbase.h>
=================================================================*/
ClickBtn(CString strID)
{
    HRESULT hr;
    IDispatch* pDisp;
    pDisp=m_webBrowser.get_Document();//①得到网页控件接口

    IHTMLDocument2* pDoc;
    hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc);//②得到网页文档接口

    IHTMLElementCollection* pColl=NULL;
    hr=pDoc->get_all(&pColl);//③得到网页元素记录集合接口

    IDispatch* pDisp2;
    VARIANT index;
    //V_VT(&index)=VT_I4;
    //V_I4(&index)=0;
    index.vt=VT_I4;
    index.lVal=0;

    VARIANT varID;
    varID=StringToVariant(strID);

    hr=pColl->item(varID,index,&pDisp2);//④得到指定HTML标记接口

    if(S_OK==hr&&NULL!=pDisp2)
    {
        IHTMLElement* pElem=NULL;
        hr=pDisp2->QueryInterface(IID_IHTMLElement,(void**)&pElem);//⑤得到确定元素接口

        if(S_OK==hr&&NULL!=pElem)
        {
            pElem->click();
            pElem->Release();
        }
        pDisp2->Release();
        pDisp->Release();
    }
}
/*========================================END========================================*/
/*===============================================================
根据页面Class属性值点击页面元素
=================================================================*/
void CPiLiangQianDaoDlg::ClickByClassName()
{
    IHTMLElementCollection   *objAllElement=NULL;
    IHTMLDocument2   *objDocument=NULL;

    objDocument=(IHTMLDocument2 *)m_webBrowser.get_Document();
    //由控件得到IHTMLDocument2接口指针

    objDocument-> get_all(&objAllElement);   //得到网页所有元素的集合

    IHTMLElement   *   pElem   =   NULL;
    VARIANT   name;
    CComBSTR   tag;
    long     a;
    objAllElement-> get_length(&a);
    name.vt=VT_I4;
    for(int   i=0;i <a;i++)//遍历所有元素
    {
        name.lVal   =   i;
        IDispatch   *   pDispatch=NULL;
        objAllElement-> item(name,name,&pDispatch);
        IHTMLElement*   spElement;
        pDispatch-> QueryInterface(IID_IHTMLElement,   (void**)&spElement);
        BSTR   tag;
        spElement->get_className(&tag);
        CString   ss(tag);
        if(ss == "j_signbtn sign_btn2 j_cansign sign0" || ss == "j_signbtn sign_btn2 j_cansign sign1" || ss == "j_signbtn sign_btn2 j_cansign sign6")
            spElement-> click();
    }
/*=====================================================================================*/
/*=====================================================================================
根据网页打开的进程设置进度条
给web browser添加OnProgressChange响应函数
m_procCtrl是进度条关联的控件变量
=======================================================================*/
if(ProgressMax>0)
    m_procCtrl.SetPos(100*Progress / ProgressMax);
//========================================

/*====================================================================
搜索点击页面文字连接
Str为文字
=======================================================================*/
ClickItem(CString str)
{
    IHTMLElementCollection   *objAllElement=NULL;
    IHTMLDocument2   *objDocument=NULL;

   objDocument=(IHTMLDocument2 *)m_webBrowser.get_Document();
   //由控件得到IHTMLDocument2接口指针

    objDocument-> get_all(&objAllElement);   //得到网页所有元素的集合

    IHTMLElement   *   pElem   =   NULL;
    VARIANT   name;
    CComBSTR   tag;
    long     a;
    objAllElement-> get_length(&a);
    name.vt=VT_I4;
    for(int   i=0;i <a;i++)//遍历所有元素
    {
        name.lVal   =   i;
        IDispatch   *   pDispatch=NULL;
        objAllElement-> item(name,name,&pDispatch);
        IHTMLElement*   spElement;
        pDispatch-> QueryInterface(IID_IHTMLElement,   (void**)&spElement);
        BSTR   tag;
        spElement-> get_outerText(&tag);
        CString   ss(tag);
        if(ss=="地图")
            spElement-> click();
    }
}
/*=====================================================================================*/
/*=======================================================================================
在DocumentCompleteExplorer判断是否为主框架加载完毕
在页面中有多个框架时会多次触发，可能导致页面中后面的“首页”链接得不到，可以在void   CTest2Dlg::OnDownloadCompleteExplorer1(LPDISPATCH   pDisp,   VARIANT   FAR*   URL)
加入下面代码：
======================================================================================*/CComQIPtr <IWebBrowser2,   &IID_IWebBrowser2>   pWeb; CComQIPtr <IHTMLDocument2,&IID_IHTMLDocument2>   pDoc2; pWeb   =   pDisp; pWeb-> get_Document((IDispatch**)&pDoc2); if   (m_ie.GetDocument()   !=   pDoc2)   return;
/*==========================================================================*/


/*======================================================================
   判断网页是否加载完毕
========================================================================*/
void CPiLiangQianDaoDlg::DocumentCompleteExplorer(LPDISPATCH pDisp, VARIANT* URL)
{
    // TODO: 在此处添加消息处理程序代码
    if(m_webBrowser.get_ReadyState() == READYSTATE_COMPLETE && times == 0)
    {
     ((CListBox *)GetDlgItem(IDC_LIST_STATE))->AddString(_T("加载完毕！"));
     m_IsInitDone = 1;
     times++;
    }
}
/*======================================================================================
 截取网页部分内容，并画图显示
======================================================================================*/
{
CClientDC hImageDC(GetDlgItem(IDC_EDIT_INFO));

    HRESULT hr;

    IDispatch *pDisp;
    pDisp=m_webBrowser.get_Document();  //得到webBrowser控件接口

    IHTMLDocument2* pDoc;
    hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc); //得到网页文档接口

    IHTMLElementCollection* pColl=NULL;
    hr=pDoc->get_all(&pColl);//得到所有网页元素记录集合

    IDispatch *pDisp2;
    VARIANT index;//用于接收返回元素基于的索引，一般不用，设为就好，而是用IDispatch 接收元素对象接口
    //V_VT(&index)=VT_I4;
    //V_I4(&index)=0;
    index.vt=VT_I4;
    index.lVal=0;

    VARIANT varID;//要查找的HTML标记ID
    varID=StringToVariant(_T("userlike_info_head_img"));

    hr=pColl->item(varID,index,&pDisp2); //找到元素的位置
    if(S_OK==hr&&NULL!=pDisp2)
    {
        IHTMLElement3* pElem=NULL;
        hr=pDisp2->QueryInterface(IID_IHTMLElement3,(void**)&pElem);
        IHTMLElementRender *pRender =  NULL;
        pElem ->QueryInterface(IID_IHTMLElementRender, (void **) &pRender);
        pRender->DrawToDC(hImageDC);
    }
}
/*=================================================================================*/

/*=================================================================================
判断网页是否加在完全(包含框架)
原理:如果直接早DocummentComple里判断的话,包含多个框架(frame)的网页就会多次激发该函数。所以这里我们这里通过pDish判断是不是主框架的的借口（最后调用该函数），如果是的话就是最后一次激发，表示主框架家在完毕，也就是整个网页加载完毕！
=====================================================================================*/
void CTieBaGuajiDlg::DocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT* URL)
{
    // TODO: 在此处添加消息处理程序代码
    CComQIPtr <IWebBrowser2,   &IID_IWebBrowser2>   pWeb;
    CComQIPtr <IHTMLDocument2,&IID_IHTMLDocument2>   pDoc2;
    pWeb   =   pDisp;
    pWeb-> get_Document((IDispatch**)&pDoc2);
    if   (m_webBrowser.get_Document()   ==   pDoc2)
    {
          ((CListBox*)GetDlgItem(IDC_LIST_STATE))->AddString(_T("初始化完成！"));
    }
    /////////////////////////////////////////
    /*if(0==m_count)
    {
        ((CListBox*)GetDlgItem(IDC_LIST_STATE))->AddString(_T("初始化完成！"));
        m_count++;
    }*/
}
/*=============================================================================*/
/*==============================================================================
 另外如果不想让webbrowser空间弹出错误提示可以，在对空间资源编辑时设置Slient为TRUE
==============================================================================*/