フリーズする原因

参照設定で[Microsoft HTML Object Library]

Sub test1()
Dim html As MSHTML.HTMLDocument
Set html = New MSHTML.HTMLDocument

Dim document As MSHTML.HTMLDocument
Set document = html.createDocumentFromUrl("http://www.goo.ne.jp/", vbNullString)

' ダウンロード待ち
Do While document.ReadyState <> "complete"
Loop

' 結果出力
Debug.Print document.Body.innerHTML

Set html = Nothing
Set document = Nothing
End Sub

このコードを実行したいのですが
ステップインして行かないとフリーズしてしまいます。

「ダウンロード待ち」の部分で無限ループです。
なぜでしょうか？

あと、ステップインで実行したとしても
「このページには、セキュリティの危険性がある可能性があります。続行しますか？」
が毎回出てくるのですが、
非表示にするかvbaで「はい」にさせる方法はありますか？

No.1 ベストアンサー 回答者： web2525 回答日時： 2013/01/23 23:41

Do While document.ReadyState <> 4

ここ参照
↓
http://canal22.org/advance/ie/ie-busy-readystate/


>非表示にするかvbaで「はい」にさせる方法はありますか？

それができるのならセキュリティ警告の意味が無い

この回答へのお礼

ありがとうございました。

お礼日時：2013/01/27 14:40