WebBrowserで読み込み完了まで待つには？

解決

mady 2003-12-10 18:59:07 No: 110569

今のソースはこんな感じです。
    WebBrowser.Navigate ("http://community.goo.ne.jp/freemail/index.ghtml")
    Sleep 5000
    WebBrowser.Document.login.Name.Value = "***"
    WebBrowser.Document.login.password.Value = "****"
    WebBrowser.Document.login.submit

説明ナシでもわかるかもしれませんが、
URL開いて(開くまで待って開いたら)、
値をいれてサブミットしたいわけです。
しかし…待ちがうまくいかないんですね。
URLの読み込み処理すらもお休みして、
5秒後からURL先の読込みをはじめている感じがします。

このような場合、どうするとうまくいきますか？
よろしくお願いします。

mady 2003-12-10 19:07:47 No: 110570

すみません激しく既出でした。
過去ログで解決できました。
DoEvents

    Do While WebBrowser.Busy = True
        DoEvents
    Loop

WebBrowser.Visible = True

    Do While WebBrowser.Document.ReadyState <> "complete"
        DoEvents
    Loop