测试服务端websocket访问问题 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
ws客户Duan	WebSocket客户Duan

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

ws网址url ＝编辑框2.内容
ws客户Duan.初始化 (&ws客户Duan_收到消息, &ws客户Duan_连接成功, &WS客户Duan_连接失败, &WS客户Duan_断开连接)
编辑框1.加入文本 (“连接初始化” ＋ #换行符 )
data.创建 (“Origin”)
data.置文本 (“Origin”, “http://www.okx.com”)
ws客户Duan.置请求头 (data)
ws客户Duan.连接 (ws网址url, 假, )

子程序名	返回值类型	公开	备注
ws客户Duan_收到消息
参数名	类型	参考	可空	数组	备注
消息类型	整数型
消息句柄	整数型

变量名	类型	静态	数组	备注
局_消息数据	文本型
局_数组	文本型		0

' -----------------------
编辑框1.加入文本 (“收到消息” ＋ #换行符 )
' -----------------------
局_消息数据＝字节集_到文本 (ws客户Duan.取回消息数据 (消息句柄))
局_消息数据＝文本_取出中间文本 (局_消息数据, “[[”, “]”, , )
输出调试文本 (局_消息数据)
局_数组＝分割文本 (局_消息数据, “,”, )
输出调试 (取数组成员数 (局_数组))

如果真 (取数组成员数 (局_数组) ≠ 0)

局_消息数据＝文本_取出中间文本 (局_数组 [5], “#引号”, “#引号”)

输出调试 (局_数组 [5])

标签1.标题＝局_消息数据

当前值识别＝到数值 (局_消息数据)

子程序名	返回值类型	公开	备注
ws客户Duan_连接成功

调试输出 (“连接成功”)
' -----------------------
编辑框1.加入文本 (“连接成功” ＋ #换行符 )
' -----------------------
ws客户Duan.发送文本 (文本_替换 ( #常量2, , , , “产品名”, “BTC-USDT”))

子程序名	返回值类型	公开	备注
WS客户Duan_连接失败

调试输出 (“连接失败”)
编辑框1.加入文本 (“连接失败” ＋ #换行符 )

子程序名	返回值类型	公开	备注
WS客户Duan_断开连接

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

__启动窗口_创建完毕 ()

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库

.版本 2<br />
.支持库 e2ee<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 ws客户Duan, WebSocket客户Duan<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
ws网址url ＝ 编辑框2.内容<br />
ws客户Duan.初始化 (&ws客户Duan_收到消息, &ws客户Duan_连接成功, &WS客户Duan_连接失败, &WS客户Duan_断开连接)<br />
编辑框1.加入文本 (“连接初始化” ＋ #换行符)<br />
data.创建 (“Origin”)<br />
data.置文本 (“Origin”, “http://www.okx.com”)<br />
ws客户Duan.置请求头 (data)<br />
ws客户Duan.连接 (ws网址url, 假, )<br />
<br />
.子程序 ws客户Duan_收到消息<br />
.参数 消息类型, 整数型<br />
.参数 消息句柄, 整数型<br />
.局部变量 局_消息数据, 文本型<br />
.局部变量 局_数组, 文本型, , "0"<br />
<br />
' -----------------------<br />
编辑框1.加入文本 (“收到消息” ＋ #换行符)<br />
' -----------------------<br />
局_消息数据 ＝ 字节集_到文本 (ws客户Duan.取回消息数据 (消息句柄))<br />
<br />
局_消息数据 ＝ 文本_取出中间文本 (局_消息数据, “[[”, “]”, , )<br />
<br />
输出调试文本 (局_消息数据)<br />
<br />
局_数组 ＝ 分割文本 (局_消息数据, “,”, )<br />
输出调试 (取数组成员数 (局_数组))<br />
.如果真 (取数组成员数 (局_数组) ≠ 0)<br />
    局_消息数据 ＝ 文本_取出中间文本 (局_数组 [5], “#引号”, “#引号”)<br />
<br />
    输出调试 (局_数组 [5])<br />
    标签1.标题 ＝ 局_消息数据<br />
    当前值识别 ＝ 到数值 (局_消息数据)<br />
<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.子程序 ws客户Duan_连接成功<br />
<br />
调试输出 (“连接成功”)<br />
' -----------------------<br />
编辑框1.加入文本 (“连接成功” ＋ #换行符)<br />
' -----------------------<br />
ws客户Duan.发送文本 (文本_替换 (#常量2, , , , “产品名”, “BTC-USDT”))<br />
<br />
<br />
.子程序 WS客户Duan_连接失败<br />
<br />
调试输出 (“连接失败”)<br />
<br />
编辑框1.加入文本 (“连接失败” ＋ #换行符)<br />
<br />
.子程序 WS客户Duan_断开连接<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
__启动窗口_创建完毕 ()