ユーザエージェント名の取得

// ユーザエージェント名 の取得

static CString GetUserAgent(IHTMLDocument2* pHTMLDocument2)

{

    ASSERT(pHTMLDocument2);

    IHTMLDocument2Ptr spHTMLDocument2 = pHTMLDocument2;

    // IHTMLWindow2 の取得

    IDispatchPtr spDispatchforHTMLWindow2;

    spHTMLDocument2->get_Script(&spDispatchforHTMLWindow2);

    IHTMLWindow2Ptr spHTMLWindow2 = spDispatchforHTMLWindow2;

    // IOmNavigator の取得

    IOmNavigatorPtr spOmNavigator;

    spHTMLWindow2->get_navigator(&spOmNavigator);

    // ユーザエージェント名 の取得

    BSTR bstrUserAgent;

    spOmNavigator->get_userAgent(&bstrUserAgent);

    CString strUserAgent = bstrUserAgent;

    ::SysFreeString(bstrUserAgent);

    return strUserAgent;

}

// ユーザエージェント名 の取得

static CString GetUserAgent(IWebBrowser2* pWebBrowser2)

{

    ASSERT(pWebBrowser2);

    IWebBrowser2Ptr spWebBrowser2 = pWebBrowser2;

    IDispatchPtr spDispatchforHTMLDocument2;

    spWebBrowser2->get_Document(&spDispatchforHTMLDocument2);

    if (spDispatchforHTMLDocument2 == NULL)

    {

        return CString();

    }

    IHTMLDocument2Ptr spHTMLDocument2 = spDispatchforHTMLDocument2;

    CString strUserAgent = ::GetUserAgent(spHTMLDocument2);

    return strUserAgent;

}