如何用VB创建Http request URL来接收用户的JSON数据并发送响应代码.net

Imports System.IO
Imports System.Net
Imports System.Text

Dim listener As New HttpListener()
listener.Prefixes.Add("http://localhost:8080/") ' 设置监听的URL
listener.Start()

While True
    Dim context As HttpListenerContext = listener.GetContext()
    Dim request As HttpListenerRequest = context.Request

    ' 获取请求的JSON数据
    Dim requestBody As String
    Using reader As New StreamReader(request.InputStream, request.ContentEncoding)
        requestBody = reader.ReadToEnd()
    End Using

    ' 处理请求数据，可以根据需要进行业务逻辑处理

    ' 构建响应数据
    Dim responseData As String = "Hello, World!"
    Dim responseBytes As Byte() = Encoding.UTF8.GetBytes(responseData)

    ' 发送响应
    Dim response As HttpListenerResponse = context.Response
    response.ContentType = "application/json"
    response.ContentEncoding = Encoding.UTF8
    response.ContentLength64 = responseBytes.Length
    response.OutputStream.Write(responseBytes, 0, responseBytes.Length)
    response.OutputStream.Close()
End While