Question

请教vb使用inet控件post数据的方法

做了个简单的测试程序
目的是用inet的execute方法把text1.text用post方式发送到指定的url去
再由那个url返回web输出内容
然后把这个输出的内容输出到label1.caption上
代码如下::
Private Sub Command1_Click()
Dim myurl As String, send_data As String, myhead As String
myurl = "http://ceshi.hzoko.com/php/inet/post.php"
send_data = "txt=" + Trim(Text1.Text)
my_head = "Content-Type: application/x-www-form-urlencoded"
Inet1.Execute myurl, "POST", send_data, myhead
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim get_data As String
Do Until Inet1.StillExecuting = False
Loop
If State = 12 Then
get_data = Inet1.GetChunk(1024)
Label1.Caption = get_data
End If
End Sub

错误提示
实时错误:-2147417848(80010108)
对象'execute'的方法'iinet'失败

按调试键

Inet1.Execute myurl, "POST", send_data, myhead
这行代码发亮,黄色的

请各位帮我看看应该如何修改代码
或者干脆高手给我一个发送数据的例子
要post方法的
服务器响应页是我做的
只需要一个变量
变量名txt
inet好歹我还会用get方式提交数据
只是大段数据没办法用get提交
所以我很犯愁
至于说msxml
我是根本不会
当然如果msxml可以实现我要求的功能
那么我很乐意去使用msxml
当然麻烦回答的大哥给点msxml的资料来
分数马上就会送到

好了,我自己已经把问题解决了
问题是在header上
2楼的方法我以前就试过
不行
现在我知道了
还要发一个header
告诉服务器保持连接
就是connection:keep-alive
为了感谢2楼的关注
决定把分给2楼了

Answer 1

我调试了一下，作了如下更改：
测试没有问题
返回“您的输入为:text1"

Private Sub Command1_Click()

Dim myurl As String, send_data As String, my_head As String

myurl = "http://ceshi.hzoko.com/php/inet/post.php"

send_data = "txt=" + Trim(Text1.Text)

my_head = "Content-Type: application/x-www-form-urlencoded"

Inet1.Execute myurl, "POST", send_data, my_head

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim get_data As String

' Do Until Inet1.StillExecuting = False
'
' Loop

If State = 12 Then
get_data = Inet1.GetChunk(1024)
Label1.Caption = get_data
End If
End Sub

Answer 2

inet控件很麻烦的啊，用MSXML的xmlhttp多好