タイトル : Re^6: IEの制御の方法 投稿日 : 2010/10/02(Sat) 22:25 投稿者 : 花ちゃん
> エラー 1 インターフェイス 'mshtml.IHTMLElementCollection' には既定のプロパティがないため、インデックス処理を実行できません。 失礼しました、下記に変更して見て下さい。 [ Elements(1) → Elements.item(1) ] (VB2010 ならエラーにならないのですが) 又、今回のような場合なら直接、DocumentComplete イベント内で処理をしてもOKです。 Private Sub foo(ByVal pDisp As Object, ByRef URL As Object) Dim Elements As mshtml.IHTMLElementCollection = DirectCast(DirectCast(IE.Document, _ mshtml.HTMLDocument).all.tags("INPUT"), mshtml.IHTMLElementCollection) Dim Element As mshtml.IHTMLElement = DirectCast(Elements.item(1), mshtml.IHTMLElement) Element.setAttribute("value", "VBレスキュー(花ちゃん)") Element = DirectCast(Elements.item(2), mshtml.IHTMLElement) Element.click() End Sub |