VBA Edge 在 ReadyState 上给出了不明确的错误

Question

好的，我有这个脚本我前段时间做的，它在 1-2 年前在 Internet Explorer 上运行得很好，但是现在我在 Windows 11 上，它只有 Edge。

每次我运行这个脚本，它都会无缘无故地挂在忙碌就绪状态。实施中有什么变化吗？因为我真的很迷茫。

Set IE = createobject("internetexplorer.application")
strURL = "http://www.website.com/"
IE.navigate strURL
IE.Visible = true
Do While (IE.Busy Or IE.ReadyState <> 4)    
    WScript.Sleep 100
Loop

编辑只是为了澄清：这个脚本在检查 ReadyState 的整个过程中都运行良好。它打开 Edge，导航到 URL，但随后在检查 ReadyState 的行上抛出“未指定错误”。

在 Windows 10 上，它与 IE 完美配合。

Answer 1

问题中提供的脚本在 Windows 11 build 22000.348 及更高版本中正常工作。根据 this article，微软在 Windows 11 中“无意中破坏了”IE COM 自动化，但通过 2021 年 11 月发布的更新修复了它。根据同一篇文章：“IE COM 对象已恢复到它们的原始功能，在禁用 IE11 桌面应用程序后将继续工作。

与流行的看法相反，Internet Explorer 仍包含在 Windows11 中，并且对于依赖它的任何脚本都具有完整的功能。唯一不同的是 IE 不能作为默认浏览器使用，并且运行 iexplore.exe 以通常的方式（例如 double-clicking）重定向到 Edge。以下三行脚本将在 Windows 11（以及 2022 年 6 月 15 日之后的 Windows 10）中继续启动 IE：

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate "duckduckgo.com" 'put your URL of choice here

VBA Edge 在 ReadyState 上给出了不明确的错误

VBA Edge gives unspecific error on ReadyState

vbscript

microsoft-edge