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

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

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

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

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

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