wss 链接 运行几个小时 输出变卡

g48550134

wss链接 运行几个小时 输出变卡 有清空输出框的  代码 如下

welkin

敢贴一下源码不！你这AV画质啥也看不清楚！

2wEn

定时重启啊

g48550134

.版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_窗口1
.程序集变量 g_连接状态, 逻辑型
.程序集变量 json, 类_json

.子程序 __启动窗口_创建完毕

WSS_全局_初始化 ()
g_连接状态 ＝ 假
成功计数 ＝ 0
挑战成功次数 ＝ 0

.子程序 _按钮_连接状态_被单击
.局部变量 ip解析类型, 整数型
.局部变量 SSL加密套件列表, 文本型

按钮_连接状态.禁止 ＝ 真
.判断开始 (g_连接状态)
    WSS_连接_断开 (g_ws)
.默认

    g_ws ＝ WSS_连接_启动 (编辑框_URL.内容, , , , , , , &ws_连接成功, &ws_连接断开, &ws_收到消息, , , , , , )
    .如果真 (g_ws ＝ 0)
        按钮_连接状态.禁止 ＝ 假
        信息框 (“创建ws失败”, 0, , )
    .如果真结束

.判断结束




.子程序 ws_连接成功
.参数 ws, 整数型


输出 (“ws_连接成功”)

g_连接状态 ＝ 真
按钮_连接状态.标题 ＝ “断开”
按钮_连接状态.禁止 ＝ 假

.子程序 ws_连接断开
.参数 ws, 整数型

输出 (“ws_连接断开”)
g_连接状态 ＝ 假
按钮_连接状态.标题 ＝ “连接”
按钮_连接状态.禁止 ＝ 假


.子程序 ws_收到消息
.参数 ws, 整数型
.参数 opcode, 整数型
.局部变量 消息, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 订单id, 文本型
.局部变量 发送文本, 文本型
.局部变量 i, 整数型
.局部变量 count, 整数型
.局部变量 通关卡, 文本型
.局部变量 关卡数, 整数型
.局部变量 屏障到期时间, 文本型
.局部变量 彩虹体, 文本型
.局部变量 玩家id, 文本型
.局部变量 到期时间, 文本型
.局部变量 掠夺彩虹体, 双精度小数型
.局部变量 a, 整数型
.局部变量 玩家数, 整数型
.局部变量 现行时间, 整数型
.局部变量 屏障时间, 整数型
.局部变量 code, 整数型

消息 ＝ 到文本 (WSS_取回数据_文本 (ws))
json.解析 (消息)
请求方法名称返回标识 ＝ json.取通用属性 (“type”)
json.清除 ()
调试输出 (请求方法名称返回标识, 消息)
.如果真 (请求方法名称返回标识 ＝ “ExchangesTradeRet”)
    调试输出 (“购买成功：” ＋ 消息)
    json.解析 (消息)
    count ＝ 到整数 (json.取属性 (“data['payment_things'].data[0].item.count”).取数据文本 ())
    json.清除 ()

    成功计数 ＝ 成功计数 ＋ count

    _启动窗口.编辑框1.内容 ＝ 到文本 (成功计数)

    输出 (“购买成功返回：” ＋ 消息)

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)
    商城_购买_处理事件 (消息)
    输出 (“cha询商城返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “UseRightsAdRet”)
    输出 (“每日任务请求成功返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “BuyPvETimesRet”)
    json.解析 (消息)
    通关卡 ＝ json.取属性 (“data['pve_data'].progress”).取数据文本 ()
    json.清除 ()
    通关发送 (到整数 (通关卡))

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “PvERet”)
    输出 (“通关请求成功返回：” ＋ 消息)
    通关后处理 ()

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “BattleProgressRet”)
    输出 (“通关后返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “SettlePvEPush”)
    输出 (“获得奖励返回：” ＋ 消息)
    json.解析 (消息)
    关卡数 ＝ 到整数 (json.取属性 (“data['stage_id']”).取数据文本 ())
    json.清除 ()
    延迟 (2000)
    通关发送 (关卡数)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “MatchmakingRet”)

    isflag ＝ 假
    json.解析 (消息)
    玩家数 ＝ json.成员数 (“data.matches”)
    json.清除 ()

    .计次循环首 (玩家数, i)

        i ＝ i － 1

        json.解析 (消息)

        屏障到期时间 ＝ json.取属性 (“data.matches[” ＋ 到文本 (i) ＋ “]['shield_end_time']”).取数据文本 ()

        彩虹体 ＝ json.取属性 (“data.matches[” ＋ 到文本 (i) ＋ “].currency1”).取数据文本 ()

        玩家id ＝ json.取通用属性 (“data.matches[” ＋ 到文本 (i) ＋ “]['player_id']”)

        json.清除 ()

        到期时间 ＝ 时间_时间戳转文本 (屏障到期时间, 2)

        输出 (“玩家信息：” ＋ “玩家昵称：” ＋ 玩家id ＋ “玩家彩虹体为：” ＋ 彩虹体 ＋ “玩家屏障时间：” ＋ 到期时间)
        .如果真 (到整数 (彩虹体) ＞ 20)
            输出 (“挑战- 开始：” ＋ 玩家id)
            挑战_开始 (玩家id)
            输出 (“挑战- 开始：” ＋ 玩家id ＋ “发送挑战成功。。。”)
        .如果真结束

    .计次循环尾 ()
    isflag ＝ 真


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “PlunderRet”)
    isflag ＝ 假
    输出 (“挑战 - 开始：” ＋ 玩家id ＋ “：” ＋ 消息)
    json.解析 (消息)
    code ＝ 到整数 (json.取属性 (“code”).取数据文本 ())
    json.清除 ()
    .判断开始 (code ＝ 11)
        程序_延时 (1500)
        isflag ＝ 真
        _启动窗口.编辑框2.内容 ＝ “”
    .默认
        挑战结束 (玩家id)
    .判断结束


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “SettlePvPPush”)

    掠夺完成处理 (消息)


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “UseItemRet”)
    输出 (消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “VerifyTokenRet”)
    输出 (消息)
    isflag ＝ 真
