网抓无法获取网页中内容

ebkzxcel

大神们:
以下网址用浏览器可以获取内容, 但是通过winhttp对象则无法抓取到网页上能看到的内容,通过Fiddler也无法获取到具体网页上的内容,
我想知道如何能获取到实际的内容呢?

网址如下:

https://seekingalpha.com/article ... ngs-call-transcript

代码如下:

Option Explicit

Sub Test()
Dim Wz, Url As String, St As String
Set Wz = CreateObject("winhttp.winhttprequest.5.1")
Url = "https://seekingalpha.com/article/3662806-bluebird-bios-blue-ceo-nick-leschly-q3-2015-results-earnings-call-transcript"
Wz.Open "Get", Url, False
Wz.send
St = Wz.responsetext
Debug.Print InStr(St, "bluebird")
Stop
End Sub

duquancai

抓哪些数据？

duquancai

抓取第1页》》》》》》

1. Sub main()
   
2.     With CreateObject("msxml2.xmlhttp")
   
3.         .Open "GET", "https://seekingalpha.com/article/3662806-bluebird-bios-blue-ceo-nick-leschly-q3-2015-results-earnings-call-transcript?page=1", False
   
4.         .send
   
5.         Do While .readyState <> 4
   
6.             DoEvents
   
7.         Loop
   
8.         strText = .responseText
   
9.     End With
   
10.     Debug.Print strText
    
11.     Stop
    
12. End Sub

复制代码

ebkzxcel

duquancai 发表于 2018-9-24 20:16
抓取第1页》》》》》》

谢谢杜老师, 大神

ebkzxcel

杜老师这里的?page=1是个技术点,  不知道哪位大神可以赐教一下是如何知道是应该写入这个参数的? 不胜感激, 谢谢

Kaohsing

ebkzxcel 发表于 2018-9-26 14:24
杜老师这里的?page=1是个技术点,  不知道哪位大神可以赐教一下是如何知道是应该写入这个参数的? 不胜感激,  ...

写于不写都是第一页.

x-xx-xx

Sub Test()
    Dim Wz, Url As String, St As String
    Set Wz = CreateObject("winhttp.winhttprequest.5.1")
    Url = "https://seekingalpha.com/article/3662806-bluebird-bios-blue-ceo-nick-leschly-q3-2015-results-earnings-call-transcript"
    Wz.Open "Get", Url, False
    Wz.send
    St = Wz.responsetext
    Debug.Print St
End Sub

x-xx-xx

um结果不是一样的吗

ebkzxcel

duquancai 发表于 2018-9-24 20:16
抓取第1页》》》》》》

杜老师, 能否看下为什么相同的问题,按你的方法还是得不到具体的内容?https://seekingalpha.com/article ... l-transcript?page=1