1 /*============================说明部分=================================   2  实现一下函数需包含头文件   3 #include <Wininet.h>   4 #include <Shlwapi.h>   5 Linker : Wininet.lib  Shlwapi.lib   6 =================================================================*/    7 /*========================================END========================================*/    8     9 /*============================说明部分=================================  10 清除指定网页Cookie,注意传参,如:www.baidu.com 要写为:baidu.com  11 =================================================================*/   12 BOOL CleanUrlCache(LPCTSTR lpUrl)   13 {   14     LPINTERNET_CACHE_ENTRY_INFO lpICEI = NULL;   15     DWORD dwSize = 0;   16     HANDLE hFind = FindFirstUrlCacheEntry(NULL, NULL, &dwSize);   17     if (hFind == NULL && GetLastError() != ERROR_INSUFFICIENT_BUFFER)   18         return FALSE;   19    20     lpICEI = (LPINTERNET_CACHE_ENTRY_INFO)new char[dwSize];   21     hFind = FindFirstUrlCacheEntry(NULL, lpICEI, &dwSize);   22     if (hFind == NULL)   23     {   24         delete lpICEI;   25         return FALSE;   26     }   27    28     do    29     {   30         if (StrStrI(lpICEI->lpszSourceUrlName, lpUrl))   31         {   32             int bRet = DeleteUrlCacheEntry(lpICEI->lpszSourceUrlName);   33         }   34         delete lpICEI;   35         lpICEI = NULL;   36         dwSize = 0;   37    38         if (!FindNextUrlCacheEntry(hFind, NULL, &dwSize) && GetLastError() != ERROR_INSUFFICIENT_BUFFER)   39             break;   40         lpICEI = (LPINTERNET_CACHE_ENTRY_INFO)new char[dwSize];   41     } while (FindNextUrlCacheEntry(hFind, lpICEI, &dwSize));   42    43     if (lpICEI != NULL)   44         delete lpICEI;   45     return TRUE;   46 }   47 /*========================================END========================================*/   48    49    50    51    52 /*============================说明部分=================================  53 清除IE所有Cookie  54 #include <Wininet.h>  55 Linker : Wininet.lib  56 =================================================================*/   57 void   ClearInternetCache()      58 {      59     DWORD   dwNeeded   =   0;      60     FindFirstUrlCacheEntry(NULL,   NULL,   &dwNeeded);     61    62     if   (GetLastError()   ==   ERROR_INSUFFICIENT_BUFFER)      63     {      64         unsigned   char   *buffer   =   new   unsigned   char[dwNeeded];      65         try      66         {      67             LPINTERNET_CACHE_ENTRY_INFO   lpicei   =      68                 reinterpret_cast<LPINTERNET_CACHE_ENTRY_INFO>(buffer);      69             HANDLE   HFind   =     FindFirstUrlCacheEntry(NULL,   lpicei,   &dwNeeded);      70             DeleteUrlCacheEntry(lpicei->lpszSourceUrlName);     71    72             bool   no_more_files   =   false;      73             while   (!no_more_files)      74             {      75                 if   (FindNextUrlCacheEntry(HFind,   lpicei,   &dwNeeded))      76                 {      77                     DeleteUrlCacheEntry(lpicei->lpszSourceUrlName);      78                 }      79                 else   switch   (GetLastError())      80                 {      81 case   ERROR_INSUFFICIENT_BUFFER:      82     {      83         delete   []   buffer;      84         buffer   =   new   unsigned   char[dwNeeded];      85         lpicei   =   reinterpret_cast<LPINTERNET_CACHE_ENTRY_INFO>(buffer);      86         break;      87     }      88 default:      89     {      90         no_more_files   =   true;      91         break;      92     }      93                 }      94             }   95             FindCloseUrlCache(HFind);   96         }      97         catch   (...)      98         {      99             delete   []   buffer;     100         }     101         delete   []   buffer;                     102     }     103 }  104   105 /*========================================END========================================*/  106   107 /*============================说明部分================================= 108 CString 转换为 VARIANT 类型 109 =================================================================*/  110 StringToVariant(CString str)  111 {  112     VARIANT variant;  113     VariantInit(&variant);  114     variant.vt=VT_BSTR;  115     variant.bstrVal=str.AllocSysString();  116   117     return variant;  118 }  119 /*========================================END========================================*/  120   121 /*============================说明部分================================= 122 打开指定URL,其中m_webBrowser 是web browser 123 控件关联的控件类型的变量 124 =================================================================*/  125 OpenURL(LPCTSTR strURL)  126 {  127     VARIANT vInfo;  128     VariantInit(&vInfo);  129     CString strHeaders=_T("Content-Type:application/x-WWW-form-urlencoded");  130     VARIANT vHeaders=StringToVariant(strHeaders);  131     m_webBrowser.Navigate(strURL,&vInfo,&vInfo,&vInfo,&vHeaders);  132 }  133 /*========================================END========================================*/  134   135   136   137   138 /*============================说明部分================================= 139 向指定ID的HTML标记中输入文字 140 strID为标记的ID值  141 #include <mshtml.h> 142 #include <atlbase.h> 143 =================================================================*/  144 InputText(CString strID, CComVariant strText)  145 {  146     HRESULT hr;  147   148     IDispatch *pDisp;  149     pDisp=m_webBrowser.get_Document();  //得到webBrowser控件接口  150   151     IHTMLDocument2* pDoc;  152     hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc); //得到网页文档接口  153       154     IHTMLElementCollection* pColl=NULL;  155     hr=pDoc->get_all(&pColl);//得到所有网页元素记录集合  156   157     IDispatch *pDisp2;  158     VARIANT index;//用于接收返回元素基于的索引，一般不用，设为0就好，而是用IDispatch 接收元素对象接口  159     //V_VT(&index)=VT_I4;  160     //V_I4(&index)=0;  161     index.vt=VT_I4;  162     index.lVal=0;  163   164     VARIANT varID;//要查找的HTML标记ID  165     varID=StringToVariant(strID);  166   167     hr=pColl->item(varID,index,&pDisp2); //找到元素的位置  168     if(S_OK==hr&&NULL!=pDisp2)  169     {  170         IHTMLElement* pElem=NULL;  171         hr=pDisp2->QueryInterface(IID_IHTMLElement,(void**)&pElem);  172   173         if(S_OK==hr&&NULL!=pElem)  174         {  175             pElem->put_innerText(strText.bstrVal);  176             pElem->Release();  177         }  178         pDisp2->Release();  179         pDisp->Release();  180     }  181 }  182 /*========================================END========================================*/  183 /*============================说明部分================================= 184 点击指定ID值的ＨＴＭＬ按钮 185 strID是按钮的ID值 186 #include <mshtml.h> 187 #include <atlbase.h> 188 =================================================================*/  189 ClickBtn(CString strID)  190 {  191     HRESULT hr;  192     IDispatch* pDisp;  193     pDisp=m_webBrowser.get_Document();//①得到网页控件接口  194   195     IHTMLDocument2* pDoc;  196     hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc);//②得到网页文档接口  197   198     IHTMLElementCollection* pColl=NULL;  199     hr=pDoc->get_all(&pColl);//③得到网页元素记录集合接口  200   201     IDispatch* pDisp2;  202     VARIANT index;  203     //V_VT(&index)=VT_I4;  204     //V_I4(&index)=0;  205     index.vt=VT_I4;  206     index.lVal=0;  207   208     VARIANT varID;  209     varID=StringToVariant(strID);  210   211     hr=pColl->item(varID,index,&pDisp2);//④得到指定HTML标记接口  212   213     if(S_OK==hr&&NULL!=pDisp2)  214     {  215         IHTMLElement* pElem=NULL;  216         hr=pDisp2->QueryInterface(IID_IHTMLElement,(void**)&pElem);//⑤得到确定元素接口  217   218         if(S_OK==hr&&NULL!=pElem)  219         {  220             pElem->click();  221             pElem->Release();  222         }  223         pDisp2->Release();  224         pDisp->Release();  225     }  226 }  227 /*========================================END========================================*/  228 /*=============================================================== 229 根据页面Class属性值点击页面元素 230 =================================================================*/  231 void CPiLiangQianDaoDlg::ClickByClassName()  232 {  233     IHTMLElementCollection   *objAllElement=NULL;   234     IHTMLDocument2   *objDocument=NULL;   235   236     objDocument=(IHTMLDocument2 *)m_webBrowser.get_Document();   237     //由控件得到IHTMLDocument2接口指针  238   239     objDocument-> get_all(&objAllElement);   //得到网页所有元素的集合  240   241     IHTMLElement   *   pElem   =   NULL;     242     VARIANT   name;   243     CComBSTR   tag;   244     long     a;   245     objAllElement-> get_length(&a);   246     name.vt=VT_I4;  247     for(int   i=0;i <a;i++)//遍历所有元素  248     {   249         name.lVal   =   i;   250         IDispatch   *   pDispatch=NULL;   251         objAllElement-> item(name,name,&pDispatch);   252         IHTMLElement*   spElement;   253         pDispatch-> QueryInterface(IID_IHTMLElement,   (void**)&spElement);   254         BSTR   tag;   255         spElement->get_className(&tag);   256         CString   ss(tag);   257         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")   258             spElement-> click();   259     }   260 /*=====================================================================================*/  261 /*===================================================================================== 262 根据网页打开的进程设置进度条 263 给web browser添加OnProgressChange响应函数 264 m_procCtrl是进度条关联的控件变量 265 =======================================================================*/  266 if(ProgressMax>0)  267     m_procCtrl.SetPos(100*Progress / ProgressMax);  268 //========================================  269   270 /*==================================================================== 271 搜索点击页面文字连接 272 Str为文字 273 =======================================================================*/  274 ClickItem(CString str)  275 {  276     IHTMLElementCollection   *objAllElement=NULL;   277     IHTMLDocument2   *objDocument=NULL;   278           279    objDocument=(IHTMLDocument2 *)m_webBrowser.get_Document();   280    //由控件得到IHTMLDocument2接口指针  281   282     objDocument-> get_all(&objAllElement);   //得到网页所有元素的集合  283   284     IHTMLElement   *   pElem   =   NULL;     285     VARIANT   name;   286     CComBSTR   tag;   287     long     a;   288     objAllElement-> get_length(&a);   289     name.vt=VT_I4;  290     for(int   i=0;i <a;i++)//遍历所有元素  291     {   292         name.lVal   =   i;   293         IDispatch   *   pDispatch=NULL;   294         objAllElement-> item(name,name,&pDispatch);   295         IHTMLElement*   spElement;   296         pDispatch-> QueryInterface(IID_IHTMLElement,   (void**)&spElement);   297         BSTR   tag;   298         spElement-> get_outerText(&tag);   299         CString   ss(tag);   300         if(ss=="地图")   301             spElement-> click();   302     }   303 }  304 /*=====================================================================================*/  305 /*======================================================================================= 306 在DocumentCompleteExplorer判断是否为主框架加载完毕 307 在页面中有多个框架时会多次触发，可能导致页面中后面的“首页”链接得不到，可以在void   CTest2Dlg::OnDownloadCompleteExplorer1(LPDISPATCH   pDisp,   VARIANT   FAR*   URL)  308 加入下面代码：  309 ======================================================================================*/CComQIPtr <IWebBrowser2,   &IID_IWebBrowser2>   pWeb; CComQIPtr <IHTMLDocument2,&IID_IHTMLDocument2>   pDoc2; pWeb   =   pDisp; pWeb-> get_Document((IDispatch**)&pDoc2); if   (m_ie.GetDocument()   !=   pDoc2)   return;  310 /*==========================================================================*/  311   312   313 /*====================================================================== 314    判断网页是否加载完毕 315 ========================================================================*/  316 void CPiLiangQianDaoDlg::DocumentCompleteExplorer(LPDISPATCH pDisp, VARIANT* URL)  317 {  318     // TODO: 在此处添加消息处理程序代码  319     if(m_webBrowser.get_ReadyState() == READYSTATE_COMPLETE && times == 0)   320     {  321      ((CListBox *)GetDlgItem(IDC_LIST_STATE))->AddString(_T("加载完毕！"));  322      m_IsInitDone = 1;  323      times++;  324     }  325 }     326 /*====================================================================================== 327  截取网页部分内容，并画图显示 328 ======================================================================================*/  329 {  330 CClientDC hImageDC(GetDlgItem(IDC_EDIT_INFO));  331   332     HRESULT hr;  333   334     IDispatch *pDisp;  335     pDisp=m_webBrowser.get_Document();  //得到webBrowser控件接口  336   337     IHTMLDocument2* pDoc;  338     hr=pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc); //得到网页文档接口  339       340     IHTMLElementCollection* pColl=NULL;  341     hr=pDoc->get_all(&pColl);//得到所有网页元素记录集合  342   343     IDispatch *pDisp2;  344     VARIANT index;//用于接收返回元素基于的索引，一般不用，设为就好，而是用IDispatch 接收元素对象接口  345     //V_VT(&index)=VT_I4;  346     //V_I4(&index)=0;  347     index.vt=VT_I4;  348     index.lVal=0;  349   350     VARIANT varID;//要查找的HTML标记ID  351     varID=StringToVariant(_T("userlike_info_head_img"));  352   353     hr=pColl->item(varID,index,&pDisp2); //找到元素的位置  354     if(S_OK==hr&&NULL!=pDisp2)  355     {  356         IHTMLElement3* pElem=NULL;  357         hr=pDisp2->QueryInterface(IID_IHTMLElement3,(void**)&pElem);  358         IHTMLElementRender *pRender =  NULL;    359         pElem ->QueryInterface(IID_IHTMLElementRender, (void **) &pRender);    360         pRender->DrawToDC(hImageDC);  361     }  362 }  363 /*=================================================================================*/  364   365 /*================================================================================= 366 判断网页是否加在完全(包含框架) 367 原理:如果直接早DocummentComple里判断的话,包含多个框架(frame)的网页就会多次激发该函数。所以这里我们这里通过pDish判断是不是主框架的的借口（最后调用该函数），如果是的话就是最后一次激发，表示主框架家在完毕，也就是整个网页加载完毕！ 368 =====================================================================================*/  369 void CTieBaGuajiDlg::DocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT* URL)  370 {  371     // TODO: 在此处添加消息处理程序代码  372     CComQIPtr <IWebBrowser2,   &IID_IWebBrowser2>   pWeb;   373     CComQIPtr <IHTMLDocument2,&IID_IHTMLDocument2>   pDoc2;   374     pWeb   =   pDisp;   375     pWeb-> get_Document((IDispatch**)&pDoc2);   376     if   (m_webBrowser.get_Document()   ==   pDoc2)     377     {  378           ((CListBox*)GetDlgItem(IDC_LIST_STATE))->AddString(_T("初始化完成！"));  379     }  380     /////////////////////////////////////////  381     /*if(0==m_count) 382     { 383         ((CListBox*)GetDlgItem(IDC_LIST_STATE))->AddString(_T("初始化完成！")); 384         m_count++; 385     }*/  386 }  387 /*=============================================================================*/  388 /*============================================================================== 389  另外如果不想让webbrowser空间弹出错误提示可以，在对空间资源编辑时设置Slient为TRUE 390 ==============================================================================*/