关于网抓数据不一样的的问题求教；

liushi130

各位老师好，
想练习网抓数据，但是使用如下代码抓出的和在网页查看的HTM数据不一样呢，求指教

1. Sub main1()
   
2.     Dim strText As String
   
3.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.         .Open "GET", "https://www.baidu.com/s?wd=你好&ie=UTF-8", False
   
5.       
   
6.          .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"""
   
7. '         .setRequestHeader "Accept-Encoding", "gzip , deflate, br"
   
8.          .setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9"
   
9.          .setRequestHeader "Cache-Control", "Max -age = 0"
   
10.          .setRequestHeader "Connection", "keep -alive"
    
11.          .setRequestHeader "Cookie", "BIDUPSID=888C9534F545E23EFA69539A181351D1; PSTM=1651968877; BAIDUID=21C54EDE086C240D41B53A411348F8E6:FG=1;"
    
12.          .setRequestHeader "Host", "www.baidu.com"
    
13.          .setRequestHeader "sec-ch-ua", """ Not A;Brand"";v=""99"",""Chromium"";v=""99"",""google Chrome"";v=""99"""
    
14.          .setRequestHeader "Sec-ch-ua-mobile", "?0"
    
15.          .setRequestHeader "sec-ch-ua-platform", """Windows"""
    
16.          .setRequestHeader "Sec-Fetch-Dest", "document"
    
17.          .setRequestHeader "Sec-etch-Mode", "navigate"
    
18.          .setRequestHeader "Sec-Fetch-Site", "same-site"
    
19.          .setRequestHeader "Sec-Fetch-User", "?1"
    
20.          .setRequestHeader "Upgrade-Insecure-Requests", "1"
    
21.          .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/95.0.4638.69 Safari/537.36"
    
22.          .send
    
23.    Debug.Print .responseText
    
24. 
    
25.     End With
    
26. 
    
27. End Sub
    
28. 
    

复制代码

liushi130

能顶起来么

perfect131

立即窗口并不能全部显示出来的，能显示256行左右应该
把结果复制到 剪切板 ，txt 查看即可，不会用到所有RequestHeader，里面一些重要的用得到
剪切板参考：https://club.excelhome.net/thread-1611306-1-1.html

liushi130

perfect131 发表于 2022-10-16 15:28
立即窗口并不能全部显示出来的，能显示256行左右应该
把结果复制到 剪切板 ，txt 查看即可，不会用到所有R ...

谢谢，我在试试

zxsea_7426

perfect131 发表于 2022-10-16 15:28
立即窗口并不能全部显示出来的，能显示256行左右应该
把结果复制到 剪切板 ，txt 查看即可，不会用到所有R ...

打开网页从80行左右才开始显示代码：
[现在不能截图上传了吗？？]