C# と VB.NET の質問掲示板

皆さま、お世話になります。
vb.net 2015
Windowsフォームアプリケーションです。

IE操作(webbrowserではない)で、ひとつのフォームアプリで複数のIEを操作したいのですが

今までIEをひとつだけ使用していた時は問題なくできていた

        For Each tags In Ie1.Document.getElementsByClassName ("b_searchbox")

            tags.innerText = "天気"
            Exit For
        Next
のようなクラス検索が、IEを２個で２個目を操作しようとしたときは以下のようなエラーになります。

型 'System.Runtime.InteropServices.COMException' のハンドルされていない例外が Microsoft.VisualBasic.dll で発生しました
追加情報:HRESULT からの例外:0x80020101


複数のIEを操作するときに必要なことが抜けているんだと思いますが私の知識では解決できません。
アドバイスをいただけれるととても助かります。

プログラムはボタンを４個使用します。
[button 1]　１つ目のIEを起動
[button 2]　１つ目のIEに対してテキスト入力

[button 3]　２つ目のIEを起動
[button 4]　２つ目のIEに対してテキスト入力

ボタン１→ボタン２→ボタン３　ボタン４でエラーになります。

ただし立ち上げ後
ボタン３→ボタン４ は問題なくテキスト入力できます。


ボタン１〜４までエラーなく完了できるようしたいです。
どうかよろしくお願いいたします。



以下、プログラム。
'-------------------------------------------------------------------
'vb.net　Windowsフォームアプリケーション
'参照設定：Microsoft Internet Controls
'ボタンを４個使用しています。（button1〜4）

Public Class Form1

    'Ie1の宣言
    Public Ie1 As SHDocVw.InternetExplorer
    'Ie2の宣言
    Public Ie2 As SHDocVw.InternetExplorer

    'Ie1起動
    Private Sub Button1_Click(sender As Object, e As EventArgs) _
            Handles Button1.Click

        Ie1 = CreateObject("InternetExplorer.Application")
        Ie1.Visible = True
        Ie1.Navigate("https://www.google.co.jp/")

    End Sub

    'Ie1にテキスト入力
    Private Sub Button2_Click(sender As Object, e As EventArgs) _
    Handles Button2.Click

        For Each tags In Ie1.Document.getElementsByClassName _
        ("gsfi")

            tags.innerText = "グルメ"

            Exit For
        Next

    End Sub

    'Ie2起動
    Private Sub Button3_Click(sender As Object, e As EventArgs) _
    Handles Button3.Click

        Ie2 = CreateObject("InternetExplorer.Application")
        Ie2.Visible = True
        Ie2.Navigate("https://www.bing.com/")

    End Sub

    'Ie2にテキスト入力
    Private Sub Button4_Click(sender As Object, e As EventArgs) _
    Handles Button4.Click

        For Each tags In Ie2.Document.getElementsByClassName _
        ("b_searchbox")

            tags.innerText = "天気"

            Exit For
        Next
    End Sub

End Class

■No85387 (魔界の仮面弁士 さん) に返信
> ■No85385 (のり さん) に返信

> レイトバインドで呼び出すのではなく、mshtml を参照設定して、
> mshtml.HTMLDocument や mshtml.HTMLInputElement などに
> キャストして取り出してみた場合はどうでしょうか。

返信ありがとうございます。

参照設定に「Microsoft HTML Object Library」を追加して
以下のように書いてみましが、キャストとはこんな感じで良いでしょうか。
（ちょっと待たないとエラーになりそうなので、読み込み待ちを追加しています）

   'Ie1の宣言
    Public Ie1 As SHDocVw.InternetExplorer
    'キャストの宣言
    Public htmlDoc As mshtml.HTMLDocument

    'Ie1起動
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Ie1 = CreateObject("InternetExplorer.Application")
        Ie1.Visible = True
        Ie1.Navigate("https://www.google.co.jp/")


        Do While Ie1.Busy = True Or Ie1.ReadyState <> 4   '読み込み待ちを追加
            Application.DoEvents()
        Loop

        'キャストする
        htmlDoc = Ie1.Document

    End Sub


    'Ie1にテキスト入力
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        For Each tags In htmlDoc.Document.GetElementsByClassName("gsfi")

            tags.value = "グルメ"

            Exit For
        Next

    End Sub


