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

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