起動されたオブジェクトはクライアントから切断されましたというエラーメッセージ

Question

Dim objIE

    'オブジェクトの作成
    Set objIE = CreateObject("InternetExplorer.Application")

    'IEを表示させる。Trueで表示
    objIE.Visible = True 

    '指定したURLを開く
    objIE.Navigate2 "ポータルサイトのURL"

   'ページが読み込まれるまで待つ
    Do While objIE.Busy = True Or objIE.readyState <> 4
        WScript.Sleep 100        
    Loop


'IDとパスワードを入力する
    With objIE.document      
    .getElementsByName("loginName")(0).Value = "ログインID"   
    .getElementsByName("password")(0).Value = "パスワード"        
    End With     

    Dim objbutton

    'button要素をコレクションとして取得
    Set objbutton = objIE.document.getElementById("btn_login")     

    objbutton.click

以上の方法で実行するとURLによってエラーが発生することがあります。
具体的には”起動されたオブジェクトはクライアントから切断されました”
というエラーメッセージがでます。
どのようにすれば改善するでしょうか。

Answer 1

問題は再現しませんでしたが、DocumentComplete を使う方法があるようです。

Dim document_completed_flag
Sub IE_DocumentComplete(obj, url)
    document_completed_flag = true
End Sub

https://language-and-engineering.hatenablog.jp/entry/20100410/p1

Comments

[yonchome]

コメントありがとうございました、助かりました。