WebBrowserのcompleteのタイミング

解決

カズパンダ 2006-01-14 21:20:42 No: 93625

いつもお世話になっております。
VB6+WinXPにてWebBrowserを使って自動発注を作成しています。
質問なんですが、

ログインのページ
↓
発注のページ（１／３）
↓
発注ページ（２／３）

と進んでいくのですが、読み込みが完了していないのに、プログラムが次に進んでしまいます。

それぞれの WebBrowser1.Navigate (strURL)で

Do While .Busy = True
DoEvents
Loop
Do While .Document.ReadyState <> "complete"
DoEvents
Loop

completeのチェックをしているのですが、うまくいきません。
ページにはflameはありません。
ReadyStateのcompleteは１度出ると、completeのままのようなんですが・・・
何か、よい方法はないでしょうか？
よろしくお願いします。

特攻隊長まるるう 2006-01-14 22:34:13 No: 93626

過去ログ検索『WebBrowser』ですでにいくつかの方法が
書き込まれていることが確認できましたが、検討されましたか？
それでも都合が悪い場合は参考にした過去ログのアドレスと
その理由をご説明ください。

カズパンダ 2006-01-15 01:29:12 No: 93627

何とか解決しました。
ReadyStateはページ毎にcompleteなっていました。

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

だけにしたら、目的通りできました。
ガイドラインしか読んでませんでした…＾−＾；
ありがとうございます。