设置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)