.如果真结束


.子程序 ws_定时发送
.参数 ws, 整数型

商城_cha询 ()
WSS_发送_文本 (g_ws, #心跳发送)


.子程序 _按钮2_被单击


输出 (“开始完成每日任务。。。”)
WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)

每日商城 ()
商城_抽奖 ()
福利 ()
输出 (“完成每日任务成功。。。”)

.子程序 购买灵值和圣水商品
.局部变量 消息, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 i, 整数型
.局部变量 订单id, 文本型
.局部变量 发送文本, 文本型
.局部变量 a, 整数型
.局部变量 unit_count, 文本型
.局部变量 count, 文本型
.局部变量 成功计数, 整数型
.局部变量 订单list, 文本型, , "0"
.局部变量 b, 整数型


' WSS_发送_文本 (g_ws, #登录账号)
' 成功计数 ＝ 0

' 延迟 (1000)
' WSS_发送_文本 (g_ws, #商城cha询)
'
' 消息 ＝ 到文本 (WSS_取回数据_文本 (g_ws))
' json.解析 (消息)
' 请求方法名称返回标识 ＝ json.取通用属性 (“type”)
.' 如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)

    ' 订单id ＝ json.取通用属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['order_id']”)
    ' unit_count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['unit_count']”).取数据文本 ()
    ' count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “].things.data[0].item.count”).取数据文本 ()
    ' 成功计数 ＝ 成功计数 ＋ 到整数 (count)

    ' json.清除 ()

.如果真结束
' json.清除 ()
' 延迟 (10)

' 计次循环尾 (计次循环尾 ()
' 调试输出 (“cha询成功的消息：” ＋ 消息)

.' 如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)

    .' 计次循环首 (json.成员数 (“data['order_list']”), b)


        ' 发送文本 ＝ 文本_替换 (#购买商品, , , , “f3191686b0fcb1f300d17efda3ef33d1da29b56a6bf67a88d28a10fa700283f8”, 订单id, “替换文本count”, count, “替换文本unit”, unit_count)

        ' WSS_发送_文本 (g_ws, 发送文本)

        ' 延迟 (500)
        ' 编辑框1.内容 ＝ 到文本 (成功计数)

    .' 计次循环尾 ()
    ' json.清除 ()
.如果真结束

' 延迟 (3000)




.子程序 购买资源
.局部变量 发送文本, 文本型
.局部变量 订单id, 文本型
.局部变量 count, 文本型
.局部变量 unit_count, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 成功计数, 整数型
.局部变量 a, 整数型
.局部变量 消息, 文本型
.局部变量 b, 整数型
.局部变量 资源文本, 文本型
.局部变量 停止, 逻辑型


WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
成功计数 ＝ 0

延迟 (1000)
停止 ＝ 真

.判断循环首 (停止)
    WSS_发送_文本 (g_ws, #资源商城cha询)
    .计次循环首 (100, a)

        消息 ＝ 到文本 (WSS_取回数据_文本 (g_ws))

        json.解析 (消息)
        请求方法名称返回标识 ＝ json.取通用属性 (“type”)
        .如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)
            订单id ＝ json.取通用属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['order_id']”)
            unit_count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['unit_count']”).取数据文本 ()
            count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “].things.data[0].item.count”).取数据文本 ()
            json.清除 ()
            跳出循环 ()
        .如果真结束
        json.清除 ()

    .计次循环尾 ()
    调试输出 (“cha询成功的消息：” ＋ 消息)

    .如果真 (订单id ≠ “”)

        .计次循环首 (json.成员数 (“data['order_list']”), b)

            资源文本 ＝ json.取属性 (“data['order_list'][0].things.data”).取数据文本 ()

            发送文本 ＝ 文本_替换 (#资源购买, , , , “c8f17c99eeafaafb17d49d14450a19ae65ab1c7e60dd93fcb3ffe395c1e08393”, 订单id, “替换文本unit”, unit_count, “资源文本”, 资源文本)
            调试输出 (“资源购买发送：” ＋ 发送文本)

            WSS_发送_文本 (g_ws, 发送文本)

            延迟 (500)


        .计次循环尾 ()


        成功计数 ＝ 成功计数 ＋ 到整数 (count)
        编辑框1.内容 ＝ 到文本 (成功计数)

        .如果真 (成功计数 ≥ 到整数 (编辑框_发送内容.内容))
            停止 ＝ 假
            信息框 (“购买完成”, 0, , )
        .如果真结束

    .如果真结束

    延迟 (3000)
.判断循环尾 ()


.子程序 _选择框_定时发送_被单击


.判断开始 (选择框_定时发送.选中)
    输出 (“开启商城定时扫描 购买资源”)

    WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
    延迟 (1000)
    WSS_设置_心跳函数 (g_ws, 1000, &ws_定时发送)

.默认
    WSS_移除_心跳函数 (g_ws)
.判断结束


.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 通关数, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
通关_前处理 ()








.子程序 _按钮5_被单击
.局部变量 res, 文本型
.局部变量 token, 文本型
.局部变量 登录发送文本, 文本型

输出 (“开始登录”)
res ＝ 登录 (_启动窗口.编辑框_URL1.内容, _启动窗口.编辑框_URL2.内容)
json.解析 (res)
token ＝ json.取通用属性 (“data.token”)
json.清除 ()
输出 (“登录业务返回：” ＋ res)

res ＝ 登录换token (token)
json.解析 (res)
token ＝ json.取通用属性 (“token”)
json.清除 ()
输出 (“登录业务返回：” ＋ res)
登录发送文本 ＝ 文本_替换 (#登录账号, , , , “66fab828a59423bf2d057702”, token)

_启动窗口.编辑框_URL3.内容 ＝ 登录发送文本
输出 (“登录业务返回：” ＋ “登录成功。。。。”)

.子程序 _按钮3_被单击
.局部变量 i, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)

.子程序 _按钮6_被单击
.局部变量 i, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
.计次循环首 (10, i)
    WSS_发送_文本 (g_ws, #换挑战次数)
    延迟 (1000)
.计次循环尾 ()

.子程序 _按钮7_被单击

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
WSS_设置_心跳函数 (g_ws, 3000, &心跳发送开启)


.子程序 _按钮8_被单击

启动线程 (&挑战次数购买, , )

.子程序 挑战初始化

挑战搜索 ()

.子程序 _时钟1_周期事件
.局部变量 局_当前时, 整数型

线程_启动 (&任务1, , )

.子程序 任务1
.局部变量 秒, 整数型

.判断开始 (isflag)
    输出 (“搜索开始。。。”)
    挑战初始化 ()

.默认
    输出 (“任务1等待中。。。”)
.判断结束

g48550134

welkin 发表于 2024-10-17 17:06
敢贴一下源码不！你这AV画质啥也看不清楚！

.版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_窗口1
.程序集变量 g_连接状态, 逻辑型
.程序集变量 json, 类_json

.子程序 __启动窗口_创建完毕

WSS_全局_初始化 ()
g_连接状态 ＝ 假
成功计数 ＝ 0
挑战成功次数 ＝ 0

.子程序 _按钮_连接状态_被单击
.局部变量 ip解析类型, 整数型
.局部变量 SSL加密套件列表, 文本型

按钮_连接状态.禁止 ＝ 真
.判断开始 (g_连接状态)
    WSS_连接_断开 (g_ws)
.默认

    g_ws ＝ WSS_连接_启动 (编辑框_URL.内容, , , , , , , &ws_连接成功, &ws_连接断开, &ws_收到消息, , , , , , )
    .如果真 (g_ws ＝ 0)
        按钮_连接状态.禁止 ＝ 假
        信息框 (“创建ws失败”, 0, , )
    .如果真结束

.判断结束




.子程序 ws_连接成功
.参数 ws, 整数型


输出 (“ws_连接成功”)

g_连接状态 ＝ 真
按钮_连接状态.标题 ＝ “断开”
按钮_连接状态.禁止 ＝ 假

.子程序 ws_连接断开
.参数 ws, 整数型

输出 (“ws_连接断开”)
g_连接状态 ＝ 假
按钮_连接状态.标题 ＝ “连接”
按钮_连接状态.禁止 ＝ 假


.子程序 ws_收到消息
.参数 ws, 整数型
.参数 opcode, 整数型
.局部变量 消息, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 订单id, 文本型
.局部变量 发送文本, 文本型
.局部变量 i, 整数型
.局部变量 count, 整数型
.局部变量 通关卡, 文本型
.局部变量 关卡数, 整数型
.局部变量 屏障到期时间, 文本型
.局部变量 彩虹体, 文本型
.局部变量 玩家id, 文本型
.局部变量 到期时间, 文本型
.局部变量 掠夺彩虹体, 双精度小数型
.局部变量 a, 整数型
.局部变量 玩家数, 整数型
.局部变量 现行时间, 整数型
.局部变量 屏障时间, 整数型
.局部变量 code, 整数型

消息 ＝ 到文本 (WSS_取回数据_文本 (ws))
json.解析 (消息)
请求方法名称返回标识 ＝ json.取通用属性 (“type”)
json.清除 ()
调试输出 (请求方法名称返回标识, 消息)
.如果真 (请求方法名称返回标识 ＝ “ExchangesTradeRet”)
    调试输出 (“购买成功：” ＋ 消息)
    json.解析 (消息)
    count ＝ 到整数 (json.取属性 (“data['payment_things'].data[0].item.count”).取数据文本 ())
    json.清除 ()

    成功计数 ＝ 成功计数 ＋ count

    _启动窗口.编辑框1.内容 ＝ 到文本 (成功计数)

    输出 (“购买成功返回：” ＋ 消息)

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)
    商城_购买_处理事件 (消息)
    输出 (“cha询商城返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “UseRightsAdRet”)
    输出 (“每日任务请求成功返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “BuyPvETimesRet”)
    json.解析 (消息)
    通关卡 ＝ json.取属性 (“data['pve_data'].progress”).取数据文本 ()
    json.清除 ()
    通关发送 (到整数 (通关卡))

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “PvERet”)
    输出 (“通关请求成功返回：” ＋ 消息)
    通关后处理 ()