これですと Button1 で開いたIEブラウザが、ずっとグルグルしていて次に進まない状態です。
作り方が間違っているでしょうか。
（基本的なことがわかっていなくてすみません）

■No85392 (魔界の仮面弁士 さん) に返信
> ■No85391 (魔界の仮面弁士) に追記

魔界の仮面弁士 様
お世話になります。貴重な時間を割いて返信いただき本当に感謝します。

頂いた内容で
「ループ待機」、「Or → OrElse」の件は勉強になります。
プログラムは自己流で、すべてネットを見て作成していますので基本が抜けているのが現状です。
正直申しますと、教えて頂いたことを全部は理解できていません。ご迷惑おかけしてすみません。
何とかついていけるようにします。


教えて頂いたプログラムですが
No85391 は　　　（●〜〜● まではエラーで下線が出て実行できませんでした ）

何か私が設定を間違えているのだと思いますがわかりませんでした。

参照設定　：Microsoft Object Library
　　　　　：Microsoft Internet Controls
--------------------------------------------------------------------------
Option Strict On
Imports ●mshtml = Interop.mshtml●

Public Class Form1
    Inherits System.Windows.Forms.Form

    Friend togetherClose As Boolean = True

    Public WithEvents Ie1 As SHDocVw.InternetExplorer
    Public WithEvents Ie2 As SHDocVw.InternetExplorer
    Public htmlDoc1 As mshtml.HTMLDocument
    Public htmlDoc2 As mshtml.HTMLDocument

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Ie1 = New SHDocVw.InternetExplorer()
        Ie1.Visible = True
        Ie1.Navigate("https://www.google.co.jp/")
        Button1.Enabled = False
        Button2.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim elm = ●htmlDoc1.getElementsByClassName●("gsfi").OfType(Of mshtml.HTMLInputElement).FirstOrDefault()
        If elm IsNot Nothing Then
            elm.value = "グルメ"
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Ie2 = New SHDocVw.InternetExplorer()
        Ie2.Visible = True
        Ie2.Navigate("https://www.bing.com/")
        Button3.Enabled = False
        Button4.Enabled = True
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim elm = ●htmlDoc2.getElementsByClassName●("b_searchbox").OfType(Of mshtml.HTMLInputElement).FirstOrDefault()
        If elm IsNot Nothing Then
            elm.value = "天気"
        End If
    End Sub

    Private Sub Ie1_DocumentComplete(pDisp As Object, ByRef URL As Object) Handles Ie1.DocumentComplete
        htmlDoc1 = DirectCast(Ie1.Document, mshtml.HTMLDocument)
        BeginInvoke(Sub() Button2.Enabled = True)
    End Sub
    Private Sub Ie2_DocumentComplete(pDisp As Object, ByRef URL As Object) Handles Ie2.DocumentComplete
        htmlDoc2 = DirectCast(Ie2.Document, mshtml.HTMLDocument)
        BeginInvoke(Sub() Button4.Enabled = True)
    End Sub

    Private Sub Ie1_OnQuit() Handles Ie1.OnQuit
        htmlDoc1 = Nothing
        Ie1 = Nothing
        BeginInvoke(
        Sub()
            Button1.Enabled = True
            Button2.Enabled = False
        End Sub)
    End Sub
    Private Sub Ie2_OnQuit() Handles Ie2.OnQuit
        htmlDoc2 = Nothing
        Ie2 = Nothing
        BeginInvoke(
        Sub()
            Button3.Enabled = True
            Button4.Enabled = False
        End Sub)
    End Sub
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If Ie1 IsNot Nothing Then
            htmlDoc1 = Nothing
            If togetherClose Then
                Ie1.Quit()
            End If
            Ie1 = Nothing
        End If
        If Ie2 IsNot Nothing Then
            htmlDoc2 = Nothing
            If togetherClose Then
                Ie2.Quit()
            End If
            Ie2 = Nothing
        End If
    End Sub
End Class
--------------------------------------------------------------------------


続いて、２番目のプログラム
No85392 は問題なく button1 →　button4 までクリックすることが出来ました。
今まで何をやっても button4 でエラーになっていたのでクリックできたときは感動しました！

しかも getElementById でいけるように、名前を調べなおしていただき感謝します。

ただ、残念なことに getElementsByClassName は使えなくなるのでしょうか。

