不懂html也来学网抓（xmlhttp/winhttp+fiddler）

折年一渡 · 发表于 2018-12-4 20:43

姐你好，我拜读了您的《不懂Excel也来学网抓》，但是我有一个疑惑，就是我不管怎么模拟，都不能得到正常的数据，这是为什么呢？是不是网站安全系统升级了呢？您能帮我解答一下疑惑吗？QQ1357926089微信：13397362575谢谢您！

折年一渡 · 发表于 2018-12-4 20:44

姐你好，我拜读了您的《不懂Excel也来学网抓》，但是我有一个疑惑，就是我不管怎么模拟，都不能得到正常的数据，这是为什么呢？是不是网站安全系统升级了呢？您能帮我解答一下疑惑吗？

fhb197999 · 发表于 2018-12-15 23:28

留个脚印先，有时间再学习！

扑腾 · 发表于 2018-12-16 11:23

留个脚印，方便以后学习

ione_fox · 发表于 2019-1-5 11:10

作业1：Sub test()
Dim Url$, StrRes$
Url = "http://www.pinble.com/LotteryOneList.aspx?type=59DAE47BC0A467C82C20144B4C19F18E89DA39CC782A9811&class=%E5%90%84%E7%9C%81%E4%BD%93%E5%BD%A9&name=%E6%B1%9F%E8%8B%8F%E4%B8%83%E6%98%9F%E5%BD%A9"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", Url, False
.SetRequestHeader "Referer", "http://www.pinble.com/Lottery.htm"
.Send
StrRes = .Responsetext
Open ThisWorkbook.Path & "\Res.txt" For Output As #1
Print #1, StrRes
Close #1
End With
End Sub

复制代码

2477235415 · 发表于 2019-1-9 14:07

MARK 收藏一下

huxx1201 · 发表于 2019-1-13 02:00

好东西马克一下，以后有空学习。

sylwg557 · 发表于 2019-2-4 14:48

你好，我想问一下，抓取网页时，把FIDDLER打开vba能够通过XMLHTTP抓取到数据，把FIDDLER关闭了SEND就出现自动化错误，不知道怎么解决

zelous · 发表于 2019-2-5 21:53

感谢，今天也是被gzip搞了半天，最后改成deflate搞定，不过也感谢您的帖子

1qaz123 · 发表于 2019-2-26 15:04

这个得收藏慢慢看

		自动登录	找回密码
密码			免费注册

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