Получить данные из WebSocket с помощью VB. Net ClientWebSocket

Question

I sh, чтобы увидеть минимальный пример в VB. NET и без использования каких-либо внешних библиотек подключения клиента websocket.

Как отправка Hello на wss //echo.websocket.org и печать результата.

примечание: предлагаемый возможный дубликат имеет неправильные ответы.

1) он использует библиотеку (первый ответ).
2) Второй ответ вместо смешанных сокетов с веб-сокетами ,

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