使用 VB.Net ClientWebSocket 从 WebSocket 获取数据

Question

我希望在 VB.NET 中看到一个最小的示例，并且不使用任何 websocket 客户端连接的外部库。

就像向 wss //echo.websocket.org 发送 Hello 并打印结果一样。

注意：建议的可能重复有错误的答案。

1）它使用一个库（第一个答案）。
2）第二个答案反而将套接字与 websockets 混淆。

Answer 1

有那么难吗？

    Dim ws = New System.Net.WebSockets.ClientWebSocket
    ' optional: ignore certificate errors
    ServicePointManager.ServerCertificateValidationCallback = Function(s, c, h, d) True

    Try
        Await ws.ConnectAsync(New Uri("wss://demos.kaazing.com/echo"), Nothing)
        If (ws.State = WebSockets.WebSocketState.Open) Then
            Debug.Print("Opened.")
            Await ws.SendAsync(New ArraySegment(Of Byte)(System.Text.Encoding.UTF8.GetBytes("{ ""message"":""hello""}")), WebSockets.WebSocketMessageType.Text, True, Nothing)
            Dim bytes(4096) As Byte
            Dim answ = New ArraySegment(Of Byte)(bytes)
            Await ws.ReceiveAsync(answ, Nothing)
            Debug.Print("answer:" + System.Text.Encoding.UTF8.GetString(answ.Array))
        Else
            Debug.Print("Not opened?!")
        End If
    Catch
        Debug.Print("Error.")
    End Try