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

名前

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

本文 コードはこんな感じです。 Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant) p_Title = IE.Document.Title End Sub 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 If p_Title = "OK" Then Debug.Print "OK" End If End Sub