tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。