求助websocket问题

shareol25

关于https://im.opencodetiger.cn/

websocket协议的连接，发送
能帮做个例子吗。大神帮个忙~

shiguang2018

下载地址:  https://wwn.lanzout.com/iAQrR2lhirvc
登录都给你写好了
迷心模块 可以直接替换  精易模块

shiguang2018

我来?                        

shiguang2018

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
bool	逻辑型
err	文本型

bool ＝ 功能_登录 (编辑框_账号.内容, 编辑框_密码.内容, err)
如果 (bool ＝ 真)
信息框 (“登录成功”, 0, , _启动窗口)

信息框 (“登录失败: ” ＋ err, 16, , _启动窗口)

子程序名	返回值类型	公开	备 注
功能_登录	逻辑型		本子程序由Sunny中间件生成,请配合 [精易模块] 使用。
参数名	类 型	参考	可空	数组	备 注
账号	文本型
密码	文本型
err	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交数据	文本型
协议头	类_POST数据类
局_结果	字节集
局_返回	文本型
json	zyJsonValue
Msg	文本型

局_网址 ＝ “https://im.opencodetiger.cn/LoginAjax/Index?rnd=0.5606452807620597”
局_提交数据 ＝ “Type=” ＋ “1”
局_提交数据 ＝ 局_提交数据 ＋ “&UserAccount=” ＋ 账号
局_提交数据 ＝ 局_提交数据 ＋ “&LoginPwd=” ＋ 密码
局_提交数据 ＝ 局_提交数据 ＋ “&BindMobile=”
局_提交数据 ＝ 局_提交数据 ＋ “&SmsVerifyCode=”
局_提交数据 ＝ 局_提交数据 ＋ “&LoginVerifyType=” ＋ “Acc”
协议头.添加 (“Accept”, “text/html, */*; q=0.01”, )
' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）
协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )
协议头.添加 (“Connection”, “keep-alive”, )
协议头.添加 (“Content-Length”, “95”, )
协议头.添加 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”, )
协议头.添加 (“Host”, “im.opencodetiger.cn”, )
协议头.添加 (“Origin”, “https://im.opencodetiger.cn”, )
协议头.添加 (“Referer”, “https://im.opencodetiger.cn/Login/Index?BackUrl=../ImChat/WebChatShopPagePc”, )
协议头.添加 (“Sec-Fetch-Dest”, “empty”, )
协议头.添加 (“Sec-Fetch-Mode”, “cors”, )
协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )
协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )
协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )
协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )
协议头.添加 (“sec-ch-ua-mobile”, “?0”, )
协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )
局_结果 ＝ 网页_访问_对象 (局_网址, 1, 局_提交数据, , 全_cookie, 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )
局_返回 ＝ 编码_Utf8到Ansi (局_结果)
json.解析 (局_返回, , , , )
Msg ＝ json.取文本 (“Msg”)
如果 (Msg ＝ “登录成功”)
全_ShopUserID ＝ json.取长整数 (“DataDic.ShopUserID”)
调试输出 (全_ShopUserID)
返回 (真)
err ＝ json.取文本 (“ErrMsg”)
返回 (假)

子程序名	返回值类型	公开	备 注
功能_ws连接			本子程序由Sunny中间件生成,请配合 [精易模块] 使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型
协议头	类_POST数据类
局_结果	字节集
局_返回	文本型
hidConnGuid	文本型
hidSignalRUserID	文本型
connectionToken	文本型
ws_url	文本型
ws	SunnyWSS客户Duan
bool	逻辑型
局_协议头	文本型
是否首次	逻辑型

局_网址 ＝ “https://im.opencodetiger.cn/ImChat/WebChatShopPagePc”
协议头.添加 (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7”, )
' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）
协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )
协议头.添加 (“Connection”, “keep-alive”, )
协议头.添加 (“Host”, “im.opencodetiger.cn”, )
协议头.添加 (“Referer”, “https://im.opencodetiger.cn/Login/Index?BackUrl=../ImChat/WebChatShopPagePc”, )
协议头.添加 (“Sec-Fetch-Dest”, “document”, )
协议头.添加 (“Sec-Fetch-Mode”, “navigate”, )
协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )
协议头.添加 (“Sec-Fetch-User”, “?1”, )
协议头.添加 (“Upgrade-Insecure-Requests”, “1”, )
协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )
协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )
协议头.添加 (“sec-ch-ua-mobile”, “?0”, )
协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )
局_结果 ＝ 网页_访问_对象 (局_网址, 0, , 全_cookie, , 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )
局_返回 ＝ 编码_Utf8到Ansi (局_结果)
hidConnGuid ＝ 文本_取出中间文本 (局_返回, “hidConnGuid” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )
hidSignalRUserID ＝ 文本_取出中间文本 (局_返回, “hidSignalRUserID” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )
connectionToken ＝ 功能_取connectionToken (hidConnGuid, hidSignalRUserID)
ws_url ＝ “wss://im.opencodetiger.cn/ImChatHub?SignalRUserID=” ＋ 到文本 (全_ShopUserID) ＋ “&ConnGuid=” ＋ hidConnGuid ＋ “&id=” ＋ connectionToken
局_协议头 ＝ 局_协议头 ＋ “Accept-Encoding: gzip, deflate, br, zstd” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Accept-Language: zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Cache-Control: no-cache” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Connection: Upgrade” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Host: im.opencodetiger.cn” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Origin: https://im.opencodetiger.cn” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Pragma: no-cache” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Extensions: permessage-deflate; client_max_window_bits” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Key: 9/Z7FuqVrW+Fiq7z4q+r0A==” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Version: 13” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Upgrade: websocket” ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “Cookie: ” ＋ 全_cookie ＋ #换行符
局_协议头 ＝ 局_协议头 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0” ＋ #换行符
调试输出 (ws_url)
bool ＝ ws.连接 (ws_url, 局_协议头, 到整数 (&__示例__WebSocket回调函数), 假, , , )
是否首次 ＝ 真
如果 (bool ＝ 真)
判断循环首 (真)
如果 (是否首次 ＝ 真)
ws.发送数据 (编码_BASE64解码 (“eyJwcm90b2NvbCI6Impzb24iLCJ2ZXJzaW9uIjoxfR4=”, 真), #Sunny_WsMessage_Binary )
是否首次 ＝ 假
ws.发送数据 (编码_BASE64解码 (“eyJ0eXBlIjo2fR4=”, 真), #Sunny_WsMessage_Binary )
调试输出 (“心跳”)

程序_延时 (150000, )
判断循环尾 ()

信息框 (“WS连接失败”, 16, , _启动窗口)

子程序名	返回值类型	公开	备 注
__示例__WebSocket回调函数
参数名	类 型	参考	可空	数组	备 注
客户Duan标识	整数型				Sunny中间件可创建多个 由这个参数判断是哪个Sunny回调过来的
消息类型	整数型
数据指针	整数型				在WebSocket回调函数中,MessageId 不会一直变
指针长度	整数型				#Sunny_消息类型_
数据类型	整数型

变量名	类 型	静态	数组	备 注
bin	字节集

bin ＝ 指针到字节集 (数据指针, 指针长度)
调试输出 (到文本 (bin))

子程序名	返回值类型	公开	备 注
功能_取connectionToken	文本型		本子程序由Sunny中间件生成,请配合 [精易模块] 使用。
参数名	类 型	参考	可空	数组	备 注
hidConnGuid	文本型
hidSignalRUserID	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
协议头	类_POST数据类
局_结果	字节集
局_返回	文本型
json	zyJsonValue
connectionToken	文本型

局_网址 ＝ “https://im.opencodetiger.cn/ImChatHub/negotiate?SignalRUserID=” ＋ hidSignalRUserID ＋ “&ConnGuid=” ＋ hidConnGuid ＋ “&negotiateVersion=1”
协议头.添加 (“Accept”, “*/*”, )
' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）
协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )
协议头.添加 (“Connection”, “keep-alive”, )
协议头.添加 (“Content-Length”, “0”, )
协议头.添加 (“Content-Type”, “text/plain;charset=UTF-8”, )
协议头.添加 (“Host”, “im.opencodetiger.cn”, )
协议头.添加 (“Origin”, “https://im.opencodetiger.cn”, )
协议头.添加 (“Referer”, “https://im.opencodetiger.cn/ImChat/WebChatShopPagePc”, )
协议头.添加 (“Sec-Fetch-Dest”, “empty”, )
协议头.添加 (“Sec-Fetch-Mode”, “cors”, )
协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )
协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )
协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )
协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )
协议头.添加 (“sec-ch-ua-mobile”, “?0”, )
协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )
局_结果 ＝ 网页_访问_对象 (局_网址, 1, , 全_cookie, , 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )
局_返回 ＝ 编码_Utf8到Ansi (局_结果)
json.解析 (局_返回, , , , )
connectionToken ＝ json.取文本 (“connectionToken”)
返回 (connectionToken)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

