VB6 IEオブジェクトで読み込み完了まで待たせる (ID:126393)

名前

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

本文 これならうまくいきました。 Private Sub Test() IE.Navigate2 "https://〜" IE.Visible = True Do While p_Title = "" DoEvents Sleep 1 Loop If p_Title = "ERROR" Then Exit Sub Else p_Title = "" End If IE.Document.All("SUBMIT").Click Do While p_Title = "" DoEvents Sleep 1 Loop ' ************************* ' 以下のコードを追加 Do While IE.Busy = True Or IE.ReadyState <> READYSTATE_COMPLETE DoEvents Sleep 1 Loop p_Title = IE.Document.Title ' ************************* If p_Title = "OK" Then Debug.Print "OK" End If End Sub