UC知道VB中XMLHttp
来源：百度知道 编辑：UC知道 时间：2024/06/24 08:55:51
怎么不能用post提交 我不熟悉 怎么数据传不了 就算不传数据 直接请求也得不到返回的数据
Public Function Test()
Dim SvrName(14), xPost, HttpAdd
Set xPost = CreateObject("Microsoft.XMLHTTP")
HttpAdd = "http://localhost:1687/Web/Handler.ashx"
xPost.Open "post", HttpAdd, False
On Error Resume Next
xPost.setRequestHeader "Content-Type", "application/x-www-form-urlencode;charset=UTF-8"
xPost.send ("userName=dd")
If xPost.ReadyState = 4 Then
MsgBox xPost.responseText
End If
xPost.abort
End Function
Public Function Test()
Dim SvrName(14), xPost, HttpAdd
Set xPost = CreateObject("Microsoft.XMLHTTP")
HttpAdd = "http://localhost:1687/Web/Handler.ashx"
xPost.Open "post", HttpAdd, False
On Error Resume Next
xPost.setRequestHeader "Content-Type", "application/x-www-form-urlencode;charset=UTF-8"
xPost.send ("userName=dd")
If xPost.ReadyState = 4 Then
MsgBox xPost.responseText
End If
xPost.abort
End Function
安全起见，本地程序不能获得XMLHttp的返回值。你可以将XMLHttp放在WebBrowswer控件中进行Post，但是打开的Web页面必须与HttpAdd属于同一个域。
也许页面有跳转。
如果是跳转的话，从Header中获取返回的跳转的链，然后再get