启动线程 (&功能_ws连接, , )

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 bool, 逻辑型<br /> .局部变量 err, 文本型<br /> <br /> bool ＝ 功能_登录 (编辑框_账号.内容, 编辑框_密码.内容, err)<br /> <br /> .如果 (bool ＝ 真)<br />     信息框 (“登录成功”, 0, , _启动窗口)<br /> <br /> .否则<br />     信息框 (“登录失败: ” ＋ err, 16, , _启动窗口)<br /> .如果结束<br /> <br /> <br /> .子程序 功能_登录, 逻辑型, , 本子程序由Sunny中间件生成,请配合 [精易模块] 使用。<br /> .参数 账号, 文本型<br /> .参数 密码, 文本型<br /> .参数 err, 文本型, 参考<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 json, zyJsonValue<br /> .局部变量 Msg, 文本型<br /> <br /> 局_网址 ＝ “https://im.opencodetiger.cn/LoginAjax/Index?rnd=0.5606452807620597”<br /> <br /> 局_提交数据 ＝ “Type=” ＋ “1”<br /> 局_提交数据 ＝ 局_提交数据 ＋ “&UserAccount=” ＋ 账号<br /> 局_提交数据 ＝ 局_提交数据 ＋ “&LoginPwd=” ＋ 密码<br /> 局_提交数据 ＝ 局_提交数据 ＋ “&BindMobile=”<br /> 局_提交数据 ＝ 局_提交数据 ＋ “&SmsVerifyCode=”<br /> 局_提交数据 ＝ 局_提交数据 ＋ “&LoginVerifyType=” ＋ “Acc”<br /> <br /> 协议头.添加 (“Accept”, “text/html, */*; q=0.01”, )<br /> ' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）<br /> 协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )<br /> 协议头.添加 (“Connection”, “keep-alive”, )<br /> 协议头.添加 (“Content-Length”, “95”, )<br /> 协议头.添加 (“Content-Type”, “application/x-www-form-urlencoded; charset=UTF-8”, )<br /> 协议头.添加 (“Host”, “im.opencodetiger.cn”, )<br /> 协议头.添加 (“Origin”, “https://im.opencodetiger.cn”, )<br /> 协议头.添加 (“Referer”, “https://im.opencodetiger.cn/Login/Index?BackUrl=../ImChat/WebChatShopPagePc”, )<br /> 协议头.添加 (“Sec-Fetch-Dest”, “empty”, )<br /> 协议头.添加 (“Sec-Fetch-Mode”, “cors”, )<br /> 协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )<br /> 协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )<br /> 协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )<br /> 协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )<br /> 协议头.添加 (“sec-ch-ua-mobile”, “?0”, )<br /> 协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 1, 局_提交数据, , 全_cookie, 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )<br /> <br /> 局_返回 ＝ 编码_Utf8到Ansi (局_结果)<br /> json.解析 (局_返回, , , , )<br /> Msg ＝ json.取文本 (“Msg”)<br /> .如果 (Msg ＝ “登录成功”)<br />     全_ShopUserID ＝ json.取长整数 (“DataDic.ShopUserID”)<br />     调试输出 (全_ShopUserID)<br />     返回 (真)<br /> .否则<br />     err ＝ json.取文本 (“ErrMsg”)<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 功能_ws连接, , , 本子程序由Sunny中间件生成,请配合 [精易模块] 使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 hidConnGuid, 文本型<br /> .局部变量 hidSignalRUserID, 文本型<br /> .局部变量 connectionToken, 文本型<br /> .局部变量 ws_url, 文本型<br /> .局部变量 ws, SunnyWSS客户Duan<br /> .局部变量 bool, 逻辑型<br /> .局部变量 局_协议头, 文本型<br /> .局部变量 是否首次, 逻辑型<br /> <br /> 局_网址 ＝ “https://im.opencodetiger.cn/ImChat/WebChatShopPagePc”<br /> 协议头.添加 (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7”, )<br /> ' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）<br /> 协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )<br /> 协议头.添加 (“Connection”, “keep-alive”, )<br /> 协议头.添加 (“Host”, “im.opencodetiger.cn”, )<br /> 协议头.添加 (“Referer”, “https://im.opencodetiger.cn/Login/Index?BackUrl=../ImChat/WebChatShopPagePc”, )<br /> 协议头.添加 (“Sec-Fetch-Dest”, “document”, )<br /> 协议头.添加 (“Sec-Fetch-Mode”, “navigate”, )<br /> 协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )<br /> 协议头.添加 (“Sec-Fetch-User”, “?1”, )<br /> 协议头.添加 (“Upgrade-Insecure-Requests”, “1”, )<br /> 协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )<br /> 协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )<br /> 协议头.添加 (“sec-ch-ua-mobile”, “?0”, )<br /> 协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 0, , 全_cookie, , 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )<br /> 局_返回 ＝ 编码_Utf8到Ansi (局_结果)<br /> hidConnGuid ＝ 文本_取出中间文本 (局_返回, “hidConnGuid” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )<br /> hidSignalRUserID ＝ 文本_取出中间文本 (局_返回, “hidSignalRUserID” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )<br /> connectionToken ＝ 功能_取connectionToken (hidConnGuid, hidSignalRUserID)<br /> <br /> <br /> <br /> ws_url ＝ “wss://im.opencodetiger.cn/ImChatHub?SignalRUserID=” ＋ 到文本 (全_ShopUserID) ＋ “&ConnGuid=” ＋ hidConnGuid ＋ “&id=” ＋ connectionToken<br /> 局_协议头 ＝ 局_协议头 ＋ “Accept-Encoding: gzip, deflate, br, zstd” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Accept-Language: zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Cache-Control: no-cache” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Connection: Upgrade” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Host: im.opencodetiger.cn” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Origin: https://im.opencodetiger.cn” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Pragma: no-cache” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Extensions: permessage-deflate; client_max_window_bits” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Key: 9/Z7FuqVrW+Fiq7z4q+r0A==” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Sec-WebSocket-Version: 13” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Upgrade: websocket” ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “Cookie: ” ＋ 全_cookie ＋ #换行符<br /> 局_协议头 ＝ 局_协议头 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0” ＋ #换行符<br /> <br /> 调试输出 (ws_url)<br /> <br /> bool ＝ ws.连接 (ws_url, 局_协议头, 到整数 (&__示例__WebSocket回调函数), 假, , , )<br /> 是否首次 ＝ 真<br /> .如果 (bool ＝ 真)<br />     .判断循环首 (真)<br />         .如果 (是否首次 ＝ 真)<br /> <br />             ws.发送数据 (编码_BASE64解码 (“eyJwcm90b2NvbCI6Impzb24iLCJ2ZXJzaW9uIjoxfR4=”, 真), #Sunny_WsMessage_Binary)<br />             是否首次 ＝ 假<br />         .否则<br />             ws.发送数据 (编码_BASE64解码 (“eyJ0eXBlIjo2fR4=”, 真), #Sunny_WsMessage_Binary)<br />             调试输出 (“心跳”)<br />         .如果结束<br /> <br /> <br />         程序_延时 (150000, )<br />     .判断循环尾 ()<br /> <br /> <br /> <br /> <br /> .否则<br />     信息框 (“WS连接失败”, 16, , _启动窗口)<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __示例__WebSocket回调函数<br /> .参数 客户Duan标识, 整数型, , Sunny中间件可创建多个 由这个参数判断是哪个Sunny回调过来的<br /> .参数 消息类型, 整数型<br /> .参数 数据指针, 整数型, , 在WebSocket回调函数中,MessageId 不会一直变<br /> .参数 指针长度, 整数型, , #Sunny_消息类型_<br /> .参数 数据类型, 整数型<br /> .局部变量 bin, 字节集<br /> <br /> bin ＝ 指针到字节集 (数据指针, 指针长度)<br /> <br /> 调试输出 (到文本 (bin))<br /> <br /> <br /> .子程序 功能_取connectionToken, 文本型, , 本子程序由Sunny中间件生成,请配合 [精易模块] 使用。<br /> .参数 hidConnGuid, 文本型<br /> .参数 hidSignalRUserID, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 json, zyJsonValue<br /> .局部变量 connectionToken, 文本型<br /> <br /> 局_网址 ＝ “https://im.opencodetiger.cn/ImChatHub/negotiate?SignalRUserID=” ＋ hidSignalRUserID ＋ “&ConnGuid=” ＋ hidConnGuid ＋ “&negotiateVersion=1”<br /> <br /> 协议头.添加 (“Accept”, “*/*”, )<br /> ' 协议头.添加 ("Accept-Encoding","gzip, deflate, br, zstd"）<br /> 协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”, )<br /> 协议头.添加 (“Connection”, “keep-alive”, )<br /> 协议头.添加 (“Content-Length”, “0”, )<br /> 协议头.添加 (“Content-Type”, “text/plain;charset=UTF-8”, )<br /> 协议头.添加 (“Host”, “im.opencodetiger.cn”, )<br /> 协议头.添加 (“Origin”, “https://im.opencodetiger.cn”, )<br /> 协议头.添加 (“Referer”, “https://im.opencodetiger.cn/ImChat/WebChatShopPagePc”, )<br /> 协议头.添加 (“Sec-Fetch-Dest”, “empty”, )<br /> 协议头.添加 (“Sec-Fetch-Mode”, “cors”, )<br /> 协议头.添加 (“Sec-Fetch-Site”, “same-origin”, )<br /> 协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36 Edg/125.0.0.0”, )<br /> 协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )<br /> 协议头.添加 (“sec-ch-ua”, 子文本替换 (“'Microsoft Edge';v='125', 'Chromium';v='125', 'Not.A/Brand';v='24'”, “'”, #引号, , , 真), )<br /> 协议头.添加 (“sec-ch-ua-mobile”, “?0”, )<br /> 协议头.添加 (“sec-ch-ua-platform”, 子文本替换 (“'Windows'”, “'”, #引号, , , 真), )<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 1, , 全_cookie, , 协议头.获取协议头数据 (), , , , , , , , , , , 假, , )<br /> 局_返回 ＝ 编码_Utf8到Ansi (局_结果)<br /> json.解析 (局_返回, , , , )<br /> connectionToken ＝ json.取文本 (“connectionToken”)<br /> 返回 (connectionToken)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 启动线程 (&功能_ws连接, , )