如何在 VB.Net 应用程序中等待 http 请求？

Question

我必须在我的 VB.Net 应用程序中编写等待 http 请求的代码，并在请求到来时从中提取 JSON 字符串。

我知道如何处理 JSON 字符串

我知道如何编写并行线程来等待请求。

但我不知道如何捕捉请求

我找到了这个代码：How to wait for multiple async http request

但它是一个旧代码（微软现在说这个例子中使用的类 HttpWebResponse 和 HttpWebRequest 已被弃用），而且在 VB 中似乎很难翻译：有一个类似“foreach(var result in completedTasks.Select( t=>t.Result))" 和 "t" 没有在任何地方定义。

我找到了其他示例，但它们都告诉我们如何从 Vb.Net 发送 Http 请求，我想在 VB.Net 应用程序中接收请求，而不是从 VB.Net 发送。

谁能帮帮我？

谢谢

Answer 1

最近我使用 Unosquare 的 EmbedIO 进行了此操作。使用 Nuget 将 EmbedIO 包安装到新的 win 表单中（不必这样做；您可以稍后将其撕开，但我使用 winforms 来创建此演示），然后将所有这些代码粘贴到 Form1.vb 的顶部：

Imports EmbedIO
Imports EmbedIO.Routing
Imports EmbedIO.WebApi


Public Class Form1

    Private server As WebServer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim url = "http://localhost:9696/"

        server = CreateWebServer(url)
        server.RunAsync()

    End Sub



    ' Create and configure our web server.
    Private Shared Function CreateWebServer(ByVal url As String) As WebServer
        ' First, we will configure our web server by adding Modules.
        Dim server = New WebServer(
            Function(o)
                Return o.WithUrlPrefix(url).WithMode(HttpListenerMode.Microsoft)
            End Function
        ) _
        .WithWebApi("/api",
            Function(m)
                Return m.WithController(Of ApiController)()
            End Function
        )

        Return server
    End Function
End Class

Public Class ApiController
    Inherits WebApiController

    <Route(HttpVerbs.Post, "/data")>
    Public Async Function PostJsonData() As Task(Of ActionResult)
        Dim data = Await HttpContext.GetRequestDataAsync(Of MyJsonThing)()
        'install some tool like PostMan and POST some json data, like { "MyJsonThing": { "SomeProperty": "Hello" } }
        'do stuff here
        'return a response here
    End Function

    <Route(HttpVerbs.Get, "/ping")>
    Public Function Ping() As String
        Return "pong"
    End Function

End Class

Public Class MyJsonThing
    Public SomeProperty As String
End Class

然后运行应用程序，打开网络浏览器并导航到 http://localhost:9696/api/ping

你应该看到“pong”；如果不检查你的防火墙

剩下的就看你自己了！