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

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

......

IHTMLWindow2 *pWindow;
HRESULT hr=pDoc2->get_parentWindow(&pWindow);
VARIANT ret;
ret.vt=VT_EMPTY;
CComBSTR func="alert(document.cookie)";
CComBSTR lang="JAVAScript";
hr=pWindow->execScript(func,lang,&ret);

//首先只要得到 ihtmldocument2 接口即可
BOOL CIEop::putValue(CString IDorName,CString put_value,DWORD ChoosePtr){
IHTMLElementCollection *pAllElement=NULL;
if (m_pHTMLDocument2==NULL)
{
OutputDebugString(_T("LTDLL putValue Failed m_pHTMLDocument2==null"));
// initcom();
return FALSE;
}
m_pHTMLDocument2->get_all(&pAllElement);
if (pAllElement==NULL)
{
MessageBox(0,_T("putValue pAllElement is NULL "),_T("错误提示"),MB_OK);
return FALSE;
}
CComPtr<IDispatch> pDispIE;
HRESULT hr;
switch (ChoosePtr)
{
case  Choose_IHTMLInputTextElment:{
hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
if (FAILED(hr))
{
MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
return FALSE;
}
CComQIPtr<IHTMLInputTextElement,&IID_IHTMLInputTextElement> pElement;
pElement=pDispIE;
put_value.ReleaseBuffer();
pElement->put_value(put_value.AllocSysString());
}
break;
case Choose_JavaScript:{
hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
if (FAILED(hr))
{
MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
return FALSE;
}
IHTMLWindow2* pIHTMLWindow = NULL;
m_pHTMLDocument2->get_parentWindow(&pIHTMLWindow);
put_value.ReleaseBuffer();
VARIANT        pvarRet;
pIHTMLWindow->execScript(CComBSTR(put_value.AllocSysString()), CComBSTR("JavaScript"), &pvarRet);
pIHTMLWindow->Release();
}
break;
case Choose_Click:{
hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
if (FAILED(hr))
{
//MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
return FALSE;
}
CComQIPtr<IHTMLElement,&IID_IHTMLElement> pElement;
if (pDispIE==NULL)
{
return FALSE;
}
pElement=pDispIE;
pElement->click();
//   VARIANT vOnclick;
//
//     pElement->put_onclick(&vOnclick);
}
break;
case Choose_IHTMLFormElement :
{
hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
if (FAILED(hr))
{
MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
return FALSE;
}
CComQIPtr<IHTMLFormElement,&IID_IHTMLFormElement> pElement1;
pElement1=pDispIE;
// pElement1->put_target(CComBSTR("_blank"));
pElement1->put_target(CComBSTR(_T("_self")));
pElement1->put_action(CComBSTR(_T("action.php")));
pElement1->submit();
}
break;
case CHoose_GetText:
{
hr= pAllElement->item(CComVariant(IDorName.AllocSysString()),CComVariant((long)0),&pDispIE);
if (FAILED(hr))
{
MessageBox(0,_T("putValue pDispIE is NULL put_value="+put_value),_T("错误提示"),MB_OK);
return FALSE;
}
//    CComQIPtr<IHTMLElement,&IID_IHTMLElement> pElement1;
//    pElement1=pDispIE;
//    pElement1->get_innerText(&m_strVerify);

}
break;
}
return TRUE;
}