查询网址是:
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