WebBrowser如何实现加载网页时注入js代码

WebBrowser如何实现加载网页时注入js代码
IDispatch pHtmlDocDisp = pWeb->GetHtmlWindow();
IHTMLDocument2 *pHtmlDoc2 = NULL;
HRESULT hr = pHtmlDocDisp->QueryInterface(IID_IHTMLDocument2, (void*)&pHtmlDoc2);
pHtmlDocDisp->Release();
if (SUCCEEDED(hr) && pHtmlDoc2 != NULL)
{
CComQIPtr pHTMLWnd;
pHtmlDoc2->get_parentWindow(&pHTMLWnd);
if (SUCCEEDED(hr) && pHTMLWnd != NULL)
{
//CComBSTR bstrjs = SysAllocString(_T("document.documentElement.style.overflow = 'hidden'"));//去除水平方向滚动条

CComBSTR bstrjs = SysAllocString(_T("document.documentElement.style.overflowY = 'hidden'"));//去除竖直方向滚动条

CComBSTR bstrlan = SysAllocString(_T("javascript"));
VARIANT varRet;
pHTMLWnd->execScript(bstrjs, bstrlan, &varRet);
}
}
我感觉这段代码可以实现，但是调试发现没有成功。

http://outofmemory.cn/code-snippet/1524/WebBrowser-zhuru-execution-javascript-code