怎么忽视安全证书提示

如何忽视安全证书提示
想用VB的XMLHTTP登陆几百个网页，但是登陆时都会提示安全证书问题，因为每个网页的证书都不一样（颁发者一样），导入证书的方法没有用。有没有其他办法忽视这些提示，选择继续浏览网页。

        .Send
        .WaitForResponse
        GetByWinHttp = .ResponseText
    End With
    Set XmlHttp = Nothing
End Function
                                                                    
Private Sub Command1_Click()                                                    '调用
    Dim ReturnCode$
    ReturnCode = GetByWinHttp("https://" & IP & "/protected/enableSsh.cgi", "", "")
    Debug.Print ReturnCode
End Sub
试试这个，原来的还说错了，不好意思。