自动在证书安全警告和Windows安全警告上单击是

Question

我写了一个VBA代码，它将从excel表的列中获取其输入（url），并返回其http状态代码。我遇到的问题是一些网址有证书问题，而对于某些网站，我收到Windows安全警报。我想要一个简单的解决方案来自动点击所有这些警报的是（如果它们完全出现），因为这些网站是完全可信的。我附上检查状态代码的代码。

    `'Takes input url as String and return the status(200 is up ,rest all are down)

     Function urlCheck(url As String) As Integer
     On Error GoTo error_help
     Dim http: Set http = CreateObject("MSXML2.XMLHTTP")
     http.Open "GET", url, False
     http.Send
     If (Not http.Status = 200) Then
     urlCheck = http.Status
     Else
     urlCheck = http.Status
     End If
     error_help:
     'MsgBox "error"
     End Function

`

我已经尝试过Application.DisplayAlerts = False，它不起作用

Answer 1

我认为这个问题已在this帖子上得到解答。

这是重复的帖子。