私が実現したいことは、１つのWindowsフォームアプリケーションから３つのIEでWebページを
操作して、それぞれ値の取得やWeb上のボタンをクリックすることです。
（今回のGoogleなどのWebページは例という感じで実際は別のページです）

３つのWebページを操作するプログラムは、それぞれ単独（Windowsフォームから１つのみWebページを開く）では
動作できるようになり、あとは３つ同時にWebページを開ければ目的達成なのですが。。


その際に使用している Element名 ですが、以下の方法で値の取得、ボタンのクリック
などを行っています。

�@
For Each tags In IE2.Document.getElementsByClassName("expanded")
       RichTextBox1.Text = tags.innerText
       Exit For
Next

�A
For Each tags In IE2.Document.getElementsByClassName("tableIcon Open")
	tags.click
	Exit For
Next

�B
For Each tags In IE1.Document.getElementsByTagName("div")       
	If tags.innerText = "options" Then 
		tags.Click 
                Exit For
	End If
Next

�C
RichTextBox2.Text = IE1.Document.getElementById("Header").outerHTML

�D
IE2.Document.getElementById("loginbutton").Click

�E
For Each tags In IE3.Document.getElementsByName("text")    　　
        tags.innerText = "10"
        Exit For
Next


教えて頂いたプログラム
No85392 で実現できれば最高なのですが、getElementsByClassName 等を使わずに getElementById に
置き換えられるかを F12キーで出てくるIEの DOM Explorer を使って調べていたのですが、

どうしても getElementsByClassName じゃないとダメな箇所があり、No85392 のプログラムでは
残念ながら実現できなさそうです。教えて頂いたのにすみません。



現状はそのような感じです。
自分で解決できれば良いのですが、いまの自分にはお手上げに近い状態です。

ただ、今まで一人でやってきまして、周りに質問できる人もいないので
今回こうしてアドバイスを頂けるのはとても心強いです。

解決できるまで続けてみたいと思います。

■No85405 (魔界の仮面弁士 さん) に返信
> ■No85400 (のり さん) に返信

返信ありがとうございます。
すみません、私の知識が追いつかずアドバイスいただいたこと全てを確かめられていません。

>>ただ、残念なことに getElementsByClassName は使えなくなるのでしょうか。
> 
> No85362 の最初のコードに対して、ディスパッチID 指定での呼び出しに
> 切り替えてみたところ、当方では getElementsByClassName を呼び出せました。
> そちらの環境で動くかどうかは分かりませんが。
> 
> For Each tags In CallByName(Ie2.Document, "[DispId=1120]", CallType.Method, "b_searchbox")
> 　　tags.value = "天気"
> 　　Exit For
> Next

上記ですが、現在作成しているIE単体起動のみなら動作するプログラムを書き換えたところ、
複数IEを立ち上げても単体IEのときと同じ動作することができました。感謝します。（以下のような感じです）

        'For Each tags2 In IE2.Document.getElementsByClassName("login-form-text-input text")
        For Each tags2 In CallByName(IE2.Document, "[DispId=1120]", CallType.Method, "login-form-text-input text")

            If i = 1 Then
                tags2.value = LoginID
            ElseIf i = 2 Then  
                tags2.value = LoginPass
                Exit For
            End If

            i = i + 1
        Next
　　　　

        'For Each tags In IE2.Document.getElementsByClassName("button button-blue login-button")
        For Each tags In CallByName(IE2.Document, "[DispId=1120]", CallType.Method, "button button-blue login-button")
            tags.click
            Exit For
        Next

すみません、ディスパッチID というものは今まで聞いたことが無かったのですが、[DispId=1120] とはどのような
数値を意味しているのでしょうか。

本来の正しいIE操作方法とは異なるのかもしれませんが、この ディスパッチID 方式でいけるならこのまま使わせて
いただきたいと考えています。

そこで ディスパッチID 方式では以下のことは可能でしょうか。

タグ名検索
        For Each tags In IE1.Document.getElementsByTagName("a") 
        Next

名前検索
        For Each tags In IE3.Document.getElementsByName("text")    　　　
        Next

ID入力
        IE2.Document.getElementById("size-input").value= "10"

ボタンクリック
　　　　IE1.Document.getElementById("PlaceButton").Click

アクティブ
        Dim appName As String = IE2.LocationName & " - " & IE2.Name     'ページのtitleとieの名前を取得
        AppActivate(appName)     
