求助：如何解决要先登录网页再爬取数据

hcunicom · 发表于 2024-2-18 09:25

刀厂八言发表于 2024-2-7 15:49
你会你来，不会弹开。。。。

钞能力钞能力，懂咩

刀厂八言 · 发表于 2024-2-18 13:05

hcunicom 发表于 2024-2-18 09:25
钞能力钞能力，懂咩

怎么感觉你也是超能力

刀厂八言 · 发表于 2024-4-2 10:50

求助~~~~~~~~

hcunicom · 发表于 2024-4-3 08:09

刀厂八言发表于 2024-4-2 10:50
求助~~~~~~~~

自己动手丰衣足食

刀厂八言 · 发表于 2024-4-8 13:17

hcunicom 发表于 2024-4-3 08:09
自己动手丰衣足食

能解决掉，我还会在这里求助几个月么

yang央 · 发表于 2024-4-8 18:29

求助几个月？？？服了，但凡把你求助的时间用来自己研究一下也不至于。。。。应该
没多难。

刀厂八言 · 发表于 2024-4-11 01:29

yang央发表于 2024-4-8 18:29
求助几个月？？？服了，但凡把你求助的时间用来自己研究一下也不至于。。。。应该
没多难。

没多难？我都上淘宝找了，要么价格开价几百（这个纯属个人兴趣，我觉得没必要），要么他们都没法解决这个问题

松野 · 发表于 2024-4-11 16:14

既然不知道哪个cookie就不需要知道，利用winhttp/xmlhttph不关闭会保留cookie的原理直接发送两次请求，第一次请求就顺带设置了cookie。

Public Sub set_cookie()
Dim xmlHttp As Object
Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With xmlHttp
.Open "GET", "https://www.chinamoney.com.cn", False
.send
.Open "GET", "https://www.chinamoney.com.cn/ags/ms/cm-u-bk-currency/FrrHis?lang=CN&startDate=20231201&endDate=20231220", False
.send
Open ThisWorkbook.Path & "\1.txt" For Output As #1
Print #1, .responsetext
Close
Stop
End With
End Sub

复制代码

刀厂八言 · 发表于 2024-4-11 22:04

松野发表于 2024-4-11 16:14
既然不知道哪个cookie就不需要知道，利用winhttp/xmlhttph不关闭会保留cookie的原理直接发送两次请求，第一 ...

谢谢解答，但是您看过这段程序的返回内容吗？我这里显示是空的。。。。所以依然没解决

pc_12 · 发表于 2024-4-12 06:14

工作簿1.rar (18.89 KB, 下载次数: 13)

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