.如果真结束
.如果真 (请求方法名称返回标识 ＝ “BattleProgressRet”)
    输出 (“通关后返回：” ＋ 消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “SettlePvEPush”)
    输出 (“获得奖励返回：” ＋ 消息)
    json.解析 (消息)
    关卡数 ＝ 到整数 (json.取属性 (“data['stage_id']”).取数据文本 ())
    json.清除 ()
    延迟 (2000)
    通关发送 (关卡数)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “MatchmakingRet”)

    isflag ＝ 假
    json.解析 (消息)
    玩家数 ＝ json.成员数 (“data.matches”)
    json.清除 ()

    .计次循环首 (玩家数, i)

        i ＝ i － 1

        json.解析 (消息)

        屏障到期时间 ＝ json.取属性 (“data.matches[” ＋ 到文本 (i) ＋ “]['shield_end_time']”).取数据文本 ()

        彩虹体 ＝ json.取属性 (“data.matches[” ＋ 到文本 (i) ＋ “].currency1”).取数据文本 ()

        玩家id ＝ json.取通用属性 (“data.matches[” ＋ 到文本 (i) ＋ “]['player_id']”)

        json.清除 ()

        到期时间 ＝ 时间_时间戳转文本 (屏障到期时间, 2)

        输出 (“玩家信息：” ＋ “玩家昵称：” ＋ 玩家id ＋ “玩家彩虹体为：” ＋ 彩虹体 ＋ “玩家屏障时间：” ＋ 到期时间)
        .如果真 (到整数 (彩虹体) ＞ 20)
            输出 (“挑战- 开始：” ＋ 玩家id)
            挑战_开始 (玩家id)
            输出 (“挑战- 开始：” ＋ 玩家id ＋ “发送挑战成功。。。”)
        .如果真结束

    .计次循环尾 ()
    isflag ＝ 真


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “PlunderRet”)
    isflag ＝ 假
    输出 (“挑战 - 开始：” ＋ 玩家id ＋ “：” ＋ 消息)
    json.解析 (消息)
    code ＝ 到整数 (json.取属性 (“code”).取数据文本 ())
    json.清除 ()
    .判断开始 (code ＝ 11)
        程序_延时 (1500)
        isflag ＝ 真
        _启动窗口.编辑框2.内容 ＝ “”
    .默认
        挑战结束 (玩家id)
    .判断结束


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “SettlePvPPush”)

    掠夺完成处理 (消息)


