はじめまして。計算用にフォートランを使ったごとくらいしかない初心者です。
このたび、生活に即した実用的なプログラムに興味を持ちましてなんとか挑戦したいと考え、試行錯誤している次第です。
レベルの高い質疑がなされているところで、私のようなものが質問させていただけるのか甚だ疑問ですが、解決の糸口が見えないので失礼させていただきます。
ホームページ上のテキストボックスにあらかじめ指定してある言葉などを入力したいのですが、皆目検討がつきません。。。
visual basicの文献や、解説ページなどをよみあさってvbでの作成方法はわかったのですが、active basicでの方法がわかりません。
恐縮ですが、アドバイス等いただけると助かります。
よろしくお願いいたします。
参考プログラム aiBar2005 http://www5.ocn.ne.jp/~miisan/aibar/sup ... r2005.html
（私の目標としているものです。)
ホームページ上のテキストボックスに自動入力させる方法
-
ゲスト
気になったので調べてみた
getElementById、getElementsByTagName、getElementsByName
IWebBrowser2のメゾットが分からず撃沈
getElementById、getElementsByTagName、getElementsByName
IWebBrowser2のメゾットが分からず撃沈
[ここをクリックすると内容が表示されます]
コード: 全て選択
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