vbs 能用 xmlHttp 的 SetProxy 方法吗？ - VB6论坛

得分:20

没用过也不了解xmlhttp，百度了一下。
最通用的定义为：XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。
没有测试环境，只是在excel的VB中按顺序测试了setproxy、open、send方法，代码运行到send时报错。而setproxy方法是通过了，虽然代理服务器及端口是随意填的。
不知能不能帮上忙。

程序代码：

Const HTTPREQUEST_PROXYSETTING_DEFAULT = 0
Const HTTPREQUEST_PROXYSETTING_PRECONFIG = 0
Const HTTPREQUEST_PROXYSETTING_DIRECT = 1
Const HTTPREQUEST_PROXYSETTING_PROXY = 2


Private Sub CommandButton1_Click()
URL = "http://www."
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.5.0")
xmlhttp.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "219.246.90.162:3128"
   xmlhttp.Open "GET", URL, False
   xmlhttp.send ("")
   If xmlhttp.readyState = 4 Then

 ' Response.Write xmlhttp.getAllResponseHeaders
 MsgBox "ok"
   End If
End Sub

在网上找了一个代理服务器，测试正常。
手工编辑了一个html文件，测试也正常。
<html>
<head>
</head>
<body>
<script type="text/vbscript">
URL ="http://www.baidu.com"
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.5.0")
xmlhttp.SetProxy 2, "219.246.90.162:3128"
   xmlhttp.Open "GET", URL, False
   xmlhttp.send ("")
   If xmlhttp.readyState = 4 Then
   document.write "ok"
   End If
</script>
</body>
</html>

[ 本帖最后由 lianyicq 于 2015-1-30 15:32 编辑 ]

大开眼界