ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2018-1-12 22:24 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:网页交互
FOR REFERENCE,

xmlHttpRequest 當前台 每一秒連續向後台 SERVER端 請求 Request will be hangs. The only solution is add on wait 1 sec. between each Request with Application.Wait DateAdd("s", 1, Now). 否則 連續REQUEST +100 TIMES Local PC will be hangs except to release it with Ctrl+Alt+del.

TA的精华主题

TA的得分主题

发表于 2018-1-14 09:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-1-25 10:39 | 显示全部楼层
wcymiss 发表于 2014-10-21 21:39
获取数据-防盗链的处理-模拟Referer:

大神您好!我想问下,为什么我的代码和你的代码完全一样,运行到send方法时会提示“无法解析服务器的名称或地址”??
谢谢啦

TA的精华主题

TA的得分主题

发表于 2018-1-25 11:27 | 显示全部楼层
wcymiss 发表于 2014-10-24 12:07
提取数据-下载文件
知道下载文件的真实地址,就能很方便的用xmlhttp或winhttp下载文件。

吴姐好,我学这个主要是为了做这种情况:
    公司有个业务系统,可以在里面定制下载任务,然后在已定制下载人物里面再点击下载清单。现在我能用这个方案直接下载文件,但是下载文件的URL每次都会变,请问这个fiddler可以解决吗?
    感谢百忙中抽空解答,感激不尽!!

TA的精华主题

TA的得分主题

发表于 2018-2-2 11:22 | 显示全部楼层
好的东西必须收藏标记!

TA的精华主题

TA的得分主题

发表于 2018-2-2 20:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
吴姐是学习的榜样

TA的精华主题

TA的得分主题

发表于 2018-2-3 19:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖让我摸到了抓网的门!

收藏!慢慢品读。

TA的精华主题

TA的得分主题

发表于 2018-2-3 21:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wcymiss 发表于 2014-10-22 16:56
再上一个动态参数的例子:

网站:http://www.abchina.com/cn/Public ... t20101217_45743.htm

女神,请教
Function encodeURI(strTobecoded As String) As String
    With CreateObject("msscriptcontrol.scriptcontrol")
        .Language = "JavaScript"
        encodeURI = .Eval("encodeURIComponent('" & strTobecoded & "');")
        'encodeURIComponent无法转换括号,所以再替换下括号
        encodeURI = Replace(Replace(encodeURI, "(", "%28"), ")", "%29")
    End With
End Function
中标记颜色的部分,为什么不直接encodeURIComponent(strTobecoded)呢,自己试着调试运行没发现引号作用,请教下。

TA的精华主题

TA的得分主题

发表于 2018-2-16 22:18 | 显示全部楼层
wcymiss 发表于 2014-10-21 21:39
获取数据-防盗链的处理-模拟Referer:

   .send "etpsId=150000012002040300047"
150000012002040300047是怎么抓到的

TA的精华主题

TA的得分主题

发表于 2018-2-21 21:14 | 显示全部楼层
楼主太棒了!!超级无敌赞的帖子
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-15 15:10 , Processed in 0.035322 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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