xml发送数据请求的疑问

[e4snake]

我想做一个自动登陆网站的程序
找到别人提供的范例
Option Explicit
Dim xml As New XMLHTTP
Private Sub Command1_Click()
Call AccessNet
End Sub

Private Sub AccessNet()
On Error Resume Next
Dim str1 As String
xml.open "POST", "http://yourWeb/handle.asp", False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xml.send "UserName=" & Text1.Text & "&Password=" & Text2.text

If xml.Status = 200 Then
str1 = StrConv(xml.responseBody, vbUnicode)'返回的内容
MsgBox str1
End If
End Sub

测试后发现好像没有起作用，最后返回的内容还是我登陆时的起始页面啊
望高手指点

[e4snake]

这里没有高手吗？

[孟子E章]

On Error Resume Next
Dim str1 As String
xml.open "POST", "http://yourWeb/handle.asp", False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.setRequestHeader "Content-Length", Len("UserName=" & Text1.Text & "&Password=" & Text2.text)
xml.send "UserName=" & Text1.Text & "&Password=" & Text2.text

If xml.Status = 200 Then
str1 = StrConv(xml.responseBody, vbUnicode)'返回的内容
MsgBox str1
End If

返回的是什么取决于你的handle.asp的输出

[e4snake]

一样的效果。这个页面是发送表单到另外一个页面
但是这样返回的结果还是第一个页面的内容啊 ：（

[ChinaOk]

??
啥意思？妮不是要模拟递交登陆的信息嘛？

==========================================
欢迎使用 Forums Helper 论坛助手... [助您多、快、好、爽上CSDN...]
程序最后更新２００４年０７月１３日 [Powered By ChinaOK]

[e4snake]

是的。但是这样没有效果啊
是这样的
首页表单提交后就是提交到另外一个页面嘛
这个页面还要点击一个链结才可以登陆
我想直到发送后是否转到那个页面了。
是否密码等正确
正确与否在那个页面会后不同的显示