Proxy.vba

Sub MostrarConfiguracoesProxy()
    Dim WinHttpReq As Object
    Dim ProxyConfig As String

    ' Cria um objeto WinHTTP
    Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    ' Recupera as configurações de proxy do sistema
    On Error Resume Next
    WinHttpReq.SetProxy 0
    ProxyConfig = WinHttpReq.GetProxyForUrl("http://www.google.com")
    On Error GoTo 0

    ' Verifica e exibe as configurações de proxy
    If ProxyConfig <> "" Then
        MsgBox "Configurações de Proxy: " & ProxyConfig, vbInformation, "Proxy"
    Else
        MsgBox "Nenhuma configuração de proxy encontrada ou proxy não está configurado.", vbExclamation, "Proxy"
    End If
End Sub