如何忽视安全证书提示

solariver 2013-02-04 05:27:17
想用VB的XMLHTTP登陆几百个网页,但是登陆时都会提示安全证书问题,因为每个网页的证书都不一样(颁发者一样),导入证书的方法没有用。有没有其他办法忽视这些提示,选择继续浏览网页。
...全文
589 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
网络菜鸟00 2013-02-24
  • 打赏
  • 举报
回复
Option Explicit
                                                                 

Function GetByWinHttp$(ByVal GetUrl$, ByVal Referer$, ByVal Cookie$)
    On Error Resume Next
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With XmlHttp
        .Option(4) = 13056
        .Open "GET", GetUrl, True
        .SetRequestHeader "Accept", "application/x-shockwave-flash, image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*"
        .SetRequestHeader "Accept-Language", "ko-KR,zh-cn;q=0.5"
        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET4.0C; .NET4.0E)"
        If Referer <> "" Then .SetRequestHeader "Referer", Referer
        If Cookie <> "" Then .SetRequestHeader "Cookie", Cookie
        .SetRequestHeader "Connection", "Keep-Alive"
        .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
试试这个,原来的还说错了,不好意思。
solariver 2013-02-06
  • 打赏
  • 举报
回复
Function enableSsh2(IP As String) As Boolean Dim objWinHttp As New WinHttp.WinHttpRequest On Error GoTo QUITME objWinHttp.Open "GET", "https://" & IP & "/protected/enableSsh.cgi" objWinHttp.Option(6) = 13056 objWinHttp.SetCredentials "******", "******", 0 objWinHttp.send (Null) enableSsh2 = True Exit Function QUITME: enableSsh2 = False MsgBox Err.Description End Function 上面红色那行提示:The certificate authority is invalid or incorrect,怎么解决?
solariver 2013-02-05
  • 打赏
  • 举报
回复
如何自动登录需要用户名和密码的网页
网络菜鸟00 2013-02-05
  • 打赏
  • 举报
回复
改用winhttp如何? .Option(6) =13056 忽略证书不安全提示。
solariver 2013-02-04
  • 打赏
  • 举报
回复
Function enableSsh(IP As String) As Boolean Dim objXMLget As New XMLHTTP60 Dim h As Variant On Error GoTo QUITME objXMLget.Open "GET", "https://" & IP & "/protected/enableSsh.cgi", False, "******", "******" objXMLget.send (Null) enableSsh = True Exit Function QUITME: enableSsh = False End Function

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