求 VB6 POST 提交表单问题

qq345444657 发布于 2013-06-16 16:19， 773 次点击

目的就是用VB6 提交一个网页的表单
表单中就按2个值来说 username 与 password

我用 webBrowser 控件已经实现了，就是还要打开页面很慢

请教 XMLHTTP 如何 POST 提交表单，求一个小例子不胜感激（网上找的例子不能用撒，各位给个能用的谢谢）

2 回复

qq3454446572013-06-16 16:22

set oxh=createobject("Microsoft.XMLHTTP")
postdata="username=abc&password=123"         '注意这行。get方式则是放在url的?后面的
oxh.Open "post",url,false
oxh.setRequestHeader "Content-Length",len(postdata)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send postdata

这是我网上搜的一个例子，不能用，值没有传递过去

风吹过b2013-06-17 08:20

Private Sub 发POST包(数据 As String, URL As String)
    On Error Resume Next
    Dim poststr() As Byte
    poststr = StrConv(数据, vbFromUnicode)
    Web1.Navigate URL, , , poststr, "Content-Type: application/x-www-form-urlencoded"
End Sub