ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: wcymiss

[原创] 不懂html也来学网抓(xmlhttp/winhttp+fiddler)

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2023-11-9 15:55 | 显示全部楼层
本帖已被收录到知识树中,索引项:网页交互
鸣人吃土豆 发表于 2023-11-8 22:01
请问哪位大神把链接找出来了哇?我只找到http://www.pinble.com/LotteryOneList.aspx?type=59DAE47BC0A46 ...

加个 Referer 即可
image.jpg


image.jpg

TA的精华主题

TA的得分主题

发表于 2023-11-11 20:25 | 显示全部楼层

666,多谢,我是直接把这个网址放在浏览器里看,直接啥都没有,都没想想加东西看看

TA的精华主题

TA的得分主题

发表于 2023-11-17 18:08 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-12-23 15:18 来自手机 | 显示全部楼层
wcymiss 发表于 2014-10-23 09:53
之前提过,QQ软件也可以用Fiddler抓包。
我们来抓抓群成员的清单。
1、打开fiddler,打开群聊天窗口,“ ...

大神,请问一下,为啥我只能抓到成员qq号,昵称都没有

TA的精华主题

TA的得分主题

发表于 2024-1-25 13:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-1-25 14:15 | 显示全部楼层
icqdj 发表于 2024-1-25 13:58
网抓需不需要 API key 呀

这 你先了解一下什么是 API吧
API 通俗的讲就是 官方 或者 第三方给你提供 数据获取接口或者功能实现接口
购买或领取他们给你 APItoken 来获取数据或者完成某个功能

那网抓 是什么 通俗讲 就是获取你肉眼看到的网页, app,exe 中的内容而已 (获取看不到的 那就是大黑阔



TA的精华主题

TA的得分主题

发表于 2024-2-16 20:52 | 显示全部楼层
VBA万岁 发表于 2014-10-30 08:43
参见附件中的“各省福彩”及“江苏七星彩2”:

这个URl:是在哪里找的啊?  我找了好久没找到,VBA我是熟练的,网抓才起步。http://www.pinble.com/Template/WebService1.asmx/Present3DList

TA的精华主题

TA的得分主题

发表于 2024-2-17 13:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
jeain 发表于 2024-2-16 20:52
这个URl:是在哪里找的啊?  我找了好久没找到,VBA我是熟练的,网抓才起步。http://www.pinble.com/Temp ...

都快 十年了 网站返回数据的接口早改了
f12 或 用 fiddler 可以看到新的接口
就是 网抓最基础的 接口分析(Curl 分析)

133.png

TA的精华主题

TA的得分主题

发表于 2024-2-19 16:56 | 显示全部楼层
perfect131 发表于 2024-2-17 13:56
都快 十年了 网站返回数据的接口早改了
f12 或 用 fiddler 可以看到新的接口
就是 网抓最基础的 接口 ...

我现在找到的:http://www.pinble.com/LotteryOne ... 18E89DA39CC782A9811不能使用。  我看了下他们以前的作业原来的url还是能用。

TA的精华主题

TA的得分主题

发表于 2024-2-19 16:58 | 显示全部楼层
perfect131 发表于 2024-2-17 13:56
都快 十年了 网站返回数据的接口早改了
f12 或 用 fiddler 可以看到新的接口
就是 网抓最基础的 接口 ...

Sub 江苏七星彩()
    Dim objhq
    Dim STxt As String, Url As String, i As Integer, j As Integer
    Dim Pages As Integer, Pstr As String, arr, brr, rng As Range, p As Integer
    Set objhq = CreateObject("Microsoft.xmlhttp")
'    Cells.Clear
    Url = "http://www.pinble.com/LotteryOneList.aspx?type=59DAE47BC0A467C82C20144B4C19F18E89DA39CC782A9811"
    With objhq
        .Open "POST", Url, False
        .SetRequestHeader "Content-Type", "application/json; charset=UTF-8"
        .SetRequestHeader "Referer", "http://www.pinble.com/Lottery.htm"
        .Send
        STxt = .ResponseText
    End With
    Cells(1, 1) = STxt
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 00:24 , Processed in 0.033203 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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