[免费开源]狐表bs集成websocket方法，dll来源于github 3.5k高分数的C# Websocket库稳定性和兼容性非常好。相当于web bs领域的OpenQQ功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

(快速浏览杰哥分享过的所有经验汇总，点击跳转）

①效果一览

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

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

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

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

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

我从github上找了一个高分WebSocket的开源库，编译成dll给狐表实用。我只总结了对我有用的功能，有能力的大神，完全可以进一步看源码，注释详细，挖出更多更深的功能。

github地址：https://github.com/sta/websocket-sharp

这个玩意，我弄得不深，研究了1天，整合了1天，再写文档写了1天。有更深需求的，建议自己看英文源码。

②基础引入

1引入websocket-sharp.dll（在帖子结尾有回复后有下载链接）

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

2添加2个命名空间

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

WebSocketSharp.Server wss

WebSocketSharp.Server ws

重启项目，然后再检查命名空间是否还在。因为如果你写错字母，它会消失的。

3添加全局代码

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

4添加内部函数

函数名：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)

5更新代码精灵
用我的help.mdb覆盖到狐表程序里的help.mdb（参考路径C:\foxtable\Professional）

我为代码精灵增加了很多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

2狐表停止WebSocket

If wssv.IsListening Then
wssv.Stop()
End If

3前端代码

代码很简单，直接看就行了，百度一堆h5关于websocket的使用，都是这些方法

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连接错误")
}