.如果真结束
.如果真 (请求方法名称返回标识 ＝ “UseItemRet”)
    输出 (消息)
.如果真结束
.如果真 (请求方法名称返回标识 ＝ “VerifyTokenRet”)
    输出 (消息)
    isflag ＝ 真
.如果真结束


.子程序 ws_定时发送
.参数 ws, 整数型

商城_cha询 ()
WSS_发送_文本 (g_ws, #心跳发送)


.子程序 _按钮2_被单击


输出 (“开始完成每日任务。。。”)
WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)

每日商城 ()
商城_抽奖 ()
福利 ()
输出 (“完成每日任务成功。。。”)

.子程序 购买灵值和圣水商品
.局部变量 消息, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 i, 整数型
.局部变量 订单id, 文本型
.局部变量 发送文本, 文本型
.局部变量 a, 整数型
.局部变量 unit_count, 文本型
.局部变量 count, 文本型
.局部变量 成功计数, 整数型
.局部变量 订单list, 文本型, , "0"
.局部变量 b, 整数型


' WSS_发送_文本 (g_ws, #登录账号)
' 成功计数 ＝ 0

' 延迟 (1000)
' WSS_发送_文本 (g_ws, #商城cha询)
'
' 消息 ＝ 到文本 (WSS_取回数据_文本 (g_ws))
' json.解析 (消息)
' 请求方法名称返回标识 ＝ json.取通用属性 (“type”)
.' 如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)

    ' 订单id ＝ json.取通用属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['order_id']”)
    ' unit_count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['unit_count']”).取数据文本 ()
    ' count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “].things.data[0].item.count”).取数据文本 ()
    ' 成功计数 ＝ 成功计数 ＋ 到整数 (count)

    ' json.清除 ()

.如果真结束
' json.清除 ()
' 延迟 (10)

' 计次循环尾 (计次循环尾 ()
' 调试输出 (“cha询成功的消息：” ＋ 消息)

.' 如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)

    .' 计次循环首 (json.成员数 (“data['order_list']”), b)


        ' 发送文本 ＝ 文本_替换 (#购买商品, , , , “f3191686b0fcb1f300d17efda3ef33d1da29b56a6bf67a88d28a10fa700283f8”, 订单id, “替换文本count”, count, “替换文本unit”, unit_count)

        ' WSS_发送_文本 (g_ws, 发送文本)

        ' 延迟 (500)
        ' 编辑框1.内容 ＝ 到文本 (成功计数)

    .' 计次循环尾 ()
    ' json.清除 ()
.如果真结束

' 延迟 (3000)




.子程序 购买资源
.局部变量 发送文本, 文本型
.局部变量 订单id, 文本型
.局部变量 count, 文本型
.局部变量 unit_count, 文本型
.局部变量 请求方法名称返回标识, 文本型
.局部变量 成功计数, 整数型
.局部变量 a, 整数型
.局部变量 消息, 文本型
.局部变量 b, 整数型
.局部变量 资源文本, 文本型
.局部变量 停止, 逻辑型


WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
成功计数 ＝ 0

延迟 (1000)
停止 ＝ 真

.判断循环首 (停止)
    WSS_发送_文本 (g_ws, #资源商城cha询)
    .计次循环首 (100, a)

        消息 ＝ 到文本 (WSS_取回数据_文本 (g_ws))

        json.解析 (消息)
        请求方法名称返回标识 ＝ json.取通用属性 (“type”)
        .如果真 (请求方法名称返回标识 ＝ “ExchangesQueryViewRet”)
            订单id ＝ json.取通用属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['order_id']”)
            unit_count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “]['unit_count']”).取数据文本 ()
            count ＝ json.取属性 (“data['order_list'][” ＋ 到文本 (b － 1) ＋ “].things.data[0].item.count”).取数据文本 ()
            json.清除 ()
            跳出循环 ()
        .如果真结束
        json.清除 ()

    .计次循环尾 ()
    调试输出 (“cha询成功的消息：” ＋ 消息)

    .如果真 (订单id ≠ “”)

        .计次循环首 (json.成员数 (“data['order_list']”), b)

            资源文本 ＝ json.取属性 (“data['order_list'][0].things.data”).取数据文本 ()

            发送文本 ＝ 文本_替换 (#资源购买, , , , “c8f17c99eeafaafb17d49d14450a19ae65ab1c7e60dd93fcb3ffe395c1e08393”, 订单id, “替换文本unit”, unit_count, “资源文本”, 资源文本)
            调试输出 (“资源购买发送：” ＋ 发送文本)

            WSS_发送_文本 (g_ws, 发送文本)

            延迟 (500)


        .计次循环尾 ()


        成功计数 ＝ 成功计数 ＋ 到整数 (count)
        编辑框1.内容 ＝ 到文本 (成功计数)

        .如果真 (成功计数 ≥ 到整数 (编辑框_发送内容.内容))
            停止 ＝ 假
            信息框 (“购买完成”, 0, , )
        .如果真结束

    .如果真结束

    延迟 (3000)
.判断循环尾 ()


.子程序 _选择框_定时发送_被单击


.判断开始 (选择框_定时发送.选中)
    输出 (“开启商城定时扫描 购买资源”)

    WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
    延迟 (1000)
    WSS_设置_心跳函数 (g_ws, 1000, &ws_定时发送)

.默认
    WSS_移除_心跳函数 (g_ws)
.判断结束


.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 通关数, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
通关_前处理 ()








.子程序 _按钮5_被单击
.局部变量 res, 文本型
.局部变量 token, 文本型
.局部变量 登录发送文本, 文本型

输出 (“开始登录”)
res ＝ 登录 (_启动窗口.编辑框_URL1.内容, _启动窗口.编辑框_URL2.内容)
json.解析 (res)
token ＝ json.取通用属性 (“data.token”)
json.清除 ()
输出 (“登录业务返回：” ＋ res)

res ＝ 登录换token (token)
json.解析 (res)
token ＝ json.取通用属性 (“token”)
json.清除 ()
输出 (“登录业务返回：” ＋ res)
登录发送文本 ＝ 文本_替换 (#登录账号, , , , “66fab828a59423bf2d057702”, token)

_启动窗口.编辑框_URL3.内容 ＝ 登录发送文本
输出 (“登录业务返回：” ＋ “登录成功。。。。”)

.子程序 _按钮3_被单击
.局部变量 i, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)

.子程序 _按钮6_被单击
.局部变量 i, 整数型

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
.计次循环首 (10, i)
    WSS_发送_文本 (g_ws, #换挑战次数)
    延迟 (1000)
.计次循环尾 ()

.子程序 _按钮7_被单击

WSS_发送_文本 (g_ws, _启动窗口.编辑框_URL3.内容)
WSS_设置_心跳函数 (g_ws, 3000, &心跳发送开启)


.子程序 _按钮8_被单击

启动线程 (&挑战次数购买, , )

.子程序 挑战初始化

挑战搜索 ()

.子程序 _时钟1_周期事件
.局部变量 局_当前时, 整数型

线程_启动 (&任务1, , )

.子程序 任务1
.局部变量 秒, 整数型

.判断开始 (isflag)
    输出 (“搜索开始。。。”)
    挑战初始化 ()

.默认
    输出 (“任务1等待中。。。”)
.判断结束