网页采集(网页提交)教程第一课-用XMLHTTP获取数据并用Adodb.Stream转换编码提取信息

硅谷少年 · 发表于 2019-11-20 15:36

Function getWebDatetime() As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
XmlHttp.Open "POST", "http://www.baidu.com", False
XmlHttp.send
getWebDatetime = CDate(1 / 3 + CDbl(CDate(Mid$(XmlHttp.getResponseHeader("Date"), 5, 21))))
Set XmlHttp = Nothing
End Function

复制代码

win7 64位 office2016 x64，只有WinHttpRequest.5.1能用，其它几个都没有。

zorsite · 发表于 2019-12-19 16:53

经典贴子，值得认真阅读。
话说微软一直这么吊着VBA,让人感觉很鸡肋啊。

13410959332 · 发表于 2020-2-20 22:46

本帖最后由 13410959332 于 2020-2-20 22:58 编辑

大佬，请问这种如何发送 send 参数

hanxing1983 · 发表于 2020-2-20 23:02

求问老师，为什么我的程序运行时会报错？

final_exam - 副本.rar (113.72 KB, 下载次数: 1)

liucqa · 发表于 2020-2-20 23:12

13410959332 发表于 2020-2-20 22:46
大佬，请问这种如何发送 send 参数

这个是json格式，你可以当字符串处理。提交时候注意类型

13410959332 · 发表于 2020-2-20 23:16

liucqa 发表于 2020-2-20 23:12
这个是json格式，你可以当字符串处理。提交时候注意类型

大佬，比如参数 {"userId":"111","passwd":"222"}

我提交 send " {"userId":"111","passwd":"222"} " 失败了，

请问正确的send 是如何提交。。

13410959332 · 发表于 2020-2-20 23:19

大佬比如参数 {"userId":"111","passwd":"222"}
我提交 send " {"userId":"111","passwd":"222"}" 结果失败了
请问正确提交send内容是？

willylucy · 发表于 2020-3-13 16:24

mark一下，网抓方面的课程，感谢楼主

zzy31416 · 发表于 2020-5-9 15:28

想咨询一下如何用引用的方式使用XMLHTTP呀？不想用createobject，没有代码提示

q33ns · 发表于 2020-5-17 22:12

虽然这帖子时间很久了，但是真的感谢楼主写这么详细的教程，之前看别人的代码一知半解，没有整体理解，这个教程无论是对整体还是细节的学习都帮助很大

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

[原创] 网页采集(网页提交)教程第一课-用XMLHTTP获取数据并用Adodb.Stream转换编码提取信息