仿某刺 WS WSS (WebSocket) HP中文 多线程并发稳定模块

百事可乐2018

66666666666666666666666

一瓶矿泉水

wlp 发表于 2024-9-24 15:40
[e=0].版本 2

.程序集 回调集

3这个问题确实存在，12目前无感
反正是开源的，小问题只有自己改下了

wlp

  

窗口程序集名	保 留	保 留	备 注
回调集

子程序名	返回值类型	公开	备 注
OnConnect连接成功	整数型
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型

变量名	类 型	静态	数组	备 注
szAddress	文本型
iAddressLen	整数型
usPort	整数型
返回值	整数型

' iAddressLen ＝ 40
' szAddress ＝ 取空白文本 (40)
' usPort ＝ 0
' m_Client.GetLocalAddress (pSender, dwConnID, szAddress, usPort)
' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnConnect]->local address:” ＋ szAddress ＋ “:” ＋ 到文本 (usPort))
如果真 (全_ssl ＝ 假)
SendUpgrade (pSender, dwConnID)
返回 (0)

子程序名	返回值类型	公开	备 注
OnHandShake握手	整数型		握手
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型

' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnHandShake]”)
SendUpgrade (pSender, dwConnID)
返回 (0)  ' #HR_OK

子程序名	返回值类型	公开	备 注
OnUpgrade升级协议	整数型		升级协议
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型
enUpgradeType	整数型

变量名	类 型	静态	数组	备 注
返回值	整数型

' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnUpgrade]”)
. ' 如果真 (enUpgradeType ＝ #HUT_WEB_SOCKET)
' m_bWebSocket ＝ 真

判断 (enUpgradeType ＝ #HUT_WEB_SOCKET )
如果 (全局_连接成功 ＜ 1)
返回 (0)  ' #HR_OK
调用子程序 (全局_连接成功, , 返回值, dwConnID)
返回 (返回值)
返回 (0)  ' #HR_OK
返回 ( #HR_ERROR )

.版本 2<br /> <br /> .程序集 回调集<br /> <br /> .子程序 OnConnect连接成功, 整数型<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> .局部变量 szAddress, 文本型<br /> .局部变量 iAddressLen, 整数型<br /> .局部变量 usPort, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> ' iAddressLen ＝ 40<br /> ' szAddress ＝ 取空白文本 (40)<br /> ' usPort ＝ 0<br /> ' m_Client.GetLocalAddress (pSender, dwConnID, szAddress, usPort)<br /> ' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnConnect]->local address:” ＋ szAddress ＋ “:” ＋ 到文本 (usPort))<br /> .如果真 (全_ssl ＝ 假)<br />     SendUpgrade (pSender, dwConnID)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> <br /> .子程序 OnHandShake握手, 整数型, , 握手<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> <br /> ' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnHandShake]”)<br /> <br /> SendUpgrade (pSender, dwConnID)<br /> 返回 (0)  ' #HR_OK<br /> .子程序 OnUpgrade升级协议, 整数型, , 升级协议<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 enUpgradeType, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> ' LogMsg (“ > [#” ＋ 到文本 (dwConnID) ＋ “,OnUpgrade]”)<br /> .' 如果真 (enUpgradeType ＝ #HUT_WEB_SOCKET)<br />     ' m_bWebSocket ＝ 真<br /> .如果真结束<br /> <br /> <br /> .判断开始 (enUpgradeType ＝ #HUT_WEB_SOCKET)<br />     .如果 (全局_连接成功 ＜ 1)<br />         返回 (0)  ' #HR_OK<br />     .否则<br />         调用子程序 (全局_连接成功, , 返回值, dwConnID)<br />         返回 (返回值)<br />     .如果结束<br />     返回 (0)  ' #HR_OK<br /> .默认<br />     返回 (#HR_ERROR)

首先你的代码有几处不对（好久没写hp了，下面1，2可能不对，我也记不清非SSL的连接会不会触发OnHandShake）
1. 连接成功事件应该是ws连接成功(OnUpgrade)之后通知，而不是在tcp连接成功(OnConnect)就通知
2. OnHandShake应该是ssl才会触发，如果没有ssl就应该立即发送SendUpgrade，否则就在OnHandShake发送SendUpgrade

3. 模块没有处理deflate压缩数据，所以就没必要发送headers里面的 Sec-WebSocket-Extensions: permessage-deflate; client_max_window_bits

549368678

学习学习学习学习学习

kfccfk

感谢你的分享

tmtony

谢谢源码开放，这个能做websocket服务器吗？

q2350210076

奉上小小红包希望笑纳

q2350210076

奉上小小红包希望笑纳奉上小小红包希望笑纳

q2350210076

奉上小小红包希望笑纳

f121809994

支持积分解放军附件发甲方交付阶段