Dim encoding As New UTF8Encoding()
Dim request As HttpWebRequest = WebRequest.Create(“你的地址”)
request.Method = "POST"
request.Accept = "text/html, application/xhtml+xml, */*"
request.ContentType = "application/json"
Dim buffer As Byte() = encoding.GetBytes(body)
request.ContentLength = buffer.Length
request.GetRequestStream().Write(buffer, 0, buffer.Length)
Dim response As HttpWebResponse = request.GetResponse()
Using sr As New StreamReader(response.GetResponseStream(), encoding.UTF8)
Return sr.ReadToEnd()
End Using
Processed:
0.011, SQL:
8
