c语言使用websocket发送json,websocket 发送json

Module Module1

Sub Main()

Try

Dim m_IMSCOMAddress As String = "ws://" + "99.99.99.99" + ":9001"

Dim m_ws = New RemoteCmdHelper(m_IMSCOMAddress)

m_ws.m_message = "{""message"": ""stats""}"

m_ws.Open()

Threading.Thread.Sleep(500)

m_ws.Close()

Dim str = m_ws.m_results

'{"message":"stats","cpu":{"global":3.008392923190502},"time":117.666,"instance_id":"5d515109",

'"cells":{"1":{"dl_bitrate":0,"ul_bitrate":0,"dl_tx":0,"ul_tx":0,"dl_retx":0,"ul_retx":0,"dl_use_min":0,

'"dl_use_max":0.05999999865889549,"dl_use_avg":0.0031247502849712459,"ul_use_min":0.03999999910593033,

'"ul_use_max":0.09999999403953552,"ul_use_avg":0.04600015194588735,

'"dl_sched_users_min":0,"dl_sched_users_max":0,"dl_sched_users_avg":0,

'"ul_sched_users_min":0,"ul_sched_users_max":0,"ul_sched_users_avg":0,

'"ue_count_min":0,"ue_count_max":0,"ue_count_avg":0,"erab_count_min":0,

'"erab_count_max":0,"erab_count_avg":0,"dl_gbr_use_min":0,"dl_gbr_use_max":0,

'"dl_gbr_use_avg":0,"ul_gbr_use_min":0,"ul_gbr_use_max":0,"ul_gbr_use_avg":0}},

'"rf_ports":{"0":{"rxtx_delay":{"min":2.597916666666667,"max":3.8399305555555556,"avg":3.3078703627033845,

'"sd":0.2691544629708594}}},"counters":{"messages":{},"errors":{}}}

Return

Catch ex As Exception

'WriteLog("CheckeNBStatus:Failed Exception" + ex.Message)

Return

End Try

End Sub

End Module

/***************************************************************************************/

Imports System

Imports System.Text

Imports System.Threading

Imports System.Threading.Tasks

Imports WebSocket4Net

Imports SuperSocket

Imports SuperSocket.ClientEngine

Imports System.IO

Public Class RemoteCmdHelper

Implements IDisposable

Private ReceiveChunkSize As Integer = 1024

Private SendChunkSize As Integer = 1024

Private webSocketClient As WebSocket

Private uri As Uri

Private cancellationTokenSource As CancellationTokenSource = New CancellationTokenSource()

Private cancellationToken As CancellationToken

Public m_message As String

Public m_results As String = ""

Public Sub New(ByVal remoteuri As String)

Try

webSocketClient = New WebSocket(remoteuri)

'AddHandler webSocketClient.Error, Sub(s, e) socketError(s, e)

AddHandler webSocketClient.Opened, Sub(s, e) socketOpened(s, e)

AddHandler webSocketClient.Closed, Sub(s, e) socketClosed(s, e)

AddHandler webSocketClient.MessageReceived, Sub(s, e) socketMessage(s, e)

AddHandler webSocketClient.DataReceived, Sub(s, e) socketDataReceived(s, e)

'webSocketClient.AllowUnstrustedCertificate = True

Catch ex As Exception

'WriteLog("Fail to initialize the connect for the cmd to " + remoteuri + " Error:" + ex.Message)

End Try

End Sub

Private disposedValue As Boolean ' To detect redundant calls

Protected Overridable Sub Dispose(disposing As Boolean)

If Not disposedValue Then

If disposing Then

If Not IsNothing(webSocketClient) Then

webSocketClient.Dispose()

End If

End If

Finalize()

End If

disposedValue = True

End Sub

' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources.

'Protected Overrides Sub Finalize()

'    ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.

'    Dispose(False)

'    MyBase.Finalize()

'End Sub

' This code added by Visual Basic to correctly implement the disposable pattern.

Public Sub Dispose() Implements IDisposable.Dispose

' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.

Dispose(True)

' TODO: uncomment the following line if Finalize() is overridden above.

GC.SuppressFinalize(Me)

End Sub

Sub socketOpened(s As Object, e As EventArgs)

'webSocketClient.Send("{'message':'ue_get'}")

m_results = ""

webSocketClient.Send(m_message)

End Sub

Sub socketClosed(s As Object, e As EventArgs)

'WriteLog("Closed")

End Sub

Sub socketError(s As Object, e As IO.ErrorEventArgs)

'WriteLog(e.Exception.ToString)

End Sub

Sub socketMessage(s As Object, e As WebSocket4Net.MessageReceivedEventArgs)

m_results = e.Message

'If m_nBaseParam1 = 724 Then

'    WriteLog("socketMessage:" + m_results)

'    WriteLog(e.Message)

'End If

End Sub

Sub socketDataReceived(ss As Object, e As WebSocket4Net.DataReceivedEventArgs)

Dim s As New System.Text.StringBuilder

s.Append(System.Text.ASCIIEncoding.ASCII.GetString(e.Data, 0, e.Data.Length()))

Dim Str = s.ToString()

m_results = Str

'If m_nBaseParam1 = 724 Then

'WriteLog("socketDataReceived:" + m_results)

'WriteLog(Str)

'End If

End Sub

Public Function Open() As Boolean

Try

m_results = ""

If webSocketClient.State = WebSocketState.None Or webSocketClient.State = WebSocketState.Closed Then

webSocketClient.Open()

End If

Return True

Catch ex As Exception

'WriteLog(ex.Message)

Return False

End Try

End Function

Public Function Close() As Boolean

Try

If webSocketClient.State = WebSocketState.Open Then

webSocketClient.Close()

End If

Return True

Catch ex As Exception

'WriteLog(ex.Message)

Return False

End Try

End Function

Public Function Send(ByVal data As String) As Boolean

Try

webSocketClient.Send(data)

Return True

Catch ex As Exception

'WriteLog(ex.Message)

Return False

End Try

End Function

End Class