这个网站GET返回错误，为什么呢

akenzhang

https://icoholder.com/en/icos/al ... ion=desc&page=3

Private Function XXX(ByVal Link As String) As String
        Dim xmlhttp As HttpHelper
        Dim item As HttpItem
        Dim result As HttpResult
        Dim x As String

        xmlhttp = New HttpHelper()
        item = New HttpItem()
        item.URL = Link
        item.Method = "get"
        item.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
        item.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"
        item.Host = GetLinkHost(Link)
        item.Header.Add("Upgrade-Insecure-Requests", "1")
        result = xmlhttp.GetHtml(item)
        x = result.Html
        item = Nothing
        xmlhttp = Nothing
        Return x
    End Function

Dim sUrl = "https://icoholder.com/en/icos/all?sort=r.general" & _
                "&direction=desc" & _
                "&page=3"
        msgbox(XXX(sUrl))

返回错误，什么SSPI什么的，请问怎么破？？？

akenzhang

提示调用sspi失败，奇怪的事我开着抓包软件，再运行代码就可以返回结果，是不是要引用证书什么的？

站长苏飞

应该是证书问题，把证书带上