Excel VBA XMLHTTP

Question

我正在尝试将一些东西自动添加到我的购物车中。这应该在页面切换之前有效。如何刷新 HTML 代码？

Dim Page As New MSXML2.XMLHTTP60
Dim HTML As New MSHTML.HTMLDocument
Dim Btn As Object

Page.Open "GET", "https://www.amazon.de/gp/product/B00IPH78O6/ref=ox_sc_act_image_1?smid=A1JZY7TFGMYK57&psc=1", False
Page.send

HTML.body.innerHTML = Page.responseText
Set Btn = HTML.getElementById("add-to-cart-button")
Btn.Click

HTML.body.innerHTML = Page.responseText
Set Btn = HTML.getElementById("hlb-view-cart-announce")
Btn.Click

Answer 1

尝试使用selenium basic，例如

Option Explicit

Public Sub test()

    Dim d As WebDriver
    Set d = New ChromeDriver '<== You can change to other supported browsers e.g. IE, FireFox

    With d
         .Start "Chrome"
         .Get "https://www.amazon.de/gp/product/B00IPH78O6/ref=nav_signin?smid=A1JZY7TFGMYK57&psc=1&"
         .FindElementById("add-to-cart-button").Click
         .FindElementById("hlb-view-cart-announce").Click

         'Other stuff '<== Delete this line

         '.Quit
   End With

End Sub

您当前尝试的方法将要求您发出新请求，并且您可以复制一种方法来导航不同的页面。您可以尝试使用 Fiddler 或类似工具进行监控，但我只会使用 Selenium。