禁用警告https消息

Question

加载网站时，我会收到以下安全警告：

您只想查看安全交付的网页内容吗？

这个弹出式会导致我的代码出错，有什么方法可以用vba禁用它吗？

谢谢。

这是代码

    Sub Start()

Dim ie As New InternetExplorer
Dim doc As HTMLDocument


ie.Visible = True

ie.navigate ("https://mywebsite.com")
ie.FullScreen = True
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document



doc.getElementById("navMenu2").Click

Answer 1

警告的原因是在一个SSL安全(https协议)页面上，该页面试图加载非SSL (http协议)内容。

解决这一问题的最佳方法是：

1. 使用http而不是https - ie.navigate ("http://mywebsite.com")访问您的网站。
2. 修复网站中的安全问题(使用https访问时不要加载不安全的内容)

如果您只想为测试目的修复它，可以使用更改测试浏览器中的设置

1. 转到Tools -> Internet -> Security
2. 选择“安全”选项卡->，单击“自定义级别”按钮
3. 在“杂项”部分更改“显示混合内容”以启用。