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