权限被拒绝阅读 html 文档

Question

我使用 IE 登录 Google。

登录后访问 HTML 文档时出现错误 70，

左（HTMLdoc.Title，13），

见下文。

Set Browser = CreateObject("InternetExplorer.Application")
Browser.Silent = True
Browser.navigate Url
Browser.Visible = True
Set HTMLdoc = Browser.Document

' wait loaded and ready
Do While Browser.Busy
 Wait secs:=1
Loop

Do Until Browser.readyState = READYSTATE_COMPLETE
 Wait secs:=1
Loop

' Wait for login complete
Do While Not (Left(HTMLdoc.Title, 13) = "Success code=" Or Left(HTMLdoc.Title, 12) = "Error error=")
 DoEvents
Loop