BHO VC ++를 사용하여 웹 페이지에서 입력 태그를 삽입하는 방법?

Question

아래 링크를 참조하여 VC ++에서 BHO를 만들었습니다.

http://msdn.microsoft.com/en-us/library/bb250489%28v=vs.85%29.aspx

이제 페이지로드가 완료되는 동안 입력 태그를 추가해야합니다. 아래 코드로 시도했습니다.

void STDMETHODCALLTYPE CTestBHO::OnDocumentComplete(IDispatch *pDisp, VARIANT *pvarURL)
{

    if (SUCCEEDED(hr))
    {
    responseCode=200;
    setResponseCode(pDisp);
    }
}

void CRealBrowserBHO::setResponseCode(IDispatch *pDisp)
{
HRESULT hr = S_OK;
CComPtr<IDispatch> spDispDoc;
hr = m_spWebBrowser->get_Document(&spDispDoc);
if (SUCCEEDED(hr))
    {
        BSTR inputElement=L"<input type=\"text\" name=\"ResponseCode\" value=\"200\">";
        IHTMLElement *pTRElmt = NULL;
        CComQIPtr<IHTMLDocument2> spHTMLDoc = spDispDoc;
        HRESULT hr1=spHTMLDoc->get_body(&pTRElmt);
        if (spHTMLDoc != NULL)
        {
            HRESULT hr=pTRElmt->insertAdjacentHTML(L"beforeEnd",inputElement);
        }
    }
}

그러나 내 웹 페이지에 태그가 삽입되지 않았습니다.

무엇이 잘못되었는지, 제가 여기서 놓친 것을 알려주세요

고마워요, 라마 앤드란.

Answer 1

작동 해야하는 코드 :

void CRealBrowserBHO::setResponseCode(IDispatch *pDisp)
{
    HRESULT hr;
    CComPtr<IDispatch> spDispDoc;
    hr = m_spWebBrowser->get_Document(&spDispDoc);
    if (SUCCEEDED(hr) && spDispDoc)
    {
        CComPtr<IHTMLDocument2> spHTMLDoc;
        hr = spDispDoc.QueryInterface<IHTMLDocument2>( &spHTMLDoc );
        if (SUCCEEDED(hr) && spHTMLDoc) 
        {
            CComPtr<IHTMLElement> spBodyElmt;
            hr = spHTMLDoc->get_body(&spBodyElmt);
            if (SUCCEEDED(hr) && spBodyElmt)
            {
                CComBSTR inputElement( L"<input type='text' name='ResponseCode' value='200'/>" );
                hr = spBodyElmt->insertAdjacentHTML( CComBSTR( L"beforeEnd" ), inputElement);
            }
        }
    }
}

}