Dim msg As String = "examCertVo.studentName=%E4%BD%99%E4AA&examCertVo.studentCode=3307******37&type=0&_=1490854313819"
Dim req = System.Net.WebRequest.Create("http://zscx.zjsafety.gov.cn/examweb/examCert/findByPage.action")
req.Method = "POST"
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
msgbox(str)
[此贴子已经被作者于2017/3/30 14:26:56编辑过]