我正在使用 WinHTTP 在 Excel VBA 宏中执行 GET 请求。但是,如果我尝试从具有代理的网络中的计算机发出请求,则它不起作用。如果我手动配置它,它可以工作,但我认为使用我正在开发的工具的人不会知道他们的代理服务器。
有没有办法自动配置代理服务器,或者从 Windows 获取代理配置?下面是示例代码:
Dim result As String
Dim URL As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://google.com/"
winHttpReq.Open "GET", URL, False
winHttpReq.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
winHttpReq.setProxy 2, "proxyserver:8080", ""
winHttpReq.send
result = winHttpReq.responseText
在这种情况下,我不想强迫用户找到“proxyserver:8080”地址 - 我想要的是一种自动填充该地址的方法。
多谢。
我从以下链接获得了以下 vbScript。您可以使用获取代理服务器并将其作为变量传递给“proxyserver:8080”的代码:
http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/client/retriving/ http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/client/retrieving/
如果您了解 vbScript - 它与 VBA 非常相似,我认为这应该会有很大帮助。如果您需要帮助用 VBA 编写此内容,请告诉我。
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Proxy")
For Each objItem in colItems
Wscript.Echo "Proxy Port Number: " & objItem.ProxyPortNumber
Wscript.Echo "Proxy Server: " & objItem.ProxyServer
Wscript.Echo "Server Name: " & objItem.ServerName
Wscript.Echo
Next
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)