主题：[求助]怎么把json数据post出去

查询网址是：

 

https://zscx.zjsafety.gov.cn/examweb/certList.jsp

 

 

之前是按照下面的方式写的，现在有post数据提交，想改，不知道怎么把json数据传出去

 

Dim name As String=Functions.Execute("utf8",e.Form.controls("TextBox1").text)

Dim id As String=e.Form.controls("TextBox2").text

 

Dim time As String =DateDiff("s", "01/01/1970 00:00:00", Now())

Dim msg As String = "username=" & name &"&idcard=" & id & "&_=" & time

Dim req = System.Net.WebRequest.Create("http://zscx.zjsafety.gov.cn/examweb/api/v2/certificate/query_json.xhtml")

req.Method = "POST"

req.Timeout = 5000

req.C

Dim aryBuf As Byte() = Encoding.GetEncoding("GB2312").GetBytes(msg)

req.ContentLength = aryBuf.Length

Dim writer = req.GetRequestStream()

writer.Write(aryBuf, 0, aryBuf.Length)

writer.Close()

writer.Dispose()

Dim pos = req.GetResponse

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

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

Dim str As String = reader.ReadToEnd

pos.Close

stm.Close

reader.close

 

太感谢了