VC 通过IHTMLINTEFACE 接口实现网页执行自定义js代码

  1 VC 通过IHTMLINTEFACE 接口实现网页执行自定义js代码
  2 IHTMLDocument2 *pDoc2
  3 
  4 ......
  5 
  6 IHTMLWindow2 *pWindow;
  7 HRESULT hr=pDoc2->get_parentWindow(&pWindow);
  8 VARIANT ret;
  9 ret.vt=VT_EMPTY;
 10 CComBSTR func="alert(document.cookie)";
 11 CComBSTR lang="JAVAScript";
 12 hr=pWindow->execScript(func,lang,&ret);
 13 
 14  
 15 
 16 //首先只要得到 ihtmldocument2 接口即可
 17 BOOL CIEop::putValue(CString IDorName,CString put_value,DWORD ChoosePtr){
 18  IHTMLElementCollection *pAllElement=NULL;
 19  if (m_pHTMLDocument2==NULL)
 20  {
 21   OutputDebugString(_T("LTDLL putValue Failed m_pHTMLDocument2==null"));
 22   // initcom();
 23   return FALSE;
 24  }
 25  m_pHTMLDocument2->get_all(&pAllElement);
 26  if (pAllElement==NULL)
 27  {
 28   MessageBox(0,_T("putValue pAllElement is NULL "),_T("错误提示"),MB_OK);
 29   return FALSE;
 30  }
 31  CComPtr<IDispatch> pDispIE;
 32  HRESULT hr;
 33  switch (ChoosePtr)
 34  {
 35  case  Choose_IHTMLInputTextElment:{
 36   hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
 37   if (FAILED(hr))
 38   {
 39    MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
 40    return FALSE;
 41   }
 42   CComQIPtr<IHTMLInputTextElement,&IID_IHTMLInputTextElement> pElement;
 43   pElement=pDispIE;
 44   put_value.ReleaseBuffer();
 45   pElement->put_value(put_value.AllocSysString());
 46            }
 47            break;
 48  case Choose_JavaScript:{
 49   hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
 50   if (FAILED(hr))
 51   {
 52    MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
 53    return FALSE;
 54   }
 55   IHTMLWindow2* pIHTMLWindow = NULL;
 56   m_pHTMLDocument2->get_parentWindow(&pIHTMLWindow);
 57   put_value.ReleaseBuffer();
 58   VARIANT        pvarRet;
 59   pIHTMLWindow->execScript(CComBSTR(put_value.AllocSysString()), CComBSTR("JavaScript"), &pvarRet);
 60   pIHTMLWindow->Release(); 
 61          }
 62          break;
 63  case Choose_Click:{
 64   hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
 65   if (FAILED(hr))
 66   {
 67    //MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
 68    return FALSE;
 69   }
 70   CComQIPtr<IHTMLElement,&IID_IHTMLElement> pElement;
 71   if (pDispIE==NULL)
 72   {
 73    return FALSE;
 74   }
 75   pElement=pDispIE;
 76   pElement->click();
 77 //   VARIANT vOnclick;
 78 // 
 79 //     pElement->put_onclick(&vOnclick);
 80        }
 81        break;
 82  case Choose_IHTMLFormElement :
 83   {
 84    hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
 85    if (FAILED(hr))
 86    {
 87     MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
 88     return FALSE;
 89    }
 90    CComQIPtr<IHTMLFormElement,&IID_IHTMLFormElement> pElement1;
 91    pElement1=pDispIE;
 92   // pElement1->put_target(CComBSTR("_blank"));
 93    pElement1->put_target(CComBSTR(_T("_self")));
 94    pElement1->put_action(CComBSTR(_T("action.php")));
 95    pElement1->submit();
 96   }
 97   break;
 98  case CHoose_GetText:
 99   {
100    hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
101    if (FAILED(hr))
102    {
103     MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
104     return FALSE;
105    }
106 //    CComQIPtr<IHTMLElement,&IID_IHTMLElement> pElement1;
107 //    pElement1=pDispIE;
108 //    pElement1->get_innerText(&m_strVerify);
109 
110   }
111   break;
112  }
113  return TRUE;
114 }