　　　　SendKeys.Send("{ENTER}")        'エンターキーを送信


可能であれば ディスパッチ方式に置き換えた例を教えていただきたいです。
お手数おかけしますがアドバイス頂けると助かります。

拡張メソッド と Interop.mshtml 方式は今日以降に試させていただきます。
せっかく頂いたアドバイスに追いつけてなくて申し訳ないです。

貴重な時間を割いていただきありがとうございます。

■No85405 (魔界の仮面弁士 さん) に返信

お世話になります。
No85391 のコードについて

>>参照設定　：Microsoft Object Library
> 
> "Microsoft Object Library" というのは
> "Microsoft HTML Object Library" のことですね。

すみません間違えていました。　"Microsoft HTML Object Library" のことです。

>>Imports ●mshtml = Interop.mshtml●

> ※ "Interop.mshtml" と "mshtml" が両方参照されていると都合が悪いので、
> 　この方法を使う場合、"Microsoft HTML Object Library" の参照設定は外す必要があります。

参照設定をはずすの了解です。　実際に参照設定をはずてみたのですが、
以下のようにエラーを表す下線の場所が変化しました。

これは何か私の設定が足りないところがあるでしょうか。
質問ばかりですみません。


-----------------------------------------------------------------------------
参照設定：Microsoft Internet Controls  のみ
                     （●〜〜● まではエラーで下線が出て実行できませんでした ）

Option Strict On
Imports mshtml = ●Interop.mshtml●

Public Class Form1
    Inherits System.Windows.Forms.Form

    Friend togetherClose As Boolean = True

    Public WithEvents Ie1 As SHDocVw.InternetExplorer
    Public WithEvents Ie2 As SHDocVw.InternetExplorer
    Public htmlDoc1 As ●mshtml.HTMLDocument●
    Public htmlDoc2 As ●mshtml.HTMLDocument●

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Ie1 = New SHDocVw.InternetExplorer()
        Ie1.Visible = True
        Ie1.Navigate("https://www.google.co.jp/")
        Button1.Enabled = False
        Button2.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim elm = htmlDoc1.getElementsByClassName("gsfi").OfType(Of mshtml.HTMLInputElement).FirstOrDefault()
        If elm IsNot Nothing Then
            elm.value = "グルメ"
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Ie2 = New SHDocVw.InternetExplorer()
        Ie2.Visible = True
        Ie2.Navigate("https://www.bing.com/")
        Button3.Enabled = False
        Button4.Enabled = True
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim elm = htmlDoc2.getElementsByClassName("b_searchbox").OfType(Of mshtml.HTMLInputElement).FirstOrDefault()
        If elm IsNot Nothing Then
            elm.value = "天気"
        End If
    End Sub

    Private Sub Ie1_DocumentComplete(pDisp As Object, ByRef URL As Object) Handles Ie1.DocumentComplete
        htmlDoc1 = DirectCast(Ie1.Document, ●mshtml.HTMLDocument●)
        BeginInvoke(Sub() Button2.Enabled = True)
    End Sub
    Private Sub Ie2_DocumentComplete(pDisp As Object, ByRef URL As Object) Handles Ie2.DocumentComplete
        htmlDoc2 = DirectCast(Ie2.Document, ●mshtml.HTMLDocument●)
        BeginInvoke(Sub() Button4.Enabled = True)
    End Sub

    Private Sub Ie1_OnQuit() Handles Ie1.OnQuit
        htmlDoc1 = Nothing
        Ie1 = Nothing
        BeginInvoke(
        Sub()
            Button1.Enabled = True
            Button2.Enabled = False
        End Sub)
    End Sub
    Private Sub Ie2_OnQuit() Handles Ie2.OnQuit
        htmlDoc2 = Nothing
        Ie2 = Nothing
        BeginInvoke(
        Sub()
            Button3.Enabled = True
            Button4.Enabled = False
        End Sub)
    End Sub
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If Ie1 IsNot Nothing Then
            htmlDoc1 = Nothing
            If togetherClose Then
                Ie1.Quit()
            End If
            Ie1 = Nothing
        End If
        If Ie2 IsNot Nothing Then
            htmlDoc2 = Nothing
            If togetherClose Then
                Ie2.Quit()
            End If
            Ie2 = Nothing
        End If
    End Sub
End Class

-----------------------------------------------------------------------------