タイトル : Re^2: Do Until objIE.Busy = Falseが効いていない? 投稿日 : 2010/11/09(Tue) 11:41 投稿者 : ガッツ
花ちゃんさん いつも活用させていただいています。返信ありがとうございます。 DocumentComplete イベントを利用することはわかりました。 今はこれらを使用して連続で検索する処理にしようとしています。 Yahooログインのサンプルソースで質問なのですが、 以下のIf CStr(URL) <> myURL Then の部分はログイン後の画面が表示されたときにDocumentCompleteの イベントが発生して入る部分だと思いますが、これが2回発生しているようです。 これは何故かお分かりでしょうか。 下記で言うと、 ログイン前 ログイン後 ログイン後 とイミディエイトウインドウに表示されます。 以上よろしくお願いします。 Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant) If CStr(URL) <> myURL Then Debug.Print "ログイン後" Exit Sub End If With IE Debug.Print "ログイン前" .Document.Forms(0).Elements("login").Value = "ログイン用IDを記入" .Document.Forms(0).Elements("passwd").Value = "パスワードを記入" 'IDとパスワードを記憶用のチェックボックスにチェックを入れる If .Document.Forms(0).Elements(".persistent").Checked = False Then .Document.Forms(0).Elements(".persistent").Click End If 'ログインボタンをクリック .Document.Forms(0).submit End With End Sub |