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

Question

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

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

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

1(它使用一个库(第一个答案(。
2(第二个答案反而混淆了套接字和websocket。

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