主题：[求助]有没有 实现http用post方式提交数据 的例子

Dim Bllabel As String

Bllabel = "TF15-03K0001"  '大标签 

Slabel = "81478872,8676321" '小标签的集合 用,隔开

Dim Fwcode As String

Fwcode = "00972110097211,00972110097211" '小标签的防伪码 集合 用,隔开

Dim objHTTP As Object

Set objHTTP = CreateObject("MSXML2.XMLHTTP")

objHTTP.open "GET", "http://tfgs.qn.qs12315.com/datacontrol.ashx?type=collocation&Blabel=" & Bllabel & "&Slabel=" & Slabel & "&Fwcode=" & Fwcode, False

objHTTP.send

If objHTTP.Status = 200 Then

    bytData = objHTTP.responseBody

    Debug.Print StrConv(bytData, vbUnicode)

    MsgBox (StrConv(bytData, vbUnicode))  ' vbUnicode 防伪Y为插入成功.N:xxxxx为失败.xxxx代表失败的信息

End If

Dim Bllabel As String

Bllabel = "TF15-03K0001"  '大标签

Dim Slabel As String

Slabel = "81478872,8676321" '小标签的集合 用,隔开

Dim Fwcode As String

Fwcode = "00972110097211,00972110097211" '小标签的防伪码 集合 用,隔开

Dim url As String = "http://tfgs.qn.qs12315.com/datacontrol.ashx?type=collocation&Blabel=" & Bllabel & "&Slabel=" & Slabel & "&Fwcode=" & Fwcode

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

rsps.Close
stm.Close
reader.close