用vba获取url里面所需要数据内容

YUzero2020

https://item.jd.com/10069040670018.html
自己测试用京东网站抓取url价格，但是这段代码怎么测试好像都没办法简化出想要返回值（价格）是我哪里弄错了吗？要用js测试？

https://mercury.jd.com/log.gif?t=other.000000&m=UA-J2011-1&pin=%25E4%25B9%2585%25E6%25B1%2587%25E9%2580%259A%25E5%25AE%2598%25E6%2596%25B9%25E6%2597%2597%25E8%2588%25B0%25E5%25BA%2597&uid=16819692122461588167016&sid=16819692122461588167016|63&v=%7B%22t1%22%3A%22pv_stock%22%2C%22t2%22%3A%22sku%22%2C%22p0%22%3A%22%7B%5C%22province_id%5C%22%3A19%2C%5C%22city_id%5C%22%3A1607%2C%5C%22county_id%5C%22%3A4773%2C%5C%22street_id%5C%22%3A62121%2C%5C%22skuid%5C%22%3A10069040670018%2C%5C%22sku_jd_prc%5C%22%3A6248%2C%5C%22stockState%5C%22%3A1%7D%22%2C%22pinid%22%3A%22faE3zKlPJkwZTkqWEMvx4F99ZhHPAyqqtX37H5_fCPs%22%2C%22je%22%3A0%2C%22sc%22%3A%2224-bit%22%2C%22sr%22%3A%221920x1200%22%2C%22ul%22%3A%22zh-cn%22%2C%22cs%22%3A%22UTF-8%22%2C%22dt%22%3A%22Apple%20iPhone%20%E8%8B%B9%E6%9E%9C14%20iPhone14%EF%BC%88A2884%EF%BC%89%E5%85%A8%E7%BD%91%E9%80%9A%205G%E6%89%8B%E6%9C%BA%20%E7%B4%AB%E8%89%B2%20256GB%E3%80%90%E5%9B%BE%E7%89%87%20%E4%BB%B7%E6%A0%BC%20%E5%93%81%E7%89%8C%20%E6%8A%A5%E4%BB%B7%E3%80%91-%E4%BA%AC%E4%B8%9C%22%2C%22hn%22%3A%22item.jd.com%22%2C%22fl%22%3A%22-%22%2C%22os%22%3A%22win%22%2C%22br%22%3A%22chrome%22%2C%22bv%22%3A%22113.0.0.0%22%2C%22wb%22%3A%221681969212%22%2C%22xb%22%3A%221683510750%22%2C%22yb%22%3A%221683534366%22%2C%22zb%22%3A%2263%22%2C%22cb%22%3A21%2C%22usc%22%3A%22kong%22%2C%22ucp%22%3A%22t_1001542270_1002476735_158562_2046555321%22%2C%22umd%22%3A%22tuiguang%22%2C%22uct%22%3A%2245ad59b5247e4d82b861b66683e1e5d0%22%2C%22ct%22%3A1683538714818%2C%22lt%22%3A0%2C%22tad%22%3A%22-%22%2C%22jdv%22%3A%22122270672%7Ckong%7Ct_1001542270_1002476735_158562_2046555321%7Ctuiguang%7C45ad59b5247e4d82b861b66683e1e5d0%7C1683106002598%22%2C%22dataver%22%3A%220.1%22%7D&ref=https%3A%2F%2Fitem.jd.com%2F10055509089441.html&rm=1683538714819

peter199083

zxsea_7426

peter199083 发表于 2023-5-9 13:59

你看我这个网页代码里啥也没有
检查里能看到:

perfect131

京东cookie较多、不会js逆向就用 IE、selenium、非selenium cdp、有偿我可以看看

仙女配凡人

这个得用JavaScript写网页脚本直接获取，vba不适合干这个活

perfect131

仙女配凡人 发表于 2023-5-9 21:24
这个得用JavaScript写网页脚本直接获取，vba不适合干这个活

是谁告诉你的vba不适合，vba当然可以:P

佳能lT搬砖着

Sub Get_JD_price()

Dim xhr As MSXML2.XMLHTTP60
Dim html As New HTMLDocument
Dim price As String
Dim url As String

url = "https://p.3.cn/prices/mgets?skuIds=J_3133856"

Set xhr = New MSXML2.XMLHTTP60
  
xhr.Open "GET", url, False  

xhr.send

html.body.innerHTML = xhr.responseText

price = html.querySelector("body > div").getAttribute("data-price")

Debug.Print price

End Sub
前往京东网站，打开您想要获取价格的商品页面。
从浏览器地址栏中复制商品编号。例如：https://item.jd.com/123456.html 中的编号是 123456。
将您希望获取价格的商品 ID 替换掉代码中的 ID。例如：将代码中的商品 ID: 3133856 替换为您所需要的商品 ID。

仙女配凡人

perfect131 发表于 2023-5-9 22:12
是谁告诉你的vba不适合，vba当然可以:P

以前也搞过类似的需求，京东反爬机制挺难搞的，请求几次就不行了。在浏览器注入js脚本获取html元素会简单一点

perfect131

仙女配凡人 发表于 2023-5-22 21:34
以前也搞过类似的需求，京东反爬机制挺难搞的，请求几次就不行了。在浏览器注入js脚本获取html元素会简单 ...

不觉得京东反爬挺难，比起瑞数5，m8u3解密等简单多了。我上次的代码现在也可以运行，所以应该没什么限制。有也可能是 限制IP