IHTMLDocument2からのIWebBrowser2取り出し

hoge.cpp

#include <windows.h>
#include <Shlwapi.h>
#include <oleacc.h>
#include <Exdisp.h>
#import <shdocvw.dll>
#import <mshtml.tlb>
#include <stdio.h>
#include <SHLGUID.h>


#define URL L"https://www.google.co.jp/?gws_rd=ssl"
_COM_SMARTPTR_TYPEDEF(IAccessible, __uuidof(IAccessible));

HRESULT test()
{
	HRESULT hr = S_OK;
	try{

		SHDocVw::IShellWindowsPtr psw;
		hr = psw.CreateInstance(__uuidof(SHDocVw::ShellWindows));
		if (FAILED(hr)) _com_issue_error(hr);
		
		_variant_t  varLoc(_bstr_t(URL));
		_variant_t VarRoot;
		long h = 0;
		IDispatchPtr pDisp = psw->FindWindowSW(&varLoc, &VarRoot, SWC_BROWSER, &h, SWFO_NEEDDISPATCH);
		
		SHDocVw::IWebBrowser2Ptr pBrowser(pDisp);
		MSHTML::IHTMLDocument2Ptr pDoc(pBrowser->Document);

		
		IServiceProviderPtr pService;
		hr = IUnknown_QueryService(pDoc, SID_STopLevelBrowser, IID_PPV_ARGS( &pService ) );
		if (FAILED(hr)) _com_issue_error(hr);

		hr = pService->QueryService( SID_SWebBrowserApp, IID_PPV_ARGS( &pBrowser ) );
		if (FAILED(hr)) _com_issue_error(hr);

		pBrowser->Navigate( L"http://www.yahoo.co.jp/" );
		


	}
	catch (_com_error& e) {
		hr = e.Error();
		MessageBoxA(nullptr, (LPCSTR)e.ErrorMessage(), nullptr, MB_OK);
	}
	return hr;

}



int CALLBACK WinMain(
  _In_  HINSTANCE hInstance,
  _In_  HINSTANCE hPrevInstance,
  _In_  LPSTR lpCmdLine,
  _In_  int nCmdShow
)
{
	CoInitialize(NULL);
	test();
	CoUninitialize();
	return 0;
}