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