Question

我正在模拟通常在浏览器和服务器之间进行的通信，以便访问网页并检索其内容。

但是，由于我需要通过代理，因此需要添加代理地址和端口详细信息以使其实现。

请有人通过编辑下面的代码并添加代理地址和代理端口以建立连接来帮助我吗？

谢谢！

编辑：非常感谢您已经在另一个问题/答案（how can I specify a proxy configuration using Microsoft.XMLHTTP?）上解决了此主题，但是，我确实不是专家，我无法理解解决方案是什么;如果有人在这里写一个简短的示例宏来通过代理实现连接，我将不胜感激。谢谢。

Option Explicit

Public Function getPageText(url As String)
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url
        .send
        getPageText = .responseText
    End With
End Function

Sub Example()
    Dim url As String: url = "http://re.jrc.ec.europa.eu/pvgis5/PVcalc.php?lat=45&lon=8&peakpower=1&loss=14&optimalangles=1&outputformat=basic"
    Debug.Print getPageText(url)
End Sub

Excel VBA-通过代理访问网页

0 个答案: