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

気になったので調べてみた
getElementById、getElementsByTagName、getElementsByName
IWebBrowser2のメゾットが分からず撃沈
[hide][code] 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[/code][/hide]

はじめまして。計算用にフォートランを使ったごとくらいしかない初心者です。
このたび、生活に即した実用的なプログラムに興味を持ちましてなんとか挑戦したいと考え、試行錯誤している次第です。

レベルの高い質疑がなされているところで、私のようなものが質問させていただけるのか甚だ疑問ですが、解決の糸口が見えないので失礼させていただきます。

ホームページ上のテキストボックスにあらかじめ指定してある言葉などを入力したいのですが、皆目検討がつきません。。。
visual basicの文献や、解説ページなどをよみあさってvbでの作成方法はわかったのですが、active basicでの方法がわかりません。

恐縮ですが、アドバイス等いただけると助かります。
よろしくお願いいたします。


参考プログラム aiBar2005 http://www5.ocn.ne.jp/~miisan/aibar/support/aibar2005.html
（私の目標としているものです。)