Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) Send and Receive WebSocket FrameDemonstrates how to send a websocket text frame to a websocket echo server. This example uses Chilkat's websocket test echo server at ws://websockets.chilkat.io/wsChilkatEcho.ashx
Note: The websockets.chilkat.io server imposes the following limitations:
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim ws As New Chilkat.WebSocket ' For brevity, this example does not check for errors when etablishing the WebSocket connection. ' See Establish WebSocket Connection for more complete sample code for making the connection. Dim rest As New Chilkat.Rest ' Connect to websockets.chilkat.io ' IMPORTANT: websockets.chilkat.io accepts frames of up to 16K in size and echoes them back. ' IMPORTANT: The websockets.chilkat.io server imposes the following limitations: ' ---------- Messages must be 16K or less, and each connection is limited to a max of 16 echoed messages. Dim success As Boolean = rest.Connect("websockets.chilkat.io",80,False,False) ws.UseConnection(rest) ws.AddClientHeaders() Dim responseBodyIgnored As String = rest.FullRequestNoBody("GET","/wsChilkatEcho.ashx") success = ws.ValidateServerHandshake() If (success <> True) Then Debug.WriteLine(ws.LastErrorText) Exit Sub End If ' This example demonstrates sending a frame and receiving a text frame. ' Send a frame containing the string "Hello World!" ' This will be the first and final frame, and therefore this constitutes the entire message. Dim finalFrame As Boolean = True success = ws.SendFrame("Hello World!",finalFrame) If (success <> True) Then Debug.WriteLine(ws.LastErrorText) Exit Sub End If ' Read an incoming frame. success = ws.ReadFrame() If (success <> True) Then Debug.WriteLine("Failed to receive a frame") Debug.WriteLine("ReadFrame fail reason = " & ws.ReadFrameFailReason) Debug.WriteLine(ws.LastErrorText) Exit Sub End If ' Show the string that was received. Dim receivedStr As String = ws.GetFrameData() Debug.WriteLine("Received: " & receivedStr) ' Close the websocket connection. success = ws.SendClose(True,1000,"Closing this websocket.") If (success <> True) Then Debug.WriteLine(ws.LastErrorText) Exit Sub End If ' Read the Close response. success = ws.ReadFrame() If (success <> True) Then Debug.WriteLine("ReadFrame fail reason = " & ws.ReadFrameFailReason) Debug.WriteLine(ws.LastErrorText) Exit Sub End If ' Should receive the "Close" opcode. Debug.WriteLine("Received opcode: " & ws.FrameOpcode) ' Should be the same status code we sent (1000) Debug.WriteLine("Received close status code: " & ws.CloseStatusCode) ' The server may echo the close reason. If not, this will be empty. Debug.WriteLine("Echoed close reason: " & ws.CloseReason) Debug.WriteLine("Success.") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.