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

我写了一个VBA代码，它将从Excel工作表的一列中输入（url），并返回其http状态代码。我面对的问题是，有些网站正在出现证书问题，而有些网站则出现Windows安全警报。我想要一个简单的解决方案，自动为所有这些警报（如果有的话）点击是，因为这些站点是完全可信的。我附上了检查状态码的代码。自动在证书上点击是安全警告和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 =假，这是行不通的

来源

2014-02-24 user3347935

它是我的经验，你不能自动解雇一个消息框，只有防止他们根本弹出（在某些情况下）它会产生一个错误号码？错误是否会捕获它？如果是这样，你可以尝试'错误恢复下一步.'我不知道这是否会工作。那些错误出现在浏览器中，他们不？就像在浏览它们时一样，我不知道是否可以在Excel应用程序中处理这些消息，因为它们并不是真正来自它们的位置，它的浏览器检测到安全性的东西并不是它？ – user1759942

@ user1759942我尝试过下一次恢复，但是这并没有解决问题。如果我尝试通过浏览器浏览这些错误 - 那就是证书问题确实出现在点击继续。但是对于某些网站来说，没有浏览器错误出现，它只是当我使用这个宏，我面临着下面的错误_Windows安全警告 - 此页正在访问不受其控制的信息。这带来了安全风险。你想继续吗？_我认为这些网址会重定向到另一个不会导致浏览器错误的页面。不过，我不希望这些警报！ – user3347935

因此，如果你在浏览器中导航到它们，它会产生错误，或者它不会给出错误？再次，我认为这些是Excel以外的错误，并且不能在Excel中处理。我认为他们需要通过在浏览器或其他地方更改安全设置在Windows中进行处理。 – user1759942

我认为这个问题是在this后回答。

这是一个重复的帖子。

来源

2018-02-27 14:26:07

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

回答

相关问题