フリーズする原因

質問

参照設定で[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 · ベストアンサー

Do While document.ReadyState <> 4
ここ参照
↓
http://canal22.org/advance/ie/ie-busy-readystate/

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

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

お礼

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