标题：[免费开源]狐表bs集成websocket方法，dll来源于github 3.5k高分数的C# Websocket库 稳定性和兼容性非常好 。 相当于web bs领域的OpenQQ功能

此主题相关图片如下：1.jpg

此主题相关图片如下：3.jpg


此主题相关图片如下：案例.png

此主题相关图片如下：2.jpg



websocket是什么？简单说就是在bs领域里实现狐表openQQ的功能，保持客户端与服务器的实时通讯，服务器能主动推送消息给客户端

此主题相关图片如下：1.png

此主题相关图片如下：2.png

Public wssv As New wss.WebSocketServer() 'WebSocket容器

Public wssh As Object '将来挂载进去WebSocket容器的实例

'Websocket的实例代码

Public Class WsChat

    Inherits wss.WebSocketBehavior

    '默认构造函数

    Public Sub New()

    End Sub

    '1重写客户端上线后的事件

    Protected Overrides Sub OnOpen() 

        Functions.Execute("WsUserLogged",Id,Context.Origin,Context.QueryString)

    End Sub

    '2重写收到客户端下线的事件

    Protected Overrides Sub OnClose(ByVal e As ws.CloseEventArgs) 

        Functions.Execute("WsUserLogout",Id)

    End Sub 

    '3重写收到客户端消息后的事件

    Protected Overrides Sub OnMessage(ByVal e As ws.MessageEventArgs) 

        Functions.Execute("WsReceivedMessage",Id,e.Data)

    End Sub

    '4重写报错异常事件

    Protected Overrides Sub OnError(ByVal e As ws.ErrorEventArgs) 

        Functions.Execute("WsOnError",e.Message)

    End Sub

End Class

函数名：WsKickOff

'踢某个ID的用户下线

'小技巧 wssh.Sessions.Ids是所有在线用户的ID集合，可以用来Count或者判断Contains

'通过Functions.Execute("WsKickOff",ID)使用

Dim ID As String =Args(0)

If wssh.Sessions.Ids.Contains(ID) Then 

    wssh.Sessions.CloseSession(ID)

End If

函数名：WsSendAll

'群发消息

'通过Functions.Execute("WsSendAll","xxx")使用

Dim s1 As String = Args(0)

wssv.WebSocketServices.Broadcast(s1)

函数名：WsSendOne

'对某个ID的用户发送文本消息。Ele的type类型有4种:success,warning,info,error

'小技巧 wssh.Sessions.Ids是所有在线用户的ID集合,可以用来Count或者判断Contains

'通过Functions.Execute("WsSendOne",ID,"xxx")使用

Dim ID As String = Args(0)

Dim s1 As String = Args(1)

If wssh.Sessions.Ids.Contains(ID) Then    

    wssh.Sessions.SendTo(s1,ID)

End If

函数名：WsOnError

'当WebSocket服务器端异常报错的事件

Dim msg As String =Args(0)

函数名：WsReceivedMessage

'收到WebSocket客户端消息后的事件

Dim ID As String =Args(0)

Dim msg As String =Args(1)

函数名：WsUserLogged

'WebSocket客户端上线后的事件，知道登陆用户的ID，和其他数据

Dim ID As String =Args(0)

Dim Origin As String = Args(1) '客户端请求地址

Dim cqs As System.Collections.Specialized.NameValueCollection = Args(2) '通过 cqs("token")来获取value值,注意区分大小写,注意是否为Nothing

函数名：WsUserLogout

'WebSocket客户端下线后的事件,知道下线用户的ID

Dim ID As String =Args(0)

我为代码精灵增加了很多websocket的提示

此主题相关图片如下：3.png

（顺便如果你想问我怎么添加的提示，你可以看之前我分享的帖子http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=152491&replyID=&skin=1）

③开始使用

1狐表启动WebSocket

wssv = New wss.WebSocketServer("ws://127.0.0.1:9091")

wssv.AddWebSocketService(Of WsChat)("/WsChat")

'尝试启动

Try

    wssv.Start()

    '把ws实例放进去全局变量,方便使用

    Dim lwh As List(of wss.WebSocketServiceHost) = wssv.WebSocketServices.Hosts

    For Each wh As wss.WebSocketServiceHost In lwh

        If wh.Path="/WsChat" Then

            wssh = wh

            Exit For

        End If

    Next    

Catch ex As Exception

    Messagebox.Show("Websocket启动失败:" & ex.Message)

End Try

If  wssv.IsListening Then

    wssv.Stop()

End If

let ws = null

//方法:

//主动创建ws连接

function wsConnect() {

    if (typeof(WebSocket) === "undefined") {

        console.log('您的浏览器不支持WebSocket')

    } else {

        if (!ws || ws.readyState == 0 || ws.readyState == 3) {

            //根据开发环境配置path，注意是否支持https，决定这里是ws还是wss，否则会被nginx拦截

            let path = 'ws://127.0.0.1:9091/WsChat'

            // 实例化socket

            ws = new WebSocket(path)

            // 重写socket连接的方法

            ws.onopen = wsOnOpen

            // 重写socket监听错误消息的方法

            ws.onerror = wsOnError

            // 重写socket接收消息的方法

            ws.onmessage = wsOnMessage

            // 重写socket关闭的方法

            ws.onclose = wsOnClose

        }

    }

}

//主动向服务器发送文本

function wsSend(msg) {

    ws.send(msg)

}

//主动关闭连接

function wsClose() {

    if (ws) {

        ws.close()

        console.log("ws主动关闭连接")

    }

}

//事件：

//连接成功后触发的事件

function wsOnOpen() {

    console.log("ws连接成功后")

}

//连接接收信息后触发的事件

function wsOnMessage(msg) {

    console.log('收到消息：' + msg.data)

}

//连接关闭后触发的事件

function wsOnClose() {

    console.log("ws关闭连接后")

}

//WS报错后触发的事件

function wsOnError() {

    console.log("ws连接错误")

}

4保持不掉线

如果是直连狐表，是不会断的

如果只通过nginx反向代理，默认情况下1分钟会断，因为nginx有个设置，你还要去改

写了这个还不够，前端还要做个心跳，9分钟的时候发一下。服务器是否回复都没所谓。

5没有连接前拦截

可能是技术不够，网上也没看到什么前置拦截方法，并且网上的人也基本都说是先连接上，再判断踢出

此主题相关图片如下：2.png

6不能与HttpServer共用同一个端口

例如http监听了80，那你就要用非80，例如81

如果想集成到http里，只能狐表官方改自己的HttpServer源码，集成进去才行，我们是第三方外挂的。

那这样会不方便吗？我服务器要开2个端口？

如果你用狐表做服务器直接对外，那就必须2个端口了

我更加推荐使用Nginx反向代理，可以保护狐表，可以一键增加ssl安全证书（变成https和wss），可以反向代理实现对外1个端口。