为 VB 脚本设置代理

Question

我想在代理后面运行一个 VB 脚本。代理是为系统定义的：

但是代理不适用于我的 vb 脚本。如果我运行以下代码：

Dim objHttp
Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
objHttp.Open "GET", "http://www.google.de", False
objHttp.Send
output = objHttp.ResponseText
Set objHttp = Nothing 

我收到超时错误：

脚本中似乎没有使用代理。是否可以手动设置代理。

Answer 1

添加这一行

objHttp.setProxy 2, "http=myProxyServer:80", ""

语法：

setProxy(ByVal proxySetting As SXH_PROXY_SETTING, [ByVal varProxyServer], [ByVal varBypassList])

如果需要，Msxml2.ServerXMLHTTP 对象还支持代理凭据。

语法：

setProxyCredentials(ByVal bstrUserName As String, ByVal bstrPassword As String)