Configuration de proxy avec WinHTTP et Excel

Je suis en utilisant WinHTTP pour faire une demande d'OBTENIR, dans un fichier Excel Macro VBA. Cependant, si j'essaie de faire la demande à partir d'une machine dans un réseau avec un proxy, il ne fonctionne pas. Si je le configurer manuellement, il fonctionne, mais je ne pense pas que les gens qui vont utiliser l'outil que je suis en développement connaîtront leurs serveurs proxy.

Est-il un moyen de configurer automatiquement le serveur proxy, ou pour obtenir la configuration de proxy à partir de Windows? Voici un exemple de code:

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

Dans ce cas, je ne veux pas forcer l'utilisateur à trouver le "serveur proxy:8080" adresse - ce que je veux, c'est un moyen de remplir automatiquement.

Merci beaucoup.

OriginalL'auteur Yuri Oliveira | 2012-05-14

  1. 1

    J'ai eu le dessous de vbScript à partir du lien suivant. Vous pouvez être en mesure à utiliser pour obtenir le serveur proxy et le passer comme une variable à votre code pour "serveur proxy:8080":

    http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/client/retrieving/

    Si vous connaissez vbScript - qui est très similaire à VBA, je pense que cela devrait aider beaucoup. Si vous avez besoin d'aide pour rédiger ce en VBA, laissez-moi savoir.

    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
    Salut! Cela semble être la voie, mais à chaque fois que j'essaie d'exécuter la requête, il est dit que Win32_Proxy est une classe non valide. J'ai essayé avec d'autres classes que j'ai trouvé sur le MSDN et ils ont travaillé, donc je pense que c'est un problème spécifique à cette classe.
    Intéressant. Cela a fonctionné pour moi. Laissez-moi savoir si vous trouvez le problème. Si ça aide, je suis sur XP.
    Win32_Proxy n'est plus disponible post win-xp

    OriginalL'auteur Scott Holtzman

  2. 2

    Au cas où quelqu'un d'autre tombe sur cette page, vous cherchez une réponse à cette même question, je voudrais souligner à cette réponse, qui mentionne l'utilisation de la VBA-Web projet pour résoudre ce problème exact.

    Votre code devrait alors ressembler à ceci:

    Dim client As New WebClient
With client
    .BaseUrl = "https://www.google.com"
    .EnableAutoProxy = True
End With

Dim request As New WebRequest
With request
    .Method = WebMethod.HttpGet
    .AddHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    .Format = WebFormat.PlainText
End With

Dim response As WebResponse
Set response = client.Execute(request)
    Très élégante solution en effet

    OriginalL'auteur Alexandre D'Erman