苏飞论坛

 找回密码
 马上注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

分布式系统框架(V1.3) 轻松承载百亿数据,千万流量!讨论专区 - 源码下载 - 官方教程

HttpHelper万能框架(V2.3) HttpHelper官方出品,无敌框架讨论区 - 源码下载 - 在线测试和代码生成

HttpHelper爬虫类(V1.9) 最牛的爬虫类,没有爬不到只有想不到 源码 - 代码生成器 - 讨论区 - 教程- 例子

查看: 454|回复: 2

[HttpHelper] 这个网站GET返回错误,为什么呢

[复制链接]
发表于 2018-7-5 16:28:22 | 显示全部楼层 |阅读模式
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什么的,请问怎么破???

 楼主| 发表于 2018-7-5 16:30:08 | 显示全部楼层
提示调用sspi失败,奇怪的事我开着抓包软件,再运行代码就可以返回结果,是不是要引用证书什么的?
发表于 2018-7-6 16:46:25 | 显示全部楼层
您需要登录后才可以回帖 登录 | 马上注册

本版积分规则

QQ|手机版|小黑屋|手机版|联系我们|关于我们|广告合作|苏飞论坛 ( 豫ICP备17001017号-1 )

GMT+8, 2019-2-19 04:25

© 2017-2018

快速回复 返回顶部 返回列表