ab.com コミュニティ

コード: 全て選択

	TypeDef HRESULT	=DWord
	TypeDef CLSID	=GUID

	'
	Declare Function CLSIDFromProgID Lib "OLE32" (
		pszProgID As *WCHAR,
		ByRef clsid As CLSID
	) As HRESULT

	Declare Function CLSIDFromString Lib "OLE32" (
		String As *WCHAR,
		ByRef clsid As CLSID
	) As HRESULT

	Dim hr As Long

	'InternetExplorerクラスID
	Dim CLSID_InternetExplorer As GUID

	'IWebBrowser2インターフェースID
	Dim IID_IWebBrowser2=[
		&HD30C1661,
		&HCDAF,
		&H11D0,
		[&H8A,&H3E,&H00,&HC0,&H4F,&HC9,&HE2,&H6E]
	] As GUID

	'プログラムID
	Dim ProgID[MAX_PATH] As *WCHAR

	'IWebBrowser2
	Dim pInternetExplorer As *IWebBrowser2

	'プログラムIDからCLSIDを取得
	MultiByteToWideChar(0,0,"InternetExplorer.Application",-1,ProgID,MAX_PATH)
	CLSIDFromProgID(ProgID,CLSID_InternetExplorer)

	'COMコーポネントの初期化
	CoInitialize(NULL)

	'IWebBrowser2 のインスタンスを作成
	hr=CoCreateInstance(
		CLSID_InternetExplorer,
		NULL,
		CLSCTX_LOCAL_SERVER,
		IID_IWebBrowser2,
		VarPtr(pInternetExplorer)
	)

	If hr=S_OK Then OutputDebugString("S_OK")

	If pInternetExplorer Then pInternetExplorer->Release()
	
	'COMコーポネントの開放
	CoUninitialize()
	
	End
	
	
	
	
	'IWebBrowser2
	Class IWebBrowser2
		Inherits IUnknown
	End Class