VBA WinHTTP自动检测代理设置

Question

我正在尝试从excel vba中的代理服务器后面向Web服务发送请求。如何让我的代码自动检测代理设置？

Url = "www.example.com"

Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")

WHTTP.Open "GET", Url, False

WHTTP.Send

MsgBox WHTTP.Status
MsgBox WHTTP.ResponseText
MsgBox WHTTP.ResponseBody
MsgBox WHTTP.GetAllResponseHeaders

Set WHTTP = Nothing

End Sub