通过 JS、PHP 或 VBA 获取外部网站的完整 URL

Question

我想知道有没有办法使用 JavaScript 或 PHP，甚至 Excel 中的 VBA 返回网站的完整 URL（或只是参数）？

我无法在 iframe 中预览此网站，因为它给了我一个错误：

("frame-ancestors 'self'".error, Content Security Policy)

所以我不能使用window.location（可能是因为Cross-Origin），我想知道它如何在PHP或Excel VBA中完成（在这种情况下如何使用xmlhttp.Open？），或者与JS不返回内容本身。我不需要内容，只需要完整的 URL 或参数，因为只知道 URL 的一部分。

我有来自商店的完整 ID 列表，因此如果可能的话，我可以为经销商节省大量打字时间，因为他使用 ID 从供应商处订购特定物品。如果我使用该 ID，网站会加载内容并将 URL 更改为正确的 - 它看起来像这样（在浏览器中）：

我的请求：https://exampledomain.com/product_id=11

加载后的网址为：https://exampledomain.com/product_id=11&category=bikes&type=street

所以我感兴趣的部分是&category=bikes&type=street，而且一个完整的网址也足以进一步分析。

为了更准确，以下是工作示例： 观察加载内容后URL如何变化，我需要抓取新的，改变的URL

https://www.olx.pl/oferta/CID767-IDCkB7E.html

https://www.google.pl/maps/place/Paris,+France/

https://www.openstreetmap.org/search?query=Warszawa

Answer 1

我想这就是你所追求的。

'Import Everything From a Web Page:

Sub Test()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://your_link_here/" ' should work for any URL
        Do Until .ReadyState = 4: DoEvents: Loop

            x = .document.body.innertext
            x = Replace(x, Chr(10), Chr(13))
            x = Split(x, Chr(13))
            Range("A1").Resize(UBound(x)) = Application.Transpose(x)

            .Quit
        End With

End Sub