Busyの判定がおかしい? (ID:79739)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして いつもROMさせていただいております さっそく質問させていただきます。 ^^^^^^^^^^^^^^^^^^^^^^^^^ Sub ieの場合() Dim ie As New InternetExplorer ie.Navigate hogehoge Do Until (ie.ReadyState = READYSTATE_COMPLETE And Not ie.Busy) DoEvents Loop ie.Document.hoge.Value = "hogehoge" ie.Document.Forms(0).submit End Sub ^^^^^^^^^^^^^^^^^^^^^^^^^^^ Sub WEBブラウザの場合() With Form1.WebBrowser1 .Navigate hogehoge Do Until (.ReadyState = READYSTATE_COMPLETE And Not .Busy) DoEvents Loop .Document.hoge.Value = "hogehoge" .Document.Forms(0).submit End With End Sub ^^^^^^^^^^^^^^^^^^^^^^^^^ と、こんなかんじでウェブページを表示させているのですが ieの場合は submit までスムーズに進んでいくのですが WEBブラウザの場合 では Busyの判定がおかしいのかページ読み込み前にLoopが終わってしまい .Document.hoge.Value = "hogehoge" がエラーになってしまうのです。 原因と対処法がありましたらご教示いただけますでしょうか