苏飞论坛广告位

苏飞论坛

 找回密码
 马上注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

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

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

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

查看: 95|回复: 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失败,奇怪的事我开着抓包软件,再运行代码就可以返回结果,是不是要引用证书什么的?
  • TA的每日心情
    开心
    4 小时前
  • 签到天数: 545 天

    [LV.9]以坛为家II

    发表于 2018-7-6 16:46:25 | 显示全部楼层
    您需要登录后才可以回帖 登录 | 马上注册

    本版积分规则

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

    GMT+8, 2018-7-16 14:48

    © 2017-2018

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