diff --git a/e 皮肤兑换与充值.txt b/e 皮肤兑换与充值.txt new file mode 100644 index 0000000..842e777 --- /dev/null +++ b/e 皮肤兑换与充值.txt @@ -0,0 +1,2538 @@ +.版本 2 +.支持库 edroptarget +.支持库 iext +.支持库 EThread +.支持库 spec + +.程序集 窗口程序集_窗口1 +.程序集变量 集句柄, 整数型 +.程序集变量 工作中, 逻辑型 +.程序集变量 工作线程池EX, 鱼刺类_线程池Ex +.程序集变量 工作线程取token, 鱼刺类_线程池Ex +.程序集变量 ww, 未闻花名花见皮肤 +.程序集变量 导出存放文件名, 文本型 + +.子程序 _窗口1_创建完毕 + +ww.皮肤加载 (2, , , , 真) +网络版授权验证 (假, “f28ba622a3ef3abf0a419f5cd6b548396dbcd7bd0d25fc815b6256be1db23421d3a329637cdb54f61e492184d1602670dff739ec7bd2847d67b98f0bff373646”) +.如果真 (信息框 (“此程序仅用于学习、技术交流,请勿用于非法!如出现任何问题后果自负!” + #换行符 + “ ”, #确认取消钮, “免责声明!!!”, ) = #取消钮) + 结束 () +.如果真结束 + +全目录临时 = 取运行目录 () + “\XYZ\临时” +全目录状态 = 取运行目录 () + “\XYZ\数据状态” +全PIC = 取运行目录 () + “\XYZ\生成订单图片” +全目录导出 = 取运行目录 () + “\XYZ\导出” +.如果真 (文件是否存在 (全目录临时) = 假) + 目录_创建 (全目录临时) +.如果真结束 +.如果真 (文件是否存在 (全目录状态) = 假) + 目录_创建 (全目录状态) +.如果真结束 +.如果真 (文件是否存在 (全PIC) = 假) + 目录_创建 (全PIC) +.如果真结束 +.如果真 (文件是否存在 (全目录导出) = 假) + 目录_创建 (全目录导出) +.如果真结束 + +拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) +状态条1.置文本 (0, “双击列表指定数据行,查询账号详情....”) +数据写入列表 () +启动线程 (&商品列表, , ) +Gdip开始 () +配置_读取_易语言组件 (窗口1) + +.子程序 _超级列表框1_右键单击表项 + +弹出菜单 (菜单, , ) + +.子程序 _拖放对象1_得到文件 +.参数 接收到的文件路径, 文本型 +.局部变量 i, 文本型 +.局部变量 第一次分割, 文本型, , "0" +.局部变量 第二次分割, 文本型, , "3" +.局部变量 N, 整数型 +.局部变量 索引, 整数型 +.局部变量 计次1, 整数型 +.局部变量 计次2, 整数型 +.局部变量 临时数组, 文本型, , "0" +.局部变量 文本数组, 文本型, , "0" + +i = 到文本 (读入文件 (接收到的文件路径)) +文本数组 = 分割文本 (i, #换行符, ) +.计次循环首 (取数组成员数 (文本数组), 计次1) + 系统_处理事件 () + 索引 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1)) + 超级列表框1.置标题 (索引, 1, 文本数组 [计次1]) + 超级列表框1.置状态图片 (索引, 1) + 系统_处理事件 () +.计次循环尾 () +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 +清除数组 (文本数组) + +.子程序 _删除当前_被选择 +.局部变量 i, 整数型 +.局部变量 局_保存文本, 鱼刺类_输出文本 +.局部变量 局_保存目录, 文本型 + +超级列表框1.删除表项 (超级列表框1.现行选中项) +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置状态图片 (i - 1, 1) + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () + + +.子程序 _删除勾选_被选择 +.局部变量 表项数, 整数型 +.局部变量 m, 整数型 +.局部变量 i, 整数型 +.局部变量 局_保存目录, 文本型 +.局部变量 局_保存文本, 鱼刺类_输出文本 + +表项数 = 超级列表框1.取表项数 () +.计次循环首 (表项数, m) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (表项数 - m) = 1) + 超级列表框1.删除表项 (表项数 - m) + .如果真结束 + +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置状态图片 (i - 1, 1) + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () + + +.子程序 _清空CK_被选择 +.局部变量 局_保存目录, 文本型 + +超级列表框1.全部删除 () +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +删除文件 (局_保存目录) + +.子程序 _按钮_刷新商品_被单击 + +启动线程 (&商品列表, , ) + +.子程序 商品列表 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 价格, 文本型 +.局部变量 N, 整数型 +.局部变量 commodityName, 文本型 +.局部变量 commodityId, 文本型 +.局部变量 列表NUM, 整数型 + +' 20240827 的 manualID=nZyNEyQwpP6bX +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/storehome?manualID=G4KA4Qnz4LDp7&rid=9263298”, , , , , “Host: www.douyu.com” + #换行符 + “Connection: keep-alive” + #换行符 + “sec-ch-ua: ” + #引号 + “Not_A Brand” + #引号 + “;v=” + #引号 + “8” + #引号 + “, ” + #引号 + “Chromium” + #引号 + “;v=” + #引号 + “120” + #引号 + “, ” + #引号 + “Google Chrome” + #引号 + “;v=” + #引号 + “120” + #引号 + “” + #换行符 + “Accept: application/json, text/plain, */*” + #换行符 + “sec-ch-ua-mobile: ?0” + #换行符 + “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36” + #换行符 + “sec-ch-ua-platform: ” + #引号 + “Windows” + #引号 + “” + #换行符 + “Sec-Fetch-Site: same-origin” + #换行符 + “Sec-Fetch-Mode: cors” + #换行符 + “Sec-Fetch-Dest: empty” + #换行符 + “Referer: https://www.douyu.com/pages/live-peace-handbook/web/shop?ditchname=pass0&roomId=9263298”)) +yyjson.清空 () +.如果真 (yyjson.解析 (str) = 假) + 提示框 (“商品列表解析失败”, , , , 2000) + 返回 () + +.如果真结束 + +组合框1.清空 () +状态条1.置文本 (0, “正在刷新列表商品....”) +.计次循环首 (yyjson.取成员数 (“data/list”), N) + commodityId = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/commodityId”) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/commodityName”) + 价格 = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/score”) + 组合框1.插入项目 (N - 1, commodityName + “一” + 价格 + “一” + commodityId, ) + 系统_处理事件 () +.计次循环尾 () +组合框1.现行选中项 = 0 +状态条1.置文本 (0, “列表商品刷新完成”) + +.子程序 _获取绑定二维码_被选择 + +启动线程 (&取二维码, , ) + +.子程序 取二维码 +.局部变量 ctn1, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 局ID, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_CK, 文本型 +.局部变量 str, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 ctn2, 文本型 +.局部变量 manualID, 文本型 +.局部变量 actAlias, 文本型 +.局部变量 str3, 文本型 +.局部变量 yyjson, json对象 +.局部变量 绑定url, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 绑定游戏昵称, 文本型 +.局部变量 局_斗鱼昵称, 文本型 +.局部变量 图片句柄, 整数型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_斗鱼昵称 = 局_F [1] +局_CCK = 局_F [3] + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, 返回CK, #常量1)) +' 调试输出 (局_CCK, 返回CK) +' 调试输出 (str) +状态条1.置文本 (0, “生成1-> ” + str) +ctn1 = 文本_取出中间文本 (返回CK, “acf_ccn=”, “;”) +.如果 (ctn1 ≠ “”) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/livenc/asubscribe/userSubStatus”, 1, “subscribe=cmn&ctn=” + ctn1, 返回CK, 局_CK, #常量1)) + 状态条1.置文本 (0, “生成二维码-> ” + str2) + ' 调试输出 (str2) + .如果 (寻找文本 (str2, “error” + #引号 + “:0”, , 假) ≠ -1) + ctn2 = 文本_取出中间文本 (局_CK, “acf_ccn=”, “;”) + ' 调试输出 (“ctn2---”, ctn2) + 全临界.进入 () + 超级列表框1.置标题 (超级列表框1.现行选中项, 5, ctn2) + 全临界.退出 () + + manualID = “XopK0bEg4ywwA” + actAlias = “20250213NQCYX” + + str3 = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/roleParam”, 1, “actAlias=” + actAlias + “&ctn=” + ctn2, 局_CCK, , #常量3)) + ' 调试输出 (str3) + yyjson.清空 () + yyjson.解析 (str3) + 绑定url = yyjson.取文本 (“data/url”) + ' 调试输出 (“绑定url-> ”, 绑定url) + .如果 (绑定url = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “获取二维码失败”) + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “绑定二维码已生成”) + ' 图片框3.图片 = 文转图片E (局_斗鱼昵称) + 图片框1.图片 = 文本生成二维码图片 (绑定url, , , , , 10) + 状态条1.置文本 (1, “斗鱼名:” + 局_斗鱼昵称) + + 绑定游戏昵称 = 检测是否绑定游戏账号 (局_CCK) + 窗口_置信息3 (超级列表框1.现行选中项, 1, 绑定游戏昵称) + 检测账号 (局_CK, ctn2) + .如果结束 + + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + .如果结束 + +.否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, 编码_usc2到ansi (str)) +.如果结束 + + +.子程序 检测账号, , , 通过兑换检测账号 +.参数 参_cook, 文本型 +.参数 参_ctn, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 商品表, 文本型 +.局部变量 商品组, 文本型, , "0" +.局部变量 要兑换的商品名称, 文本型 +.局部变量 要兑换的商品价格, 文本型 +.局部变量 要兑换的商品ID, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 生成者, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 msg, 文本型 + +商品表 = 组合框1.取项目文本 (组合框1.现行选中项) +商品组 = 分割文本 (商品表, “一”, ) +.如果真 (取数组成员数 (商品组) < 3) + 状态条1.置文本 (0, “商品格式错误x”) + 返回 () +.如果真结束 + + +' 要兑换的商品名称 = 商品组 [1] +' 要兑换的商品价格 = 商品组 [2]nZALooPn0kZPW&ditchname=pass0&roomId=999 +要兑换的商品ID = 商品组 [3] +窗口_置状态信息 (超级列表框1.现行选中项, 2, “检测账号...”) +状态条1.置文本 (0, “正在检测账号-> ”) +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, “manualID=nZyNEyQwpP6bX&rid=999&commodityID=” + 要兑换的商品ID + “&token%5Berror%5D%5Bcode%5D=-1&token%5Bdata%5D=&ctn=” + 参_ctn, 参_cook + “; acf_ccn=” + 参_ctn, , #常量7, 局_xy)) +' 调试输出 (取程序名称 (1), str) +状态条1.置文本 (0, “检测账号:” + str) +.如果真 (寻找文本 (str, “需要开通精英手册”, , 假) ≠ -1 或 寻找文本 (str, “服务器繁忙”, , 假) ≠ -1 或 寻找文本 (str, “不在时间范围内”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号有效”) + ' ’str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20220616CJSZU”, , , 参_cook, , #常量3)) + 返回 () +.如果真结束 + + +' msg = 文本_取出中间文本 (str, “msg” + #引号 + “:” + #引号, #引号) +.' 如果真 (msg = “”) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号异常”) + ' 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号异常:” + str) + +.子程序 检测是否绑定游戏账号, 文本型 +.参数 参_CK, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 参_CK, , #常量3)) + +状态条1.置文本 (0, “查绑游戏名-> ” + str) +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"isGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} + +roleName = 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +.如果真 (roleName ≠ “”) + 返回 (roleName) +.如果真结束 + +返回 (“NULL”) + +.子程序 _确认绑定_被选择 + +启动线程 (&完成绑定, , ) + +.子程序 完成绑定 +.局部变量 str2, 文本型 +.局部变量 cvl_csrf_token, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 str, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 绑定游戏昵称, 文本型 +.局部变量 msg, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 返回游戏name, 文本型 +.局部变量 str_0, 文本型 +.局部变量 roleName, 文本型 +.局部变量 nick, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +' https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB +' 这个是新版的号得查询’str_0 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) + +str_0 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 局_Cookie, , #常量3)) +调试输出 (“str_0---”, str_0) +roleName = 文本_取出中间文本 (str_0, “roleName” + #引号 + “:” + #引号, #引号) +nick = 文本_取出中间文本 (str_0, “nick” + #引号 + “:” + #引号, #引号) +areaName = 文本_取出中间文本 (str_0, “areaName” + #引号 + “:” + #引号, #引号) +platName = 文本_取出中间文本 (str_0, “platName” + #引号 + “:” + #引号, #引号) + +标签_状态.标题 = “昵称:” + nick + #换行符 + “游戏名称:” + roleName + #换行符 + “平台:” + areaName + #换行符 + “手机:” + platName +.如果真 (信息框 (“是否绑定:” + roleName, #确认取消钮, , ) = #取消钮) + 提示框 (“取消绑定:” + roleName, , , , 1000) + 返回 () +.如果真结束 + + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, “{}”, 局_Cookie, 返回CK, #常量3)) + +cvl_csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +状态条1.置文本 (0, “取token-> ” + str) +' 调试输出 (cvl_csrf_token) +' 输出调试 (“cvl_csrf_token-”, cvl_csrf_token) +.如果真 (cvl_csrf_token = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 1, str) + 返回 () +.如果真结束 + +' 确认绑定 +str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bind”, 1, “actAlias=20260120QYOOB&csrfToken=” + cvl_csrf_token, 局_Cookie + “; cvl_csrf_token=” + cvl_csrf_token, , #常量3)) +状态条1.置文本 (0, “确认绑定-> ” + str2) +' 调试输出 (str2) +.如果真 (寻找文本 (str2, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 1, nick + “:绑定成功,生成二维码”) + 程序_延时 (500) + 窗口_置信息3 (超级列表框1.现行选中项, 1, roleName) + 程序_延时 (1000) + 精英二维码30 (ctnEX, 局_Cookie) + 返回 () +.如果真结束 + +msg = 文本_取出中间文本 (str2, “msg” + #引号 + “:” + #引号, #引号) +窗口_置状态信息 (超级列表框1.现行选中项, 1, msg) +信息框 (msg, 0, , ) + +' 绑定成功 {"error":0,"msg":"success","data":null,"redirectUrl":null} +' {"error":1006,"msg":"CSRF校验不通过!","data":null} +' {"error":-200001,"msg":"当前账号处于换绑周期冷却期,不可换绑","data":{},"redirectUrl":null} +' 输出调试 (“str5确认绑定-”, str5) + +.子程序 精英二维码30 +.参数 参_ctn, 文本型 +.参数 参_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 str2, 文本型 +.局部变量 yyjson, json对象 +.局部变量 付款30链接, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/item”, 1, “{” + #引号 + “itemId” + #引号 + “:1,” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctn + #引号 + “}”, 参_Cookie + “; ” + “acf_ccn=” + 参_ctn, , #常量4)) +状态条1.置文本 (0, “取acf_ccn-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/pay/getQrCode”, 1, “{” + #引号 + “bizType” + #引号 + “:” + #引号 + “peace” + #引号 + “,” + #引号 + “biz” + #引号 + “:{” + #引号 + “actAlias” + #引号 + “:” + #引号 + “20260120QYOOB” + #引号 + “,” + #引号 + “amount” + #引号 + “:3000,” + #引号 + “roomId” + #引号 + “:9263298},” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctn + #引号 + “}”, 参_Cookie + “; ” + “acf_ccn=” + 参_ctn, , #常量4)) + 状态条1.置文本 (0, “开通手册-> ” + str2) + yyjson.清空 () + yyjson.解析 (str2) + 付款30链接 = yyjson.取文本 (“data/qr”) + .如果真 (付款30链接 ≠ “”) + 图片框1.图片 = 文本生成二维码图片 (付款30链接, , , , , 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “宝典二维码已生成”) + 状态条1.置文本 (1, “开通宝典,30元支付宝付款码”) + ' 标签反馈.标题 = “开通宝典,30元支付宝付款码” + 返回 () + .如果真结束 + + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + +.如果真结束 + + +.子程序 _开通精英手册30_被选择 + +启动线程 (&查积分记录, , ) +程序_延时 (2000) +启动线程 (&开通30精英, , ) + +.子程序 开通30精英 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 str2, 文本型 +.局部变量 yyjson, json对象 +.局部变量 付款30链接, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/item”, 1, “{” + #引号 + “itemId” + #引号 + “:1,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie + “; ” + “acf_ccn=” + ctnEX, , #常量4)) +状态条1.置文本 (0, “取acf_ccn-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/pay/getQrCode”, 1, “{” + #引号 + “bizType” + #引号 + “:” + #引号 + “peace” + #引号 + “,” + #引号 + “biz” + #引号 + “:{” + #引号 + “actAlias” + #引号 + “:” + #引号 + “20260120QYOOB” + #引号 + “,” + #引号 + “amount” + #引号 + “:3000,” + #引号 + “roomId” + #引号 + “:9263298},” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie + “; ” + “acf_ccn=” + ctnEX, , #常量4)) + 状态条1.置文本 (0, “开通手册-> ” + str2) + yyjson.清空 () + yyjson.解析 (str2) + 付款30链接 = yyjson.取文本 (“data/qr”) + ' 输出调试 (“30元支付宝付款码-> ”, 付款30链接) + .如果真 (付款30链接 ≠ “”) + 图片框1.图片 = 文本生成二维码图片 (付款30链接, , , , , 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “宝典二维码已生成”) + 状态条1.置文本 (1, “开通宝典,30元支付宝付款码”) + 返回 () + .如果真结束 + + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + +.如果真结束 + + +.子程序 _充值鱼翅_被选择 +.局部变量 返回积分, 文本型 + +返回积分 = 查积分记录 () +.如果真 (返回积分 = “NULL”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + 返回 () +.如果真结束 + +.如果真 (到整数 (返回积分) < 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + .如果真 (信息框 (“积分:” + 返回积分 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + 返回 () + .如果真结束 + +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “已开通积分:” + 返回积分) +程序_延时 (1000) +启动线程 (&鱼翅充值, , ) + +.子程序 鱼翅充值 +.局部变量 str, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 鱼刺付款码, 文本型 +.局部变量 鱼刺token, 文本型 +.局部变量 局_bool, 逻辑型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +' pay_type=1 支付宝支付 pay_type=2 微信支付 + +局_Cookie = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/m/gold/getQrCode”, 1, “pay_type=1&product_id=DYTV_Product_Gold_1&number=” + 删首尾空 (编辑框_充值金额.内容) + “&toname=&source=dy_box”, 局_Cookie, , #常量2)) + +鱼刺付款码 = 编码_usc2到ansi (文本_取出中间文本 (str, “code_url” + #引号 + “:” + #引号, #引号)) +鱼刺token = 文本_取出中间文本 (str, “token” + #引号 + “:” + #引号, #引号) +状态条1.置文本 (0, “鱼翅码-> ” + str) +.如果真 (鱼刺付款码 ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “鱼翅充值码已生成”) + 图片框1.图片 = 文本生成二维码图片 (鱼刺付款码, , , , , 10) + 状态条1.置文本 (1, “鱼翅” + 编辑框_充值金额.内容 + “元,支付宝付款码”) + 程序_延时 (1000) + 检测鱼刺充值状态 (鱼刺token, 超级列表框1.现行选中项, 局_Cookie) + 程序_延时 (2000) + 直接送礼物 (局_Cookie, 超级列表框1.现行选中项) + 程序_延时 (3000) + .计次循环首 (3, ) + 查积分记录 () + .计次循环尾 () + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, str) + +.子程序 检测鱼刺充值状态 +.参数 参_token, 文本型, 可空 +.参数 参_索引, 整数型 +.参数 参_cook, 文本型 +.局部变量 str, 文本型 +.局部变量 局_余额, 整数型 +.局部变量 局_工作, 逻辑型 +.局部变量 an, 整数型 +.局部变量 msg, 文本型 +.局部变量 yyjson, json对象 + +' 检测充值鱼刺成功 '{"error":0,"data":{"state":2,"order_id":"7682614632081039361001","quantity":10,"nickname":"用户27335596"}} +局_工作 = 真 +.判断循环首 (局_工作 = 真) + _原子递增 (an) + str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/item/gold/account”, , , 参_cook, , #常量2)) + ' '调试输出 (str) + 状态条1.置文本 (0, “[” + 到文本 (an) + “]检测鱼翅充值-> ” + str) + yyjson.清空 () + yyjson.解析 (str) + 局_余额 = yyjson.取整数 (“data/gold”) + ' 调试输出 (“局_余额”, 局_余额) + 窗口_置状态信息 (参_索引, 1, “[” + 到文本 (an) + “]检测鱼翅充值”) + .如果真 (局_余额 > 0) + 窗口_置状态信息 (参_索引, 1, “鱼刺余额:” + 到文本 (局_余额)) + 返回 () + .如果真结束 + + 程序_延时 (2000) +.判断循环尾 () + +.子程序 直接送礼物 +.参数 参_cook, 文本型 +.参数 参_索引, 整数型 +.局部变量 str, 文本型 +.局部变量 局_充值数, 整数型 + +局_充值数 = 到整数 (删首尾空 (编辑框_充值金额.内容)) + +' 正常返回'{"error":0,"msg":"success","data":{"priceType":2,"sb":0,"noble_gold":0,"ry":0,"noble_gold_black":0,"gid":22171,"gx":0,"num":1,"messages":["type@=dgb/rid@=9263298/gfid@=22171/gs@=0/uid@=460469086/bg@=1/nn@=用户470321034/ic@=avatar@Sdefault@S14/eid@=0/eic@=20051/level@=2/dw@=0/gfcnt@=1/hits@=1/bcnt@=1/bst@=6/ct@=0/el@=/cm@=0/bnn@=/bl@=0/brid@=0/hc@=/sahf@=0/fc@=0/bnid@=1/bnl@=1/receive_uid@=335920043/receive_nn@=若若跑的贼快/pfm@=3175/pma@=454872551/mss@=454872569/skinid@=1890/bcst@=1/bsfl@=1/"],"toast":""}} +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/gift/donate/mainsite/v3”, 1, “giftId=23643&giftCount=” + 到文本 (局_充值数) + “&roomId=999&bizExt=%7B%22isMainGift%22%3A1%7D&skinId=2942”, 参_cook, , #常量9)) +状态条1.置文本 (0, “送礼物-> ” + str) +.如果真 (寻找文本 (str, “msg” + #引号 + “:” + #引号 + “success”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “送礼物成功”) + 返回 () +.如果真结束 + +窗口_置状态信息 (参_索引, 2, str) + +.子程序 _赠送精英令_被选择 + +启动线程 (&送礼物, , ) + +.子程序 送礼物 +.局部变量 str, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 局_充值数, 整数型 + +局_充值数 = 到整数 (删首尾空 (编辑框_充值金额.内容)) + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/gift/donate/mainsite/v3”, 1, “giftId=23643&giftCount=” + 到文本 (局_充值数) + “&roomId=9263298&bizExt=%7B%22isMainGift%22%3A1%7D&skinId=2942”, 局_Cookie, , #常量9)) +' 调试输出 (str) +状态条1.置文本 (0, “送礼物-> ” + str) +' 正常返回'{"error":0,"msg":"success","data":{"priceType":2,"sb":0,"noble_gold":0,"ry":0,"noble_gold_black":0,"gid":22171,"gx":0,"num":1,"messages":["type@=dgb/rid@=9263298/gfid@=22171/gs@=0/uid@=460469086/bg@=1/nn@=用户470321034/ic@=avatar@Sdefault@S14/eid@=0/eic@=20051/level@=2/dw@=0/gfcnt@=1/hits@=1/bcnt@=1/bst@=6/ct@=0/el@=/cm@=0/bnn@=/bl@=0/brid@=0/hc@=/sahf@=0/fc@=0/bnid@=1/bnl@=1/receive_uid@=335920043/receive_nn@=若若跑的贼快/pfm@=3175/pma@=454872551/mss@=454872569/skinid@=1890/bcst@=1/bsfl@=1/"],"toast":""}} +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “送礼物成功”) + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, str) + +.子程序 _查询手册积分_被选择 + +启动线程 (&查手册积分, , ) + +.子程序 查手册积分 +.局部变量 局_文本, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 userid, 文本型 +.局部变量 diff, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +userid = 局_F [2] +局_Cookie = 局_F [3] + + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/diff”, 1, “{” + #引号 + “userId” + #引号 + “:” + #引号 + userid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量5)) + +' '{"error":0,"msg":"success","data":{"diff":300} +状态条1.置文本 (0, “查积分-> ” + str) +diff = 文本_取出中间文本 (str, “diff” + #引号 + “:”, “}”) +.如果真 (diff ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 5, “积分:” + diff) + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 5, str) + +.子程序 _一键查询积分_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&查积分记录_线程, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 查积分记录_线程 +.参数 参_索引E, 整数型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (参_索引E, 1) +ctnEX = 超级列表框1.取标题 (参_索引E, 5) +全临界.退出 () + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (参_索引E, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) + +.如果 (balance ≠ “”) + 窗口_置状态信息 (参_索引E, 2, “记录积分:” + balance) +.否则 + 窗口_置状态信息 (参_索引E, 2, “NULL”) +.如果结束 + +返回 () + +.子程序 查积分记录, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 (“NULL”) +.如果真结束 + +uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) + +.如果真 (balance ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “记录积分:” + balance) + 返回 (balance) +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “NULL”) +返回 (“NULL”) + +.子程序 _兑换商品_被选择 + +启动线程 (&商品兑换, , ) + +.子程序 Getctn, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_CCK, 文本型 +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 ctn1, 文本型 +.局部变量 ctn2, 文本型 +.局部变量 局_CK, 文本型 +.局部变量 str2, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 返回 (“”) +.如果真结束 + +局_CCK = 局_F [3] + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, 返回CK, #常量1)) +ctn1 = 文本_取出中间文本 (返回CK, “acf_ccn=”, “;”) +.如果真 (ctn1 ≠ “”) + str2 = 到文本 (网页_访问_对象 (“https://www.douyu.com/wgapi/livenc/asubscribe/userSubStatus”, 1, “subscribe=cmn&ctn=” + ctn1, 返回CK, 局_CK, #常量1)) + ' 调试输出 (局_CK) + .如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + ctn2 = 文本_取出中间文本 (局_CK, “acf_ccn=”, “;”) + 返回 (ctn2) + .如果真结束 + + 返回 (“”) + +.如果真结束 + +返回 (“”) + +.子程序 Getcsrf_token, 文本型 +.参数 参_CK, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 参_CK, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +' '调试输出 (返回CK, , , csrf_token) +返回 (csrf_token) + +.子程序 商品兑换 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 商品表, 文本型 +.局部变量 商品组, 文本型, , "0" +.局部变量 要兑换的商品名称, 文本型 +.局部变量 要兑换的商品价格, 文本型 +.局部变量 要兑换的商品ID, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 生成者, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 COOK, 文本型 +.局部变量 局_F2, 文本型, , "0" +.局部变量 局_文本EX, 文本型 +.局部变量 局_用户名, 文本型 +.局部变量 csrf_token, 文本型 +.局部变量 body, 文本型 +.局部变量 randstr, 文本型 +.局部变量 sendxy, 文本型 +.局部变量 yyjson, json对象 + +' 局_文本EX = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +' 局_F2 = 分割文本 (局_文本EX, “----”, ) +.' 如果真 (取数组成员数 (局_F2) < 3) + ' 返回 () +.如果真结束 + +' 局_用户名 = 局_F2 [1] + +商品表 = 组合框1.取项目文本 (组合框1.现行选中项) +商品组 = 分割文本 (商品表, “一”, ) +.如果真 (取数组成员数 (商品组) < 3) + 状态条1.置文本 (0, “商品格式错误x”) + 返回 () +.如果真结束 + +要兑换的商品名称 = 商品组 [1] +要兑换的商品价格 = 商品组 [2] +要兑换的商品ID = 商品组 [3] + +状态条1.置文本 (0, “正在兑换商品-> ” + 要兑换的商品ID) + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 4, “Cookie格式错误”) + 状态条1.置文本 (0, “Cookie格式错误x ”) + 返回 () +.如果真结束 + +局_用户名 = 局_F [1] +局_Cookie = 局_F [3] + +ctnEX = 文本_取出中间文本 (局_Cookie, “acf_ccn=”, “;”) +COOK = 局_Cookie + “; acf_ccn=” + ctnEX +.如果真 (寻找文本 (COOK, “;;”, , 假) ≠ -1) + COOK = 子文本替换 (COOK, “;;”, “;”, , , 真) +.如果真结束 + +csrf_token = Getcsrf_token (局_Cookie) + +COOK = 网页_Cookie合并更新 (COOK, “cvl_csrf_token=” + csrf_token) + +置随机数种子 () +randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) +sendxy = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) +body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 要兑换的商品ID, “[token]”, csrf_token) +调试输出 (“body:--”, body) + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , sendxy, 局_xy)) +' 调试输出 (“兑换商品-> ” + str) +状态条1.置文本 (0, “兑换商品-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换成功:” + 要兑换的商品名称) + .计次循环首 (3, ) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) + .如果真 (str2 ≠ “”) + 跳出循环 () + .如果真结束 + + .计次循环尾 () + + + yyjson.清空 () + yyjson.解析 (str2) + roleName = yyjson.取文本 (“data/gameRole/roleName”) + .如果 (roleName ≠ “”) + 全线程临界.进入 () + 优化价格 = 取文本左边 (要兑换的商品价格, 取文本长度 (要兑换的商品价格) - 1) + 保存日志2 (时间_到文本 (取现行时间 (), 1) + “ ” + 局_用户名 + “----” + roleName + “----” + 要兑换的商品名称 + “----” + 优化价格) + 局_bin = 文转图片P (要兑换的商品名称 + “ ” + #换行符 + 时间_格式化 (取现行时间 (), “yyyy年MM月dd日”, “ hh:mm:ss”, 真) + #换行符 + “兑换账号:” + roleName + “(” + 局_用户名 + “)”) + 全线程临界.退出 () + 剪辑板_置图片 (局_bin) + 提示框 (“兑换成功,图片已复制”, , , , 1000) + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换成功,获取昵称失败”) + + .如果结束 + + 返回 () + +.如果真结束 + + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换失败”) + +.子程序 查积分记录EX, 文本型 +.参数 参_uid, 文本型 +.参数 参_CK, 文本型 +.参数 参_ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 +.局部变量 yyjson, json对象 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + 参_uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctnEX + #引号 + “}”, 参_CK, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) +返回 (balance) + +.子程序 _图片框1_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +.如果真 (图片框1.图片 = { }) + 提示框 (“请先生成后,再复制二维码”, , , , 1000) + 返回 () +.如果真结束 + +剪辑板_置图片 (图片框1.图片) +' 剪辑板_置图片 (图片_后台截图 (图片框4.取窗口句柄 ())) +提示框 (“二维码已复制”, , , , 1000) + +.子程序 _超级列表框1_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +启动线程 (&子程序标签更新, , ) + +.子程序 子程序标签更新 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 nick, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 +.局部变量 余额, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 yyjson, json对象 +.局部变量 manualScore, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_ctn = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +' 'https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB +' 这个回头调整 str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 局_Cookie, , #常量3)) +' https://www.douyu.com/wgapi/ordnc/live/memberthird/tencent/bindInfo?actAlias=20260226ZMGDG + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +状态条1.置文本 (0, “是否绑定-> ” + str) +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"i sGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} +yyjson.清空 () +yyjson.解析 (str) + +roleName = yyjson.取文本 (“data/gameRole/roleName”) +' 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +nick = yyjson.取文本 (“data/gameAccount/nick”) +' 文本_取出中间文本 (str, “nick” + #引号 + “:” + #引号, #引号) +areaName = yyjson.取文本 (“data/gameRole/areaName”) +' 文本_取出中间文本 (str, “areaName” + #引号 + “:” + #引号, #引号) +platName = yyjson.取文本 (“data/gameRole/platName”) +' 文本_取出中间文本 (str, “platName” + #引号 + “:” + #引号, #引号) +余额 = 查积分记录EX (局_uid, 局_Cookie, 局_ctn) + +标签_昵称.标题 = “账号:” + 局_F [1] + “<->” + “余额:” + 余额 +标签_状态.标题 = “昵称:” + nick + #换行符 + “游戏名称:” + roleName + #换行符 + “平台:” + areaName + #换行符 + “设备:” + platName +超级列表框1.置标题 (超级列表框1.现行选中项, 2, roleName) + +.子程序 _标签_状态_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +剪辑板_置图片 (快照 (标签_状态.取窗口句柄 (), , )) +提示框 (“图片已复制”, , , , 1000) + +.子程序 _窗口1_可否被关闭, 逻辑型 + +.如果 (信息框 (“确定要退出程序吗?”, #信息图标 + #确认钮 + #取消钮, , ) = #确认钮) + 返回 (真) +.否则 + 返回 (假) +.如果结束 + + +.子程序 _窗口1_将被销毁 + +配置_保存_易语言组件 (窗口1) +Gdip结束 () +数据写出列表 () + +.子程序 _按钮_结算_被单击 + +启动线程 (&子程序结算, , ) + +.子程序 子程序结算 +.局部变量 str, 文本型 +.局部变量 局_1, 文本型, , "0" +.局部变量 局_F, 文本型, , "0" +.局部变量 N, 整数型 +.局部变量 局_NUM, 整数型 +.局部变量 局_日志路径, 文本型 +.局部变量 局_标识, 文本型, , "0" +.局部变量 局_文本1, 文本型 +.局部变量 局_文本2, 文本型 +.局部变量 局_返回余额, 整数型 + +局_日志路径 = 取运行目录 () + “\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志.log” +str = 编码_Utf8到Ansi (读入文件 (局_日志路径)) +.如果真 (str = “”) + 提示框 (“生成日志后,再结算金额...”, , , , 1000) + 返回 () +.如果真结束 + +文本_取中间_批量 (str, “---------------------------------------------已结算----以上合计金额:”, #换行符, 局_标识) +.如果真 (取数组成员数 (局_标识) < 1) + ' 提示框 (“生成日志后,再结算金额”, , , , 2000) + 局_F = 分割文本 (str, #换行符, ) + .计次循环首 (取数组成员数 (局_F), N) + 局_返回余额 = 子程序处理余额 (局_F [N]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () + .计次循环尾 () + 保存日志2 (#换行符 + #换行符 + “---------------------------------------------已结算----以上合计金额:” + 到文本 (局_NUM) + #换行符 + #换行符) + 提示框 (“结算完成:” + 到文本 (局_NUM), , , , 2000) + 返回 () +.如果真结束 + + +.如果真 (局_标识 [取数组成员数 (局_标识)] ≠ “”) + 局_文本1 = “---------------------------------------------已结算----以上合计金额:” + 局_标识 [取数组成员数 (局_标识)] + 局_1 = 分割文本 (str, 局_文本1, ) + 局_文本2 = 局_1 [取数组成员数 (局_1)] + .如果真 (局_文本2 ≠ “”) + 局_F = 分割文本 (局_文本2, #换行符, ) + .计次循环首 (取数组成员数 (局_F), N) + 局_返回余额 = 子程序处理余额 (局_F [N]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () + .计次循环尾 () + .如果真 (局_NUM ≤ 0) + 提示框 (“未达到结算条件!”, , , , 2000) + 返回 () + .如果真结束 + + 保存日志2 (#换行符 + #换行符 + “---------------------------------------------已结算----以上合计金额:” + 到文本 (局_NUM) + #换行符 + #换行符) + 清除数组 (局_1) + 清除数组 (局_F) + 提示框 (“结算完成:” + 到文本 (局_NUM), , , , 2000) + 返回 () + .如果真结束 + + 提示框 (“未达到结算条件!”, , , , 2000) + +.如果真结束 + + +.子程序 子程序处理余额, 整数型 +.参数 参_数据, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 N, 整数型 + +局_F = 分割文本 (参_数据, “----”, ) +.如果真 (取数组成员数 (局_F) = 4) + 返回 (到整数 (局_F [4])) +.如果真结束 + +返回 (0) + +.子程序 _按钮_统计_被单击 +.局部变量 str, 文本型 +.局部变量 局_日志路径, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 P, 整数型 +.局部变量 局_返回余额, 整数型 +.局部变量 局_NUM, 整数型 + +局_日志路径 = 取运行目录 () + “\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志.log” +str = 编码_Utf8到Ansi (读入文件 (局_日志路径)) +局_F = 分割文本 (str, #换行符, ) +.计次循环首 (取数组成员数 (局_F), P) + 局_返回余额 = 子程序处理余额 (局_F [P]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () +.计次循环尾 () +保存日志2 (#换行符 + #换行符 + “*************************************************今日统计总金额:” + 到文本 (局_NUM) + #换行符 + #换行符) +信息框 (时间_格式化 (取现行时间 (), “MM.dd-”) + “统计总金额:” + 到文本 (局_NUM), 0, , ) + + +.子程序 _读取Cookie_被选择 +.局部变量 局_保存目录, 文本型 +.局部变量 局_文本数据, 文本型 +.局部变量 局_文本数组, 文本型, , "0" +.局部变量 局_索引, 整数型 +.局部变量 P, 整数型 +.局部变量 N, 整数型 +.局部变量 局_3, 文本型, , "0" + +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +.如果真 (文件是否存在 (局_保存目录) = 假) + 提示框 (“Cookie文件不存在!” + #换行符 + 局_保存目录, , , , 2000) + 返回 () +.如果真结束 + + +局_文本数据 = 到文本 (读入文件 (局_保存目录)) +局_文本数组 = 分割文本 (局_文本数据, #换行符, ) +.计次循环首 (取数组成员数 (局_文本数组), P) + 判断重复列表 (局_文本数组 [P]) + 系统_处理事件 () +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), N) + 系统_处理事件 () + 超级列表框1.置状态图片 (N - 1, 1) + 超级列表框1.置标题 (N - 1, 0, 到文本 (N)) +.计次循环尾 () + +.子程序 判断重复列表 +.参数 参_内容, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_用户, 文本型 +.局部变量 _索引, 整数型 +.局部变量 局_索引2, 整数型 +.局部变量 P, 整数型 + +_索引 = 超级列表框1.查找表项 (参_内容, , , 1) +.如果 (_索引 = -1) + 局_索引2 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (局_索引2, 0, 到文本 (局_索引2 + 1)) + 超级列表框1.置标题 (局_索引2, 1, 参_内容) + 超级列表框1.置状态图片 (局_索引2, 1) + +.否则 + 超级列表框1.置标题 (_索引, 1, 参_内容) +.如果结束 + + +.子程序 _同步删除Cookie_被选择 +.局部变量 局_保存目录, 文本型 +.局部变量 局_保存文本, 鱼刺类_输出文本 +.局部变量 i, 整数型 +.局部变量 P, 整数型 + +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +超级列表框1.删除表项 (超级列表框1.现行选中项) +删除文件 (局_保存目录) +程序_延时 (500) +局_保存目录 = 取运行目录 () + “\斗鱼CK\” +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 局_保存文本.写文本行 (超级列表框1.取标题 (i - 1, 1), 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK”, 局_保存目录, “.txt”) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + 超级列表框1.置状态图片 (P - 1, 1) + 超级列表框1.置标题 (P - 1, 0, 到文本 (P)) +.计次循环尾 () + +提示框 (“同步完成”, , , , 1000) + +.子程序 保存日志 +.参数 参_str, 文本型 +.局部变量 filename, 文本型 +.局部变量 保存到文件, 鱼刺类_输出文本 + +filename = 时间_格式化 (取现行时间 (), “MM.dd-”) + “流程日志” +保存到文件.写文本行 (参_str, filename, 取运行目录 () + “\”, “.log”) + +.子程序 保存日志2 +.参数 参_str, 文本型 +.局部变量 filename, 文本型 +.局部变量 保存到文件, 鱼刺类_输出文本 + +filename = 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志” +保存到文件.写文本行 (参_str, filename, 取运行目录 () + “\”, “.log”) +' 保存到文件.关闭所有文件占用 () + +.子程序 数据写入列表, , , APP +.局部变量 文件号, 整数型 +.局部变量 文件名, 文本型 +.局部变量 状态数组, 文本型, , "0" +.局部变量 文本数组, 文本型, , "0" +.局部变量 M, 整数型 +.局部变量 N, 整数型 +.局部变量 局_状态图片, 整数型 + +文件名 = 全目录临时 + “\临时ck.txt” +文件号 = 打开文件 (文件名, , ) +移到文件首 (文件号) +处理事件 () +.判断循环首 (取反 (是否在文件尾 (文件号, 真))) + 重定义数组 (状态数组, 假, 0) + 重定义数组 (文本数组, 假, 0) + 状态数组 = 分割文本 (读入一行 (文件号), “$”, ) + .如果真 (取数组成员数 (状态数组) ≥ 2) + .如果 (状态数组 [1] = “x”) + 局_状态图片 = 1 + .否则 + 局_状态图片 = 0 + .如果结束 + 文本数组 = 分割文本 (状态数组 [2], “|||”, ) + M = 超级列表框1.插入表项 (, , , , , ) + + 超级列表框1.置状态图片 (M, 局_状态图片) + .计次循环首 (取数组成员数 (文本数组), N) + 系统_处理事件 () + 超级列表框1.置标题 (M, N - 1, 文本数组 [N]) + .如果真 (N = 20) ' 填充满一页就手动重画 + 超级列表框1.禁止重画 () + .如果真结束 + .如果真 (N % 100 = 0) ' 每100次插入 换一次姿势 ``233333 + 超级列表框1.允许重画 () + 超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + 超级列表框1.禁止重画 () + .如果真结束 + + .计次循环尾 () + + + + .如果真结束 + +.判断循环尾 () +关闭文件 (文件号) +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + +.子程序 数据写出列表, , , APP +.局部变量 文件名, 文本型 +.局部变量 读入账号, 文本型 +.局部变量 n, 整数型 +.局部变量 临时文件名, 文本型 +.局部变量 文件号, 整数型 +.局部变量 文本, 文本型 +.局部变量 空, 字节集 +.局部变量 局_状态图片, 文本型 + +临时文件名 = 全目录临时 + “\临时ck.txt” +文件号 = 打开文件 (临时文件名, 4, ) +_处理事件 () +文本 = “” + +.计次循环首 (超级列表框1.取表项数 (), n) + 系统_处理事件 () + .判断开始 (超级列表框1.取当前状态图片 (n - 1) = 1) + 局_状态图片 = “x” + + .默认 + 局_状态图片 = “y” + .判断结束 + + 文本 = 局_状态图片 + “$” + 超级列表框1.取标题 (n - 1, 0) + “|||” + 超级列表框1.取标题 (n - 1, 1) + “|||” + 超级列表框1.取标题 (n - 1, 2) + “|||” + 超级列表框1.取标题 (n - 1, 3) + “|||” + 超级列表框1.取标题 (n - 1, 4) + “|||” + 超级列表框1.取标题 (n - 1, 5) + “|||” + 超级列表框1.取标题 (n - 1, 6) + + 写文本行 (文件号, 文本) +.计次循环尾 () +关闭文件 (文件号) + +.子程序 _标签_昵称_被双击, 逻辑型, , https://livelink.qq.com/act/a20200527midgroupage/pc/?sig=0d29d14f3e9bdb05f7f091340952054f&faceUrl=https%3A%2F%2Fapic.douyucdn.cn%2Fupload%2Favatar%2Fdefault%2F15_middle.jpg&code=wW6EhNWpLEVNHKEMfB9vaEWKPdowIikRqFJI0IKm%2BcxGa%2B8OEPhyF%2BZ58W80CrGigCGtLddIofBcnRkylmccKw%3D%3D&redirectUrl=null&t=1661433534&livePlatId=douyu&nickName=%E7%94%A8%E6%88%B702435853&actId=2811&gameIdList=cjm +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 +.局部变量 str, 文本型, , , 昵称:null <-> 余额:null + +str = 删首尾空 (文本_取出中间文本 (标签_昵称.标题, “账号:”, “<->”)) +置剪辑板文本 (str) +提示框 (str + “ 已复制”, , , , 1000) + +.子程序 _按钮_关闭_被单击, , , 测试 + +_扫码框.可视 = 假 +工作中 = 假 +关闭线程句柄 (集句柄) +强制结束线程 (集句柄) + +.子程序 _扫码登录_被选择 + +' 载入 (窗口_扫码, , 真) +_扫码框.可视 = 真 +标签显示.可视 = 假 +按钮_刷新.可视 = 假 +按钮_刷新.禁止 = 真 +启动线程 (&getscanEX, , 集句柄) + +.子程序 getscanEX, 逻辑型, , 获取扫码 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 surl, 文本型 +.局部变量 code, 文本型 +.局部变量 bool, 逻辑型 +.局部变量 局_Code, 文本型 +.局部变量 局_msg, 文本型 +.局部变量 局_LoginUrl, 文本型 +.局部变量 CK, 文本型 + +图片框2.图片 = { } +网页_清除Cookie (“passport.douyu.com”) +标签_反馈.标题 = “正在二维码...” +网页_访问_对象 (“https://passport.douyu.com/index/login?passport_reg_callback=PASSPORT_REG_SUCCESS_CALLBACK&passport_login_callback=PASSPORT_LOGIN_SUCCESS_CALLBACK&passport_close_callback=PASSPORT_CLOSE_CALLBACK&passport_dp_callback=PASSPORT_DP_CALLBACK&type=login&client_id=1&state=https%3A%2F%2Fwww.douyu.com%2F&source=click_topnavi_login”, , , “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)), , #常量8) +程序_延时 (1000) +str = 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://passport.douyu.com/scan/generateCode”, 1, “client_id=1&isMultiAccount=0”, “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)), , #扫码XY1))) + +' “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)) + +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +surl = yyjson.取文本 (“data/url”) +局_Code = yyjson.取文本 (“data/code”) +.如果真 (surl = “” 或 局_Code = “”) + 标签_反馈.标题 = “请关闭后重新生成二维码!” + 返回 (假) +.如果真结束 + +图片框2.图片 = 文本生成二维码图片 (surl, , , , , 20) +标签_反馈.标题 = “二维码已生成,请在手机上确认!” + +工作中 = 真 +.判断循环首 (工作中 = 真) + bool = scanauthEX (局_Code, 局_msg, 局_LoginUrl) + .如果真 (bool = 真) + 跳出循环 () + .如果真结束 + + .如果真 (寻找文本 (局_msg, “code不存在或者是已经过期”, , 假) ≠ -1) + 关闭线程句柄 (集句柄) + 强制结束线程 (集句柄) + 标签显示.可视 = 真 + 按钮_刷新.可视 = 真 + 按钮_刷新.禁止 = 假 + 返回 (假) + .如果真结束 + + 程序_延时 (1000) + 系统_处理事件 () +.判断循环尾 () +Login_douEX (局_LoginUrl) +返回 (真) + +.子程序 scanauthEX, 逻辑型, , 检测是否扫码 +.参数 参_code, 文本型 +.参数 返回msg, 文本型, 参考 +.参数 返回登录url, 文本型, 参考 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_msg, 文本型 +.局部变量 局surl, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://passport.douyu.com/japi/scan/auth?time=” + 时间_取现行时间戳 () + “&code=” + 参_code, , , , , #扫码XY1)) +' 调试输出 (“参_code---”, 参_code) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +返回msg = yyjson.取文本 (“msg”) +返回登录url = yyjson.取文本 (“data/url”) +标签_反馈.标题 = “>>>>” + 返回msg +.如果真 (返回登录url ≠ “”) + 标签_反馈.标题 = “扫码成功,正在登录...” + 返回 (真) +.如果真结束 + +返回 (假) + +.子程序 Login_douEX, , , 登录斗鱼 +.参数 参_url, 文本型 +.局部变量 str, 文本型 +.局部变量 局_索引, 整数型 +.局部变量 局_COOK, 文本型 +.局部变量 acf_uid, 文本型 +.局部变量 acf_nickname, 文本型 +.局部变量 解析CK, 类_Cookie + +str = 编码_usc2到ansi (到文本 (网页_访问_对象 (参_url + “&callback=appClient_json_callback&_=” + 时间_取现行时间戳 (), , , , 局_COOK, #扫码登录))) +' 调试输出 (str) +' 调试输出 (“局_COOK---”, 局_COOK) +.如果真 (局_COOK ≠ “”) + 标签_反馈.标题 = “>>>扫码登录成功!” + acf_uid = 网页_取单条Cookie (局_COOK, “acf_uid”, 真) + + acf_nickname = 编码_URL解码 (网页_取单条Cookie (局_COOK, “acf_nickname”, 真), 真) + 局_索引 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (局_索引, 0, 到文本 (局_索引 + 1)) + 超级列表框1.置标题 (局_索引, 1, acf_nickname + “----” + acf_uid + “----” + 局_COOK) + 超级列表框1.置状态图片 (局_索引, 1) + 超级列表框1.保证显示 (局_索引) + 工作中 = 假 + _扫码框.可视 = 假 + +.如果真结束 + + +.子程序 _按钮_刷新_被单击 + +标签显示.可视 = 假 +按钮_刷新.可视 = 假 +按钮_刷新.禁止 = 真 +启动线程 (&getscanEX, , 集句柄) + +.子程序 _图片框2_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +剪辑板_置图片 (图片框2.图片) +提示框 (“图片已复制”, , , , 1000) + +.子程序 __扫码框_鼠标左键被按下, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +窗口1.发送信息 (161, 2, 0) + +.子程序 _粘贴Cookie_被选择 +.局部变量 文本数组, 文本型, , "0" +.局部变量 计次1, 整数型 +.局部变量 计次2, 整数型 +.局部变量 临时数组, 文本型, , "0" +.局部变量 索引, 整数型 +.局部变量 i, 文本型 +.局部变量 总数数组, 文本型, , "0" +.局部变量 内容, 文本型 +.局部变量 X, 整数型 +.局部变量 状态数组, 文本型, , "0" +.局部变量 N, 整数型 +.局部变量 M, 整数型 +.局部变量 判断数据, 文本型 + +' 下面的是粘贴根据“----“判断是否是一条或者两条数据 +i = 取剪辑板文本 () +.如果真 (i = “”) + 返回 () +.如果真结束 + +文本数组 = 分割文本 (i, #换行符, ) +.计次循环首 (取数组成员数 (文本数组), X) + .如果真 (文本数组 [X] ≠ “”) + M = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置状态图片 (M, 1) + 超级列表框1.置标题 (M, 0, 到文本 (M + 1)) + 超级列表框1.置标题 (M, 1, 文本数组 [X]) + .如果真结束 + + 系统_处理事件 () +.计次循环尾 () +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + +清除数组 (文本数组) +返回 () + +.子程序 _搜索游戏名_被选择 +.局部变量 索引EX, 整数型 +.局部变量 str, 文本型 + +输入框 (“查找包含游戏名的字符”, “查找游戏名”, , str, , ) +.如果真 (str = “”) + 返回 () +.如果真结束 + +索引EX = 超级列表框1.查找表项 (str, , 假, 2) +.如果真 (索引EX ≠ -1) + 超级列表框1.保证显示 (索引EX) + 超级列表框1.选择表项 (索引EX) +.如果真结束 + +返回 () + +.子程序 _搜索状态_被选择 +.局部变量 索引EX, 整数型 +.局部变量 str, 文本型 + +输入框 (“查找包含状态的字符”, “查找状态”, , str, , ) +.如果真 (str = “”) + 返回 () +.如果真结束 + +索引EX = 超级列表框1.查找表项 (str, , 假, 4) +.如果真 (索引EX ≠ -1) + 超级列表框1.保证显示 (索引EX) + 超级列表框1.选择表项 (索引EX) +.如果真结束 + +返回 () + + +.子程序 子程序检测账号EX +.参数 参_索引, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_CCK, 文本型 +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 + +全检车临界.进入 () +局_文本 = 超级列表框1.取标题 (参_索引, 1) +全检车临界.退出 () + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (参_索引, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_CCK = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, , #常量1)) +' 调试输出 (str) +状态条1.置文本 (0, “生成1-> ” + 编码_usc2到ansi (str)) +.判断开始 (寻找文本 (str, “-99”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “账号未登录”) + 返回 () + +.判断 (寻找文本 (str, “无效”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “账号无效”) + 返回 () + +.默认 + 窗口_置状态信息 (参_索引, 1, “账号正常”) +.判断结束 + +返回 () + +.子程序 _一键检测账号_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序检测账号EX, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + + +.子程序 _全选_被选择 +.局部变量 P, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + 超级列表框1.置状态图片 (P - 1, 1) +.计次循环尾 () + +.子程序 _反选_被选择 +.局部变量 P, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + .如果 (超级列表框1.取当前状态图片 (P - 1) = 0) + 超级列表框1.置状态图片 (P - 1, 1) + + .否则 + 超级列表框1.置状态图片 (P - 1, 0) + .如果结束 + +.计次循环尾 () + + +.子程序 _一键获取游戏名_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序获取昵称EX, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序获取昵称EX +.参数 索引EX, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 nick, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 +.局部变量 余额, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_ctn, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引EX, 1) +局_ctn = 超级列表框1.取标题 (索引EX, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +全临界.进入 () +状态条1.置文本 (0, “是否绑定-> ” + str) +roleName = 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +超级列表框1.置标题 (索引EX, 2, roleName) +全临界.退出 () + +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"isGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} + + +' nick = 文本_取出中间文本 (str, “nick” + #引号 + “:” + #引号, #引号) +' areaName = 文本_取出中间文本 (str, “areaName” + #引号 + “:” + #引号, #引号) +' platName = 文本_取出中间文本 (str, “platName” + #引号 + “:” + #引号, #引号) + + +.子程序 _按钮_刷新商品1_被单击 + +启动线程 (&商品加列表, , ) + +.子程序 商品加列表 +.局部变量 局_商品名, 文本型 + +局_商品名 = 组合框1.取项目文本 (组合框1.现行选中项) +超级列表框1.置标题 (超级列表框1.现行选中项, 3, 局_商品名) + +.子程序 _按钮_启动_被单击 + +.判断开始 (按钮_启动.标题 = “批量兑换商品[列表勾选]”) + .如果真 (超级列表框1.取表项数 () ≤ 0) + 返回 () + .如果真结束 + + 按钮_启动.禁止 = 真 + .如果真 (线程_创建 (&工作线程) = 假) + 按钮_启动.禁止 = 假 + 返回 () + .如果真结束 + +.判断 (按钮_启动.标题 = “停止兑换商品”) + 按钮_启动.禁止 = 真 + 按钮_启动.标题 = “停 止 中...” + 全工作中 = 假 + 工作线程池EX.销毁 () + 返回 () +.默认 + +.判断结束 + + +.子程序 工作线程 +.局部变量 bool, 逻辑型 +.局部变量 int, 整数型 +.局部变量 任务数, 整数型 +.局部变量 局_文本txt, 文本型 +.局部变量 局_data, 文本型 +.局部变量 返回用户名, 文本型 +.局部变量 返回Cookie, 文本型 +.局部变量 返回商品名称, 文本型 +.局部变量 返回商品价格, 文本型 +.局部变量 返回商品ID, 文本型 + +全定时数 = 0 +按钮_启动.标题 = “兑换中...” +状态条1.置文本 (0, “线程启动中...”) +bool = 工作线程池EX.创建 (50, 50, , 真, , 1024 × 128) +.如果真 (bool = 假) + 状态条1.置文本 (0, “初始化工作线程池失败!”) + 按钮_启动.标题 = “批量兑换商品[列表勾选]” + 按钮_启动.禁止 = 假 + 返回 () +.如果真结束 + +全工作中 = 真 +按钮_启动.标题 = “停止兑换商品” +按钮_启动.禁止 = 假 + +int = 0 +.判断循环首 (全工作中 = 真) + 任务数 = 工作线程池EX.取_执行线程数 () + 工作线程池EX.取_队列任务数 () + 任务数 = 工作线程池EX.取_最大线程容量 () - 任务数 + .如果真 (任务数 > 0) + .如果真 (超级列表框1.取当前状态图片 (int) = 1) + 工作线程池EX.投递任务 (&线程子程序, int) + .如果真结束 + + int = int + 1 + + .如果真结束 + + .如果真 (int ≥ 超级列表框1.取表项数 ()) + 跳出循环 () + .如果真结束 + + _延迟 (1) +.判断循环尾 () +.循环判断首 () + 程序_延时 (300) +.循环判断尾 (工作线程池EX.取_是否完全空闲 () = 假) +状态条1.置文本 (0, “正在销毁工作线程池...”) +工作线程池EX.销毁 () +状态条1.置文本 (0, “销毁工作线程池成功!”) +按钮_启动.标题 = “批量兑换商品[列表勾选]” +按钮_启动.禁止 = 假 +状态条1.置文本 (0, “执行停止完毕!”) +.如果真 (选择框_定时抢购.选中 = 真) + 时钟1.时钟周期 = 0 + 选择框_定时抢购.选中 = 假 + 状态条1.置文本 (1, “定时操作完毕!”) +.如果真结束 + + +.子程序 处理Cookie, 逻辑型 +.参数 参_data, 文本型 +.参数 返回用户名, 文本型, 参考 +.参数 返回Cookie, 文本型, 参考 +.局部变量 F_F, 文本型, , "0" + +F_F = 分割文本 (参_data, “----”, ) +.如果真 (取数组成员数 (F_F) < 3) + 返回Cookie = “Cookie格式错误” + 返回 (假) +.如果真结束 + +返回用户名 = F_F [1] +返回Cookie = F_F [3] +返回 (真) + +.子程序 处理商品, 逻辑型 +.参数 参_data, 文本型 +.参数 返回商品名称, 文本型, 参考 +.参数 返回商品价格, 文本型, 参考 +.参数 返回商品ID, 文本型, 参考 +.局部变量 F_F, 文本型, , "0" + +F_F = 分割文本 (参_data, “一”, ) +.如果真 (取数组成员数 (F_F) < 3) + 返回商品ID = “商品格式错误” + 返回 (假) +.如果真结束 + +返回商品名称 = F_F [1] +返回商品价格 = F_F [2] +返回商品ID = F_F [3] +返回 (真) + +.子程序 子程序等待定时, , , 暂不使用 +.局部变量 P, 整数型 +.局部变量 N, 整数型 +.局部变量 局_兑换状态, 文本型 + +.计次循环首 (到整数 (删首尾空 (编辑框_定时秒.内容)), P) + 系统_处理事件 () + 状态条1.置文本 (0, “已设置定时:” + 编辑框_定时秒.内容 + “秒,开始计时/” + 到文本 (P)) + 程序_延时 (1000) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), N) + 系统_处理事件 () + 全临界.进入 () + 局_兑换状态 = 超级列表框1.取标题 (N - 1, 4) + 全临界.退出 () + .如果真 (局_兑换状态 ≠ “兑换成功”) + 超级列表框1.置状态图片 (N - 1, 1) + .如果真结束 + +.计次循环尾 () + +.子程序 线程子程序 +.参数 参_索引, 整数型 +.局部变量 局_data, 文本型 +.局部变量 F_F, 文本型, , "0" +.局部变量 局_ctnEX, 文本型 +.局部变量 csrf_token, 文本型 +.局部变量 randstr, 文本型 +.局部变量 heardes, 文本型 +.局部变量 body, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 局_文本txt, 文本型 +.局部变量 F_F2, 文本型, , "0" +.局部变量 ctnEX, 文本型 +.局部变量 COOK, 文本型 +.局部变量 yyjson, json对象 +.局部变量 error, 文本型 +.局部变量 msg, 文本型 +.局部变量 i, 整数型 +.局部变量 返回用户名, 文本型 +.局部变量 返回Cookie, 文本型 +.局部变量 返回商品名称, 文本型 +.局部变量 返回商品价格, 文本型 +.局部变量 返回商品ID, 文本型 + +.如果真 (全工作中 = 假) + 返回 () +.如果真结束 + +全线程临界.进入 () +超级列表框1.置状态图片 (参_索引, 0) +局_data = 超级列表框1.取标题 (参_索引, 1) +局_文本txt = 超级列表框1.取标题 (参_索引, 3) +' 超级列表框1.保证显示 (参_索引) +全线程临界.退出 () +.如果真 (处理Cookie (局_data, 返回用户名, 返回Cookie) = 假) + 窗口_置状态信息 (参_索引, 1, 返回Cookie) + 返回 () +.如果真结束 + +.如果真 (处理商品 (局_文本txt, 返回商品名称, 返回商品价格, 返回商品ID) = 假) + 窗口_置状态信息 (参_索引, 1, 返回商品ID) + 返回 () +.如果真结束 + + + +ctnEX = 文本_取出中间文本 (返回Cookie, “acf_ccn=”, “;”) +' csrf_token = Getcsrf_token222 (局_Cookie) +全线程临界.进入 () +csrf_token = 超级列表框1.取标题 (参_索引, 6) +.如果真 (csrf_token = “”) + 窗口_置状态信息 (参_索引, 1, “csrf_token获取失败”) + 全线程临界.退出 () + 返回 () +.如果真结束 + +.如果 (ctnEX ≠ “”) + COOK = 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token + +.否则 + COOK = 返回Cookie + “; cvl_csrf_token=” + csrf_token +.如果结束 + +' '状态条1.置文本 (0, “正在兑换商品-> ” + 局_商品ID) + +置随机数种子 () +randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) +heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) +body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) +全线程临界.退出 () + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + + +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) = -1) + .计次循环首 (8, i) + str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + ' '调试输出 (str) + 窗口_置状态信息 (参_索引, 1, “【” + 到文本 (i) + “】-> ” + str) + .如果真 (寻找文本 (str, “无效”, , 假) ≠ -1 或 寻找文本 (str, “点击太快”, , 假) ≠ -1 或 str = “”) + 全线程临界.进入 () + csrf_token = 超级列表框1.取标题 (参_索引, 6) + ' csrf_token = Getcsrf_token222 (局_Cookie) + .如果真 (csrf_token ≠ “”) + COOK = 选择 (ctnEX ≠ “”, 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token, 返回Cookie + “; cvl_csrf_token=” + csrf_token) + + randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) + heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) + ' ’下次更新这里 替换#常量11得提交内容 里面得房间ID + body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) + + .如果真结束 + + 全线程临界.退出 () + + .如果真结束 + .如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 跳出循环 () + .如果真结束 + + 程序_延时 (300) + .计次循环尾 () + + .' 判断循环首 (真) + .' 如果真 (全工作中 = 假) + ' 返回 () + .如果真结束 + + ' i = i + 1 + ' str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + ' ' '调试输出 (str) + ' 窗口_置状态信息 (参_索引, 1, “【” + 到文本 (i) + “】-> ” + str) + .' 如果真 (寻找文本 (str, “无效”, , 假) ≠ -1 或 寻找文本 (str, “点击太快”, , 假) ≠ -1 或 str = “”) + ' 全线程临界.进入 () + ' csrf_token = 超级列表框1.取标题 (参_索引, 6) + ' ' csrf_token = Getcsrf_token222 (局_Cookie) + .' 如果真 (csrf_token ≠ “”) + ' COOK = 选择 (ctnEX ≠ “”, 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token, 返回Cookie + “; cvl_csrf_token=” + csrf_token) + + ' randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) + ' heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) + ' ' ’下次更新这里 替换#常量11得提交内容 里面得房间ID + ' body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) + + .如果真结束 + + ' 全线程临界.退出 () + + .如果真结束 + + .' 如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + ' 跳出循环 () + .如果真结束 + + ' 程序_延时 (100) + ' 系统_处理事件 () + .' 判断循环尾 () + +.如果真结束 + + + +.如果 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “兑换成功”) + .计次循环首 (2, ) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 返回Cookie, , #常量3)) + .如果真 (str2 ≠ “”) + 跳出循环 () + .如果真结束 + + .计次循环尾 () + .如果真 (str2 ≠ “”) + yyjson.清空 () + yyjson.解析 (str2) + roleName = yyjson.取文本 (“data/gameRole/roleName”) + 全线程临界.进入 () + 优化价格 = 取文本左边 (返回商品价格, 取文本长度 (返回商品价格) - 1) + 保存日志2 (时间_到文本 (取现行时间 (), 1) + “ ” + 返回用户名 + “----” + roleName + “----” + 返回商品名称 + “----” + 优化价格) + 局_bin = 文转图片P (返回商品名称 + “ ” + #换行符 + 时间_格式化 (取现行时间 (), “yyyy年MM月dd日”, “ hh:mm:ss”, 真) + #换行符 + “兑换账号:” + roleName + “(” + 返回用户名 + “)”) + 写到文件_ (全PIC + “\” + roleName + “-” + 返回商品名称 + “.png”, 局_bin) + 全线程临界.退出 () + .如果真结束 + + +.否则 + 窗口_置状态信息 (参_索引, 1, str) + +.如果结束 + + +.子程序 Getcsrf_token222, 文本型 +.参数 参_Cookie, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 参_Cookie, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +' '调试输出 (“csrf_token---”, csrf_token) +返回 (csrf_token) + +.子程序 _一键查询换绑时间_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查换绑时间, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查换绑时间 +.参数 索引E, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 changeRoleWaitTime, 整数型 +.局部变量 timetxt, 文本型 +.局部变量 局_txt, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +' 'actAlias=20220616CJSZU +' actAlias=20260120QYOOB +' actAlias=20250213NQCYX +' https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +.如果 (yyjson.取文本 (“msg”) = “success”) + changeRoleWaitTime = yyjson.取整数 (“data/changeRoleWaitTime”) + timetxt = 时间_秒到时分秒格式 (changeRoleWaitTime) + 窗口_置状态信息 (索引E, 2, “释放时间:” + timetxt) + +.否则 + 窗口_置状态信息 (索引E, 2, “查询失败”) +.如果结束 + + +.子程序 _一键查询限兑商品_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查限兑商品, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查限兑商品 +.参数 索引E, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 changeRoleWaitTime, 整数型 +.局部变量 timetxt, 文本型 +.局部变量 zy数, 整数型 +.局部变量 statustxt, 文本型 +.局部变量 P, 整数型 +.局部变量 F_F, 文本型, , "0" +.局部变量 commodityName, 文本型 +.局部变量 排序E, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] + +' data.list[21].status = 0 +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/storehome?manualID=G4KA4Qnz4LDp7&rid=9263298”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +zy数 = yyjson.取成员数 (“data/list”) +.计次循环首 (zy数, P) + 系统_处理事件 () + statustxt = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/status”) + .如果真 (statustxt = “1”) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/commodityName”) + 加入成员 (F_F, commodityName) + .如果真结束 + +.计次循环尾 () +.如果真 (取数组成员数 (F_F) < 1) + 窗口_置状态信息 (索引E, 2, “无限制商品”) + ' 状态条1.置文本 (0, “限兑-> 无限制商品”) + 返回 () +.如果真结束 + +排序E = 数组_合并 (F_F, “,”) +窗口_置状态信息 (索引E, 2, “限兑*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) +' 状态条1.置文本 (0, “限兑*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) +返回 () + +.子程序 _一键查询鱼刺余额_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查询鱼刺, p - 1, ) + 程序_延时 (100) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查询鱼刺 +.参数 索引E +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_余额, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +窗口_置状态信息 (索引E, 1, “查询鱼刺余额...”) +str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/item/gold/account”, , , 局_Cookie, , #常量2)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +局_余额 = yyjson.取文本 (“data/gold”) +窗口_置状态信息 (索引E, 1, “鱼刺余额:” + 到文本 (局_余额)) + + +.子程序 _时钟1_周期事件 +.局部变量 设置定时关闭, 文本型 +.局部变量 动态时间, 文本型 +.局部变量 设置定时开始, 文本型 + +设置定时开始 = 删首尾空 (编辑框_时.内容) + “:” + 删首尾空 (编辑框_分.内容) + “:” + 删首尾空 (编辑框_秒.内容) +动态时间 = 时间_格式化 (取现行时间 (), , “hh:mm:ss”, 真) +状态条1.置文本 (1, “[定时脚本]动态时间:” + 动态时间) + + +.如果真 (到整数 (编辑框_分.内容) - 1 = 取分钟 (取现行时间 ())) + .如果真 (全已取crtoken = 假) + _全选_被选择 () + _一键获取兑换csrftoken_被选择 () + 全已取crtoken = 真 + + .如果真结束 + +.如果真结束 + +.如果真 (动态时间 = 设置定时开始) + _按钮_启动_被单击 () +.如果真结束 + + +.子程序 _选择框_定时抢购_被单击 + +.如果 (选择框_定时抢购.选中 = 真) + _全选_被选择 () + 全已取crtoken = 假 + 时钟1.时钟周期 = 1000 + 状态条1.置文本 (1, “已开启定时抢购√”) + +.否则 + 全已取crtoken = 真 + 时钟1.时钟周期 = 0 + 状态条1.置文本 (1, “已关闭定时抢购×”) + 工作中 = 假 + 工作线程池EX.销毁 () +.如果结束 + + +.子程序 _开通精英宝典30_被选择 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +精英二维码30 (ctnEX, 局_Cookie) + + +.子程序 _一键查询兑换记录_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查询兑换记录, p - 1, ) + 程序_延时 (100) + .如果真结束 + +.计次循环尾 () + + +.子程序 子程序查询兑换记录 +.参数 索引E +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_余额, 文本型 +.局部变量 zy数, 整数型 +.局部变量 P, 整数型 +.局部变量 F_F, 文本型, , "0" +.局部变量 commodityName, 文本型 +.局部变量 排序E, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +窗口_置状态信息 (索引E, 1, “查询兑换记录...”) +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchangeList?manualID=G4KA4Qnz4LDp7&limit=100&offset=0”, , , 局_Cookie, , #常量3)) +' '调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +zy数 = yyjson.取成员数 (“data/list”) +.计次循环首 (zy数, P) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/commodityName”) + 加入成员 (F_F, commodityName) +.计次循环尾 () +.如果真 (取数组成员数 (F_F) < 1) + 窗口_置状态信息 (索引E, 2, “无兑换记录”) + 返回 () +.如果真结束 + +排序E = 数组_合并 (F_F, “,”) +窗口_置状态信息 (索引E, 2, “记录*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) + + + +.子程序 _充值鱼刺Api_被选择 +.局部变量 返回积分, 文本型 +.局部变量 局_充值账号, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 返回充值前余额, 文本型 +.局部变量 返回充值后余额, 文本型 +.局部变量 冲之前余额, 文本型 +.局部变量 充值后余额, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_充值账号 = 文本_取左边 (局_文本, “----”) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +' 返回积分 = 查积分记录 () +.' 如果真 (返回积分 = “NULL”) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + ' 返回 () +.如果真结束 + +.' 如果真 (到整数 (返回积分) < 10) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + .' 如果真 (信息框 (“积分:” + 返回积分 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + ' 返回 () + .如果真结束 + +.如果真结束 + + + +返回充值前余额 = 查询鱼刺余额 (局_Cookie) +冲之前余额 = 到文本 (到整数 (返回充值前余额) ÷ 100) +.如果真 (冲之前余额 = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “查询余额失败”) + 返回 () +.如果真结束 + +.如果真 (信息框 (“充值数量:” + 编辑框_充值金额.内容 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + 返回 () +.如果真结束 + + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值前鱼刺:” + 冲之前余额 + “,正在充值...”) +程序_延时 (1000) +.如果真 (api充值 (超级列表框1.现行选中项, 局_充值账号) = 真) + .计次循环首 (10, ) + 返回充值后余额 = 查询鱼刺余额 (局_Cookie) + 充值后余额 = 到文本 (到整数 (返回充值后余额) ÷ 100) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值前鱼刺:” + 冲之前余额 + “,等待充值后余额:” + 充值后余额) + .如果真 (充值后余额 ≠ 冲之前余额) + 跳出循环 () + .如果真结束 + 程序_延时 (1000) + .计次循环尾 () + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值成功后鱼刺:” + 充值后余额) + 程序_延时 (1000) + 直接送礼物 (局_Cookie, 超级列表框1.现行选中项) + 程序_延时 (2000) + .计次循环首 (3, ) + 查积分记录 () + .计次循环尾 () +.如果真结束 + + +.子程序 api充值, 逻辑型 +.参数 参_索引, 整数型 +.参数 参_充值账号, 文本型 +.局部变量 timestamp, 文本型 +.局部变量 random, 文本型 +.局部变量 订单时间ordersn, 文本型 +.局部变量 secretKey, 文本型 +.局部变量 sign, 文本型 +.局部变量 body, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 ordersn, 文本型 +.局部变量 bool, 逻辑型 +.局部变量 i, 整数型 +.局部变量 局_充值数量, 文本型 +.局部变量 返回err0, 文本型 +.局部变量 dealer_id, 文本型 + +dealer_id = 删全部空 (编辑框_经销商ID.内容) +secretKey = 删全部空 (编辑框_API密钥.内容) +.如果真 (dealer_id = “”) + 窗口_置状态信息 (参_索引, 2, “请设置经销商ID~!”) + 返回 (假) +.如果真结束 + +.如果真 (secretKey = “”) + 窗口_置状态信息 (参_索引, 2, “请设置API密钥~!”) + 返回 (假) +.如果真结束 + +局_充值数量 = 删全部空 (编辑框_充值金额.内容) +.如果真 (局_充值数量 = “”) + 窗口_置状态信息 (参_索引, 2, “请设置充值数量~!”) + 返回 (假) +.如果真结束 + +timestamp = 时间_取现行时间戳 () +random = 文本_取随机字符 (13, 位或 (1, 2)) +订单时间ordersn = timestamp +sign = 校验_取md5_文本 (secretKey + “dealer_id=” + dealer_id + “&game_id=37¬ify_url=https://www.baidu.com&number=” + 局_充值数量 + “&ordersn=” + 订单时间ordersn + “&random=” + random + “&rid=” + 参_充值账号 + “&rules_id=317&server=默认区服×tamp=” + timestamp + secretKey, 真, 真) + +body = “dealer_id=” + dealer_id + “&game_id=37¬ify_url=https://www.baidu.com&number=” + 局_充值数量 + “&ordersn=” + 订单时间ordersn + “&random=” + random + “&rid=” + 参_充值账号 + “&rules_id=317&server=默认区服×tamp=” + timestamp + “&signature=” + sign + +str = 编码_Utf8到Ansi (网页_访问_对象 (“http://api.hapu.cc/order/createOrder”, 1, body, , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “Content-Type: application/x-www-form-urlencoded”)) +yyjson.清空 () +yyjson.解析 (str) +ordersn = yyjson.取文本 (“ordersn”) +.如果真 (ordersn ≠ “”) + 窗口_置状态信息 (参_索引, 2, “api下单成功”) + 返回 (真) + +.如果真结束 + +窗口_置状态信息 (参_索引, 2, “api下单失败:” + 编码_usc2到ansi (str)) +返回 (假) + +' {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} + +.子程序 查询充值结果, 逻辑型, , {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} +.参数 参_ordersn, 文本型 +.参数 返回err0, 文本型 +.局部变量 str, 文本型 +.局部变量 body, 文本型 +.局部变量 random, 文本型 +.局部变量 timestamp, 文本型 +.局部变量 secretKey, 文本型 +.局部变量 sign, 文本型 +.局部变量 yyjson, json对象 +.局部变量 msg, 文本型 + +timestamp = 时间_取现行时间戳 () +random = 文本_取随机字符 (13, 位或 (1, 2)) +secretKey = “403710daec035bbd94e30cefb337b6ccded16dbf” +sign = 校验_取md5_文本 (secretKey + “dealer_id=129873564&ordersn=” + 参_ordersn + “&random=” + random + “×tamp=” + timestamp + secretKey, 真, 真) + +body = “dealer_id=129873564&ordersn=” + 参_ordersn + “&random=” + random + “×tamp=” + timestamp + “&signature=” + sign +str = 编码_Utf8到Ansi (网页_访问_对象 (“http://api.hapu.cc/order/getorder”, 1, body, , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “Content-Type: application/x-www-form-urlencoded”)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +msg = yyjson.取文本 (“msg”) +返回err0 = msg +.如果真 (msg = “成功”) + 返回 (真) +.如果真结束 + +返回 (假) + +.子程序 查询鱼刺余额, 文本型, , {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} +.参数 参_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 count, 文本型 + +.计次循环首 (3, ) + str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wjapi/nc/exchange/fim?appCode=YJTX”, , , 参_Cookie, , “Host: www.douyu.com” + #换行符 + “Connection: keep-alive” + #换行符 + “sec-ch-ua-platform: ” + #引号 + “Windows” + #引号 + “” + #换行符 + “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/133.0.0.0 Safari/537.36” + #换行符 + “Accept: application/json, text/plain, */*” + #换行符 + “Referer: https://www.douyu.com/member/walletcenter”)) + .如果真 (str ≠ “”) + 跳出循环 () + .如果真结束 + +.计次循环尾 () +调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +count = yyjson.取文本 (“data/count”) +返回 (count) + + +.子程序 _一键获取兑换csrftoken_被选择 +.局部变量 p, 整数型 +.局部变量 局_句柄, 整数型 +.局部变量 arr0, 整数型, , "0" +.局部变量 i, 整数型 + +工作线程取token.创建 (50) +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 工作线程取token.投递任务 (&Getcsrf_token3333, p - 1) + ' '启动线程 (&Getcsrf_token3333, p - 1, 局_句柄) + 程序_延时 (10) + + .如果真结束 + +.计次循环尾 () +.循环判断首 () + 程序_延时 (300) +.循环判断尾 (工作线程取token.取_是否完全空闲 () = 假) +全已取crtoken = 真 +程序_延时 (1000) +_全选_被选择 () + +.子程序 Getcsrf_token3333 +.参数 参_索引, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +超级列表框1.置状态图片 (参_索引, 0) +局_文本 = 超级列表框1.取标题 (参_索引, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 全Fast_list.进入写锁 () + 超级列表框1.置标题 (参_索引, 4, “Cookie无效”) + 全Fast_list.退出写锁 () + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 局_Cookie, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +状态条1.置文本 (0, “#” + 到文本 (参_索引) + “=>” + csrf_token) +' 调试输出 (csrf_token) +.如果真 (csrf_token ≠ “”) + 全Fast_list.进入写锁 () + 超级列表框1.置标题 (参_索引, 4, “获取csrf_token成功”) + 超级列表框1.置标题 (参_索引, 6, csrf_token) + 全Fast_list.退出写锁 () + 返回 () +.如果真结束 + +全Fast_list.进入写锁 () +超级列表框1.置标题 (参_索引, 4, str) +全Fast_list.退出写锁 () + + +.子程序 _导出Cookie_被选择 + +输入框 (“默认保存在默认在同程序路径下的导出数据目录下,仅输入文件名即可”, “导出文件”, , 导出存放文件名, , ) +.如果真 (导出存放文件名 = “”) + 信息框 (“请输入文件名!”, 0, , ) + 返回 () +.如果真结束 + +保存勾选 () + +.子程序 保存勾选 +.局部变量 导出到文件, 鱼刺类_输出文本 +.局部变量 j_str, 文本型 +.局部变量 开始时间, 整数型 +.局部变量 耗时, 整数型 +.局部变量 N, 整数型 + +开始时间 = 取启动时间 () +状态条1.置文本 (0, “正在导出数据...”) +.计次循环首 (超级列表框1.取表项数 (), N) + .如果真 (超级列表框1.取当前状态图片 (N - 1) = 1) + 全导出X.进入读锁 () + j_str = 超级列表框1.取标题 (N - 1, 1) + 全导出X.退出读锁 () + 导出到文件.写文本行 (j_str, 导出存放文件名, 全目录导出, “.txt”) + .如果真结束 + + 系统_处理事件 () +.计次循环尾 () +导出到文件.关闭所有文件占用 () +耗时 = 取启动时间 () - 开始时间 +状态条1.置文本 (0, “导出数据完成,耗时:” + 到文本 (耗时)) +提示框 (“导出完成”, , , , 1000) + + + +.子程序 _超级列表框1_当前表项被改变 + + diff --git a/e 语言登录.txt b/e语言/登录/e 语言登录.txt similarity index 100% rename from e 语言登录.txt rename to e语言/登录/e 语言登录.txt diff --git a/e 语言登录2.txt b/e语言/登录/e 语言登录2.txt similarity index 100% rename from e 语言登录2.txt rename to e语言/登录/e 语言登录2.txt diff --git a/e语言/皮肤与充值/e 皮肤兑换与充值.txt b/e语言/皮肤与充值/e 皮肤兑换与充值.txt new file mode 100644 index 0000000..842e777 --- /dev/null +++ b/e语言/皮肤与充值/e 皮肤兑换与充值.txt @@ -0,0 +1,2538 @@ +.版本 2 +.支持库 edroptarget +.支持库 iext +.支持库 EThread +.支持库 spec + +.程序集 窗口程序集_窗口1 +.程序集变量 集句柄, 整数型 +.程序集变量 工作中, 逻辑型 +.程序集变量 工作线程池EX, 鱼刺类_线程池Ex +.程序集变量 工作线程取token, 鱼刺类_线程池Ex +.程序集变量 ww, 未闻花名花见皮肤 +.程序集变量 导出存放文件名, 文本型 + +.子程序 _窗口1_创建完毕 + +ww.皮肤加载 (2, , , , 真) +网络版授权验证 (假, “f28ba622a3ef3abf0a419f5cd6b548396dbcd7bd0d25fc815b6256be1db23421d3a329637cdb54f61e492184d1602670dff739ec7bd2847d67b98f0bff373646”) +.如果真 (信息框 (“此程序仅用于学习、技术交流,请勿用于非法!如出现任何问题后果自负!” + #换行符 + “ ”, #确认取消钮, “免责声明!!!”, ) = #取消钮) + 结束 () +.如果真结束 + +全目录临时 = 取运行目录 () + “\XYZ\临时” +全目录状态 = 取运行目录 () + “\XYZ\数据状态” +全PIC = 取运行目录 () + “\XYZ\生成订单图片” +全目录导出 = 取运行目录 () + “\XYZ\导出” +.如果真 (文件是否存在 (全目录临时) = 假) + 目录_创建 (全目录临时) +.如果真结束 +.如果真 (文件是否存在 (全目录状态) = 假) + 目录_创建 (全目录状态) +.如果真结束 +.如果真 (文件是否存在 (全PIC) = 假) + 目录_创建 (全PIC) +.如果真结束 +.如果真 (文件是否存在 (全目录导出) = 假) + 目录_创建 (全目录导出) +.如果真结束 + +拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) +状态条1.置文本 (0, “双击列表指定数据行,查询账号详情....”) +数据写入列表 () +启动线程 (&商品列表, , ) +Gdip开始 () +配置_读取_易语言组件 (窗口1) + +.子程序 _超级列表框1_右键单击表项 + +弹出菜单 (菜单, , ) + +.子程序 _拖放对象1_得到文件 +.参数 接收到的文件路径, 文本型 +.局部变量 i, 文本型 +.局部变量 第一次分割, 文本型, , "0" +.局部变量 第二次分割, 文本型, , "3" +.局部变量 N, 整数型 +.局部变量 索引, 整数型 +.局部变量 计次1, 整数型 +.局部变量 计次2, 整数型 +.局部变量 临时数组, 文本型, , "0" +.局部变量 文本数组, 文本型, , "0" + +i = 到文本 (读入文件 (接收到的文件路径)) +文本数组 = 分割文本 (i, #换行符, ) +.计次循环首 (取数组成员数 (文本数组), 计次1) + 系统_处理事件 () + 索引 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1)) + 超级列表框1.置标题 (索引, 1, 文本数组 [计次1]) + 超级列表框1.置状态图片 (索引, 1) + 系统_处理事件 () +.计次循环尾 () +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 +清除数组 (文本数组) + +.子程序 _删除当前_被选择 +.局部变量 i, 整数型 +.局部变量 局_保存文本, 鱼刺类_输出文本 +.局部变量 局_保存目录, 文本型 + +超级列表框1.删除表项 (超级列表框1.现行选中项) +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置状态图片 (i - 1, 1) + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () + + +.子程序 _删除勾选_被选择 +.局部变量 表项数, 整数型 +.局部变量 m, 整数型 +.局部变量 i, 整数型 +.局部变量 局_保存目录, 文本型 +.局部变量 局_保存文本, 鱼刺类_输出文本 + +表项数 = 超级列表框1.取表项数 () +.计次循环首 (表项数, m) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (表项数 - m) = 1) + 超级列表框1.删除表项 (表项数 - m) + .如果真结束 + +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 超级列表框1.置状态图片 (i - 1, 1) + 超级列表框1.置标题 (i - 1, 0, 到文本 (i)) +.计次循环尾 () + + +.子程序 _清空CK_被选择 +.局部变量 局_保存目录, 文本型 + +超级列表框1.全部删除 () +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +删除文件 (局_保存目录) + +.子程序 _按钮_刷新商品_被单击 + +启动线程 (&商品列表, , ) + +.子程序 商品列表 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 价格, 文本型 +.局部变量 N, 整数型 +.局部变量 commodityName, 文本型 +.局部变量 commodityId, 文本型 +.局部变量 列表NUM, 整数型 + +' 20240827 的 manualID=nZyNEyQwpP6bX +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/storehome?manualID=G4KA4Qnz4LDp7&rid=9263298”, , , , , “Host: www.douyu.com” + #换行符 + “Connection: keep-alive” + #换行符 + “sec-ch-ua: ” + #引号 + “Not_A Brand” + #引号 + “;v=” + #引号 + “8” + #引号 + “, ” + #引号 + “Chromium” + #引号 + “;v=” + #引号 + “120” + #引号 + “, ” + #引号 + “Google Chrome” + #引号 + “;v=” + #引号 + “120” + #引号 + “” + #换行符 + “Accept: application/json, text/plain, */*” + #换行符 + “sec-ch-ua-mobile: ?0” + #换行符 + “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36” + #换行符 + “sec-ch-ua-platform: ” + #引号 + “Windows” + #引号 + “” + #换行符 + “Sec-Fetch-Site: same-origin” + #换行符 + “Sec-Fetch-Mode: cors” + #换行符 + “Sec-Fetch-Dest: empty” + #换行符 + “Referer: https://www.douyu.com/pages/live-peace-handbook/web/shop?ditchname=pass0&roomId=9263298”)) +yyjson.清空 () +.如果真 (yyjson.解析 (str) = 假) + 提示框 (“商品列表解析失败”, , , , 2000) + 返回 () + +.如果真结束 + +组合框1.清空 () +状态条1.置文本 (0, “正在刷新列表商品....”) +.计次循环首 (yyjson.取成员数 (“data/list”), N) + commodityId = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/commodityId”) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/commodityName”) + 价格 = yyjson.取文本 (“data/list/” + 到文本 (N - 1) + “/score”) + 组合框1.插入项目 (N - 1, commodityName + “一” + 价格 + “一” + commodityId, ) + 系统_处理事件 () +.计次循环尾 () +组合框1.现行选中项 = 0 +状态条1.置文本 (0, “列表商品刷新完成”) + +.子程序 _获取绑定二维码_被选择 + +启动线程 (&取二维码, , ) + +.子程序 取二维码 +.局部变量 ctn1, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 局ID, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_CK, 文本型 +.局部变量 str, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 ctn2, 文本型 +.局部变量 manualID, 文本型 +.局部变量 actAlias, 文本型 +.局部变量 str3, 文本型 +.局部变量 yyjson, json对象 +.局部变量 绑定url, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 绑定游戏昵称, 文本型 +.局部变量 局_斗鱼昵称, 文本型 +.局部变量 图片句柄, 整数型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_斗鱼昵称 = 局_F [1] +局_CCK = 局_F [3] + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, 返回CK, #常量1)) +' 调试输出 (局_CCK, 返回CK) +' 调试输出 (str) +状态条1.置文本 (0, “生成1-> ” + str) +ctn1 = 文本_取出中间文本 (返回CK, “acf_ccn=”, “;”) +.如果 (ctn1 ≠ “”) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/livenc/asubscribe/userSubStatus”, 1, “subscribe=cmn&ctn=” + ctn1, 返回CK, 局_CK, #常量1)) + 状态条1.置文本 (0, “生成二维码-> ” + str2) + ' 调试输出 (str2) + .如果 (寻找文本 (str2, “error” + #引号 + “:0”, , 假) ≠ -1) + ctn2 = 文本_取出中间文本 (局_CK, “acf_ccn=”, “;”) + ' 调试输出 (“ctn2---”, ctn2) + 全临界.进入 () + 超级列表框1.置标题 (超级列表框1.现行选中项, 5, ctn2) + 全临界.退出 () + + manualID = “XopK0bEg4ywwA” + actAlias = “20250213NQCYX” + + str3 = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/roleParam”, 1, “actAlias=” + actAlias + “&ctn=” + ctn2, 局_CCK, , #常量3)) + ' 调试输出 (str3) + yyjson.清空 () + yyjson.解析 (str3) + 绑定url = yyjson.取文本 (“data/url”) + ' 调试输出 (“绑定url-> ”, 绑定url) + .如果 (绑定url = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “获取二维码失败”) + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “绑定二维码已生成”) + ' 图片框3.图片 = 文转图片E (局_斗鱼昵称) + 图片框1.图片 = 文本生成二维码图片 (绑定url, , , , , 10) + 状态条1.置文本 (1, “斗鱼名:” + 局_斗鱼昵称) + + 绑定游戏昵称 = 检测是否绑定游戏账号 (局_CCK) + 窗口_置信息3 (超级列表框1.现行选中项, 1, 绑定游戏昵称) + 检测账号 (局_CK, ctn2) + .如果结束 + + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + .如果结束 + +.否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, 编码_usc2到ansi (str)) +.如果结束 + + +.子程序 检测账号, , , 通过兑换检测账号 +.参数 参_cook, 文本型 +.参数 参_ctn, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 商品表, 文本型 +.局部变量 商品组, 文本型, , "0" +.局部变量 要兑换的商品名称, 文本型 +.局部变量 要兑换的商品价格, 文本型 +.局部变量 要兑换的商品ID, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 生成者, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 msg, 文本型 + +商品表 = 组合框1.取项目文本 (组合框1.现行选中项) +商品组 = 分割文本 (商品表, “一”, ) +.如果真 (取数组成员数 (商品组) < 3) + 状态条1.置文本 (0, “商品格式错误x”) + 返回 () +.如果真结束 + + +' 要兑换的商品名称 = 商品组 [1] +' 要兑换的商品价格 = 商品组 [2]nZALooPn0kZPW&ditchname=pass0&roomId=999 +要兑换的商品ID = 商品组 [3] +窗口_置状态信息 (超级列表框1.现行选中项, 2, “检测账号...”) +状态条1.置文本 (0, “正在检测账号-> ”) +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, “manualID=nZyNEyQwpP6bX&rid=999&commodityID=” + 要兑换的商品ID + “&token%5Berror%5D%5Bcode%5D=-1&token%5Bdata%5D=&ctn=” + 参_ctn, 参_cook + “; acf_ccn=” + 参_ctn, , #常量7, 局_xy)) +' 调试输出 (取程序名称 (1), str) +状态条1.置文本 (0, “检测账号:” + str) +.如果真 (寻找文本 (str, “需要开通精英手册”, , 假) ≠ -1 或 寻找文本 (str, “服务器繁忙”, , 假) ≠ -1 或 寻找文本 (str, “不在时间范围内”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号有效”) + ' ’str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20220616CJSZU”, , , 参_cook, , #常量3)) + 返回 () +.如果真结束 + + +' msg = 文本_取出中间文本 (str, “msg” + #引号 + “:” + #引号, #引号) +.' 如果真 (msg = “”) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号异常”) + ' 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “账号异常:” + str) + +.子程序 检测是否绑定游戏账号, 文本型 +.参数 参_CK, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 参_CK, , #常量3)) + +状态条1.置文本 (0, “查绑游戏名-> ” + str) +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"isGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} + +roleName = 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +.如果真 (roleName ≠ “”) + 返回 (roleName) +.如果真结束 + +返回 (“NULL”) + +.子程序 _确认绑定_被选择 + +启动线程 (&完成绑定, , ) + +.子程序 完成绑定 +.局部变量 str2, 文本型 +.局部变量 cvl_csrf_token, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 str, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 绑定游戏昵称, 文本型 +.局部变量 msg, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 返回游戏name, 文本型 +.局部变量 str_0, 文本型 +.局部变量 roleName, 文本型 +.局部变量 nick, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +' https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB +' 这个是新版的号得查询’str_0 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) + +str_0 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 局_Cookie, , #常量3)) +调试输出 (“str_0---”, str_0) +roleName = 文本_取出中间文本 (str_0, “roleName” + #引号 + “:” + #引号, #引号) +nick = 文本_取出中间文本 (str_0, “nick” + #引号 + “:” + #引号, #引号) +areaName = 文本_取出中间文本 (str_0, “areaName” + #引号 + “:” + #引号, #引号) +platName = 文本_取出中间文本 (str_0, “platName” + #引号 + “:” + #引号, #引号) + +标签_状态.标题 = “昵称:” + nick + #换行符 + “游戏名称:” + roleName + #换行符 + “平台:” + areaName + #换行符 + “手机:” + platName +.如果真 (信息框 (“是否绑定:” + roleName, #确认取消钮, , ) = #取消钮) + 提示框 (“取消绑定:” + roleName, , , , 1000) + 返回 () +.如果真结束 + + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, “{}”, 局_Cookie, 返回CK, #常量3)) + +cvl_csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +状态条1.置文本 (0, “取token-> ” + str) +' 调试输出 (cvl_csrf_token) +' 输出调试 (“cvl_csrf_token-”, cvl_csrf_token) +.如果真 (cvl_csrf_token = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 1, str) + 返回 () +.如果真结束 + +' 确认绑定 +str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bind”, 1, “actAlias=20260120QYOOB&csrfToken=” + cvl_csrf_token, 局_Cookie + “; cvl_csrf_token=” + cvl_csrf_token, , #常量3)) +状态条1.置文本 (0, “确认绑定-> ” + str2) +' 调试输出 (str2) +.如果真 (寻找文本 (str2, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 1, nick + “:绑定成功,生成二维码”) + 程序_延时 (500) + 窗口_置信息3 (超级列表框1.现行选中项, 1, roleName) + 程序_延时 (1000) + 精英二维码30 (ctnEX, 局_Cookie) + 返回 () +.如果真结束 + +msg = 文本_取出中间文本 (str2, “msg” + #引号 + “:” + #引号, #引号) +窗口_置状态信息 (超级列表框1.现行选中项, 1, msg) +信息框 (msg, 0, , ) + +' 绑定成功 {"error":0,"msg":"success","data":null,"redirectUrl":null} +' {"error":1006,"msg":"CSRF校验不通过!","data":null} +' {"error":-200001,"msg":"当前账号处于换绑周期冷却期,不可换绑","data":{},"redirectUrl":null} +' 输出调试 (“str5确认绑定-”, str5) + +.子程序 精英二维码30 +.参数 参_ctn, 文本型 +.参数 参_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 str2, 文本型 +.局部变量 yyjson, json对象 +.局部变量 付款30链接, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/item”, 1, “{” + #引号 + “itemId” + #引号 + “:1,” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctn + #引号 + “}”, 参_Cookie + “; ” + “acf_ccn=” + 参_ctn, , #常量4)) +状态条1.置文本 (0, “取acf_ccn-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/pay/getQrCode”, 1, “{” + #引号 + “bizType” + #引号 + “:” + #引号 + “peace” + #引号 + “,” + #引号 + “biz” + #引号 + “:{” + #引号 + “actAlias” + #引号 + “:” + #引号 + “20260120QYOOB” + #引号 + “,” + #引号 + “amount” + #引号 + “:3000,” + #引号 + “roomId” + #引号 + “:9263298},” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctn + #引号 + “}”, 参_Cookie + “; ” + “acf_ccn=” + 参_ctn, , #常量4)) + 状态条1.置文本 (0, “开通手册-> ” + str2) + yyjson.清空 () + yyjson.解析 (str2) + 付款30链接 = yyjson.取文本 (“data/qr”) + .如果真 (付款30链接 ≠ “”) + 图片框1.图片 = 文本生成二维码图片 (付款30链接, , , , , 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “宝典二维码已生成”) + 状态条1.置文本 (1, “开通宝典,30元支付宝付款码”) + ' 标签反馈.标题 = “开通宝典,30元支付宝付款码” + 返回 () + .如果真结束 + + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + +.如果真结束 + + +.子程序 _开通精英手册30_被选择 + +启动线程 (&查积分记录, , ) +程序_延时 (2000) +启动线程 (&开通30精英, , ) + +.子程序 开通30精英 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 str2, 文本型 +.局部变量 yyjson, json对象 +.局部变量 付款30链接, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/item”, 1, “{” + #引号 + “itemId” + #引号 + “:1,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie + “; ” + “acf_ccn=” + ctnEX, , #常量4)) +状态条1.置文本 (0, “取acf_ccn-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/pay/getQrCode”, 1, “{” + #引号 + “bizType” + #引号 + “:” + #引号 + “peace” + #引号 + “,” + #引号 + “biz” + #引号 + “:{” + #引号 + “actAlias” + #引号 + “:” + #引号 + “20260120QYOOB” + #引号 + “,” + #引号 + “amount” + #引号 + “:3000,” + #引号 + “roomId” + #引号 + “:9263298},” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie + “; ” + “acf_ccn=” + ctnEX, , #常量4)) + 状态条1.置文本 (0, “开通手册-> ” + str2) + yyjson.清空 () + yyjson.解析 (str2) + 付款30链接 = yyjson.取文本 (“data/qr”) + ' 输出调试 (“30元支付宝付款码-> ”, 付款30链接) + .如果真 (付款30链接 ≠ “”) + 图片框1.图片 = 文本生成二维码图片 (付款30链接, , , , , 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “宝典二维码已生成”) + 状态条1.置文本 (1, “开通宝典,30元支付宝付款码”) + 返回 () + .如果真结束 + + 窗口_置状态信息 (超级列表框1.现行选中项, 2, str2) + +.如果真结束 + + +.子程序 _充值鱼翅_被选择 +.局部变量 返回积分, 文本型 + +返回积分 = 查积分记录 () +.如果真 (返回积分 = “NULL”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + 返回 () +.如果真结束 + +.如果真 (到整数 (返回积分) < 10) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + .如果真 (信息框 (“积分:” + 返回积分 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + 返回 () + .如果真结束 + +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “已开通积分:” + 返回积分) +程序_延时 (1000) +启动线程 (&鱼翅充值, , ) + +.子程序 鱼翅充值 +.局部变量 str, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 鱼刺付款码, 文本型 +.局部变量 鱼刺token, 文本型 +.局部变量 局_bool, 逻辑型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +' pay_type=1 支付宝支付 pay_type=2 微信支付 + +局_Cookie = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/m/gold/getQrCode”, 1, “pay_type=1&product_id=DYTV_Product_Gold_1&number=” + 删首尾空 (编辑框_充值金额.内容) + “&toname=&source=dy_box”, 局_Cookie, , #常量2)) + +鱼刺付款码 = 编码_usc2到ansi (文本_取出中间文本 (str, “code_url” + #引号 + “:” + #引号, #引号)) +鱼刺token = 文本_取出中间文本 (str, “token” + #引号 + “:” + #引号, #引号) +状态条1.置文本 (0, “鱼翅码-> ” + str) +.如果真 (鱼刺付款码 ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “鱼翅充值码已生成”) + 图片框1.图片 = 文本生成二维码图片 (鱼刺付款码, , , , , 10) + 状态条1.置文本 (1, “鱼翅” + 编辑框_充值金额.内容 + “元,支付宝付款码”) + 程序_延时 (1000) + 检测鱼刺充值状态 (鱼刺token, 超级列表框1.现行选中项, 局_Cookie) + 程序_延时 (2000) + 直接送礼物 (局_Cookie, 超级列表框1.现行选中项) + 程序_延时 (3000) + .计次循环首 (3, ) + 查积分记录 () + .计次循环尾 () + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, str) + +.子程序 检测鱼刺充值状态 +.参数 参_token, 文本型, 可空 +.参数 参_索引, 整数型 +.参数 参_cook, 文本型 +.局部变量 str, 文本型 +.局部变量 局_余额, 整数型 +.局部变量 局_工作, 逻辑型 +.局部变量 an, 整数型 +.局部变量 msg, 文本型 +.局部变量 yyjson, json对象 + +' 检测充值鱼刺成功 '{"error":0,"data":{"state":2,"order_id":"7682614632081039361001","quantity":10,"nickname":"用户27335596"}} +局_工作 = 真 +.判断循环首 (局_工作 = 真) + _原子递增 (an) + str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/item/gold/account”, , , 参_cook, , #常量2)) + ' '调试输出 (str) + 状态条1.置文本 (0, “[” + 到文本 (an) + “]检测鱼翅充值-> ” + str) + yyjson.清空 () + yyjson.解析 (str) + 局_余额 = yyjson.取整数 (“data/gold”) + ' 调试输出 (“局_余额”, 局_余额) + 窗口_置状态信息 (参_索引, 1, “[” + 到文本 (an) + “]检测鱼翅充值”) + .如果真 (局_余额 > 0) + 窗口_置状态信息 (参_索引, 1, “鱼刺余额:” + 到文本 (局_余额)) + 返回 () + .如果真结束 + + 程序_延时 (2000) +.判断循环尾 () + +.子程序 直接送礼物 +.参数 参_cook, 文本型 +.参数 参_索引, 整数型 +.局部变量 str, 文本型 +.局部变量 局_充值数, 整数型 + +局_充值数 = 到整数 (删首尾空 (编辑框_充值金额.内容)) + +' 正常返回'{"error":0,"msg":"success","data":{"priceType":2,"sb":0,"noble_gold":0,"ry":0,"noble_gold_black":0,"gid":22171,"gx":0,"num":1,"messages":["type@=dgb/rid@=9263298/gfid@=22171/gs@=0/uid@=460469086/bg@=1/nn@=用户470321034/ic@=avatar@Sdefault@S14/eid@=0/eic@=20051/level@=2/dw@=0/gfcnt@=1/hits@=1/bcnt@=1/bst@=6/ct@=0/el@=/cm@=0/bnn@=/bl@=0/brid@=0/hc@=/sahf@=0/fc@=0/bnid@=1/bnl@=1/receive_uid@=335920043/receive_nn@=若若跑的贼快/pfm@=3175/pma@=454872551/mss@=454872569/skinid@=1890/bcst@=1/bsfl@=1/"],"toast":""}} +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/gift/donate/mainsite/v3”, 1, “giftId=23643&giftCount=” + 到文本 (局_充值数) + “&roomId=999&bizExt=%7B%22isMainGift%22%3A1%7D&skinId=2942”, 参_cook, , #常量9)) +状态条1.置文本 (0, “送礼物-> ” + str) +.如果真 (寻找文本 (str, “msg” + #引号 + “:” + #引号 + “success”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “送礼物成功”) + 返回 () +.如果真结束 + +窗口_置状态信息 (参_索引, 2, str) + +.子程序 _赠送精英令_被选择 + +启动线程 (&送礼物, , ) + +.子程序 送礼物 +.局部变量 str, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 局_充值数, 整数型 + +局_充值数 = 到整数 (删首尾空 (编辑框_充值金额.内容)) + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/gift/donate/mainsite/v3”, 1, “giftId=23643&giftCount=” + 到文本 (局_充值数) + “&roomId=9263298&bizExt=%7B%22isMainGift%22%3A1%7D&skinId=2942”, 局_Cookie, , #常量9)) +' 调试输出 (str) +状态条1.置文本 (0, “送礼物-> ” + str) +' 正常返回'{"error":0,"msg":"success","data":{"priceType":2,"sb":0,"noble_gold":0,"ry":0,"noble_gold_black":0,"gid":22171,"gx":0,"num":1,"messages":["type@=dgb/rid@=9263298/gfid@=22171/gs@=0/uid@=460469086/bg@=1/nn@=用户470321034/ic@=avatar@Sdefault@S14/eid@=0/eic@=20051/level@=2/dw@=0/gfcnt@=1/hits@=1/bcnt@=1/bst@=6/ct@=0/el@=/cm@=0/bnn@=/bl@=0/brid@=0/hc@=/sahf@=0/fc@=0/bnid@=1/bnl@=1/receive_uid@=335920043/receive_nn@=若若跑的贼快/pfm@=3175/pma@=454872551/mss@=454872569/skinid@=1890/bcst@=1/bsfl@=1/"],"toast":""}} +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “送礼物成功”) + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, str) + +.子程序 _查询手册积分_被选择 + +启动线程 (&查手册积分, , ) + +.子程序 查手册积分 +.局部变量 局_文本, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 userid, 文本型 +.局部变量 diff, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +userid = 局_F [2] +局_Cookie = 局_F [3] + + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/diff”, 1, “{” + #引号 + “userId” + #引号 + “:” + #引号 + userid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量5)) + +' '{"error":0,"msg":"success","data":{"diff":300} +状态条1.置文本 (0, “查积分-> ” + str) +diff = 文本_取出中间文本 (str, “diff” + #引号 + “:”, “}”) +.如果真 (diff ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 5, “积分:” + diff) + 返回 () +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 5, str) + +.子程序 _一键查询积分_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&查积分记录_线程, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 查积分记录_线程 +.参数 参_索引E, 整数型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (参_索引E, 1) +ctnEX = 超级列表框1.取标题 (参_索引E, 5) +全临界.退出 () + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (参_索引E, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) + +.如果 (balance ≠ “”) + 窗口_置状态信息 (参_索引E, 2, “记录积分:” + balance) +.否则 + 窗口_置状态信息 (参_索引E, 2, “NULL”) +.如果结束 + +返回 () + +.子程序 查积分记录, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 (“NULL”) +.如果真结束 + +uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + ctnEX + #引号 + “}”, 局_Cookie, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) + +.如果真 (balance ≠ “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “记录积分:” + balance) + 返回 (balance) +.如果真结束 + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “NULL”) +返回 (“NULL”) + +.子程序 _兑换商品_被选择 + +启动线程 (&商品兑换, , ) + +.子程序 Getctn, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_CCK, 文本型 +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 ctn1, 文本型 +.局部变量 ctn2, 文本型 +.局部变量 局_CK, 文本型 +.局部变量 str2, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 返回 (“”) +.如果真结束 + +局_CCK = 局_F [3] + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, 返回CK, #常量1)) +ctn1 = 文本_取出中间文本 (返回CK, “acf_ccn=”, “;”) +.如果真 (ctn1 ≠ “”) + str2 = 到文本 (网页_访问_对象 (“https://www.douyu.com/wgapi/livenc/asubscribe/userSubStatus”, 1, “subscribe=cmn&ctn=” + ctn1, 返回CK, 局_CK, #常量1)) + ' 调试输出 (局_CK) + .如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + ctn2 = 文本_取出中间文本 (局_CK, “acf_ccn=”, “;”) + 返回 (ctn2) + .如果真结束 + + 返回 (“”) + +.如果真结束 + +返回 (“”) + +.子程序 Getcsrf_token, 文本型 +.参数 参_CK, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 参_CK, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +' '调试输出 (返回CK, , , csrf_token) +返回 (csrf_token) + +.子程序 商品兑换 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 商品表, 文本型 +.局部变量 商品组, 文本型, , "0" +.局部变量 要兑换的商品名称, 文本型 +.局部变量 要兑换的商品价格, 文本型 +.局部变量 要兑换的商品ID, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 生成者, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 COOK, 文本型 +.局部变量 局_F2, 文本型, , "0" +.局部变量 局_文本EX, 文本型 +.局部变量 局_用户名, 文本型 +.局部变量 csrf_token, 文本型 +.局部变量 body, 文本型 +.局部变量 randstr, 文本型 +.局部变量 sendxy, 文本型 +.局部变量 yyjson, json对象 + +' 局_文本EX = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +' 局_F2 = 分割文本 (局_文本EX, “----”, ) +.' 如果真 (取数组成员数 (局_F2) < 3) + ' 返回 () +.如果真结束 + +' 局_用户名 = 局_F2 [1] + +商品表 = 组合框1.取项目文本 (组合框1.现行选中项) +商品组 = 分割文本 (商品表, “一”, ) +.如果真 (取数组成员数 (商品组) < 3) + 状态条1.置文本 (0, “商品格式错误x”) + 返回 () +.如果真结束 + +要兑换的商品名称 = 商品组 [1] +要兑换的商品价格 = 商品组 [2] +要兑换的商品ID = 商品组 [3] + +状态条1.置文本 (0, “正在兑换商品-> ” + 要兑换的商品ID) + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 4, “Cookie格式错误”) + 状态条1.置文本 (0, “Cookie格式错误x ”) + 返回 () +.如果真结束 + +局_用户名 = 局_F [1] +局_Cookie = 局_F [3] + +ctnEX = 文本_取出中间文本 (局_Cookie, “acf_ccn=”, “;”) +COOK = 局_Cookie + “; acf_ccn=” + ctnEX +.如果真 (寻找文本 (COOK, “;;”, , 假) ≠ -1) + COOK = 子文本替换 (COOK, “;;”, “;”, , , 真) +.如果真结束 + +csrf_token = Getcsrf_token (局_Cookie) + +COOK = 网页_Cookie合并更新 (COOK, “cvl_csrf_token=” + csrf_token) + +置随机数种子 () +randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) +sendxy = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) +body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 要兑换的商品ID, “[token]”, csrf_token) +调试输出 (“body:--”, body) + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , sendxy, 局_xy)) +' 调试输出 (“兑换商品-> ” + str) +状态条1.置文本 (0, “兑换商品-> ” + str) +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换成功:” + 要兑换的商品名称) + .计次循环首 (3, ) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) + .如果真 (str2 ≠ “”) + 跳出循环 () + .如果真结束 + + .计次循环尾 () + + + yyjson.清空 () + yyjson.解析 (str2) + roleName = yyjson.取文本 (“data/gameRole/roleName”) + .如果 (roleName ≠ “”) + 全线程临界.进入 () + 优化价格 = 取文本左边 (要兑换的商品价格, 取文本长度 (要兑换的商品价格) - 1) + 保存日志2 (时间_到文本 (取现行时间 (), 1) + “ ” + 局_用户名 + “----” + roleName + “----” + 要兑换的商品名称 + “----” + 优化价格) + 局_bin = 文转图片P (要兑换的商品名称 + “ ” + #换行符 + 时间_格式化 (取现行时间 (), “yyyy年MM月dd日”, “ hh:mm:ss”, 真) + #换行符 + “兑换账号:” + roleName + “(” + 局_用户名 + “)”) + 全线程临界.退出 () + 剪辑板_置图片 (局_bin) + 提示框 (“兑换成功,图片已复制”, , , , 1000) + + .否则 + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换成功,获取昵称失败”) + + .如果结束 + + 返回 () + +.如果真结束 + + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “兑换失败”) + +.子程序 查积分记录EX, 文本型 +.参数 参_uid, 文本型 +.参数 参_CK, 文本型 +.参数 参_ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_文本, 文本型 +.局部变量 str, 文本型 +.局部变量 balance, 文本型 +.局部变量 yyjson, json对象 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/oms/web/peace/credit/balance”, 1, “{” + #引号 + “uid” + #引号 + “:” + #引号 + 参_uid + #引号 + “,” + #引号 + “ctn” + #引号 + “:” + #引号 + 参_ctnEX + #引号 + “}”, 参_CK, , #常量6)) +balance = 文本_取出中间文本 (str, “balance” + #引号 + “:”, “,”) +状态条1.置文本 (0, “积分记录-> ” + str) +返回 (balance) + +.子程序 _图片框1_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +.如果真 (图片框1.图片 = { }) + 提示框 (“请先生成后,再复制二维码”, , , , 1000) + 返回 () +.如果真结束 + +剪辑板_置图片 (图片框1.图片) +' 剪辑板_置图片 (图片_后台截图 (图片框4.取窗口句柄 ())) +提示框 (“二维码已复制”, , , , 1000) + +.子程序 _超级列表框1_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +启动线程 (&子程序标签更新, , ) + +.子程序 子程序标签更新 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 nick, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 +.局部变量 余额, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 yyjson, json对象 +.局部变量 manualScore, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_ctn = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +' 'https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB +' 这个回头调整 str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=cjm”, , , 局_Cookie, , #常量3)) +' https://www.douyu.com/wgapi/ordnc/live/memberthird/tencent/bindInfo?actAlias=20260226ZMGDG + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +状态条1.置文本 (0, “是否绑定-> ” + str) +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"i sGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} +yyjson.清空 () +yyjson.解析 (str) + +roleName = yyjson.取文本 (“data/gameRole/roleName”) +' 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +nick = yyjson.取文本 (“data/gameAccount/nick”) +' 文本_取出中间文本 (str, “nick” + #引号 + “:” + #引号, #引号) +areaName = yyjson.取文本 (“data/gameRole/areaName”) +' 文本_取出中间文本 (str, “areaName” + #引号 + “:” + #引号, #引号) +platName = yyjson.取文本 (“data/gameRole/platName”) +' 文本_取出中间文本 (str, “platName” + #引号 + “:” + #引号, #引号) +余额 = 查积分记录EX (局_uid, 局_Cookie, 局_ctn) + +标签_昵称.标题 = “账号:” + 局_F [1] + “<->” + “余额:” + 余额 +标签_状态.标题 = “昵称:” + nick + #换行符 + “游戏名称:” + roleName + #换行符 + “平台:” + areaName + #换行符 + “设备:” + platName +超级列表框1.置标题 (超级列表框1.现行选中项, 2, roleName) + +.子程序 _标签_状态_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +剪辑板_置图片 (快照 (标签_状态.取窗口句柄 (), , )) +提示框 (“图片已复制”, , , , 1000) + +.子程序 _窗口1_可否被关闭, 逻辑型 + +.如果 (信息框 (“确定要退出程序吗?”, #信息图标 + #确认钮 + #取消钮, , ) = #确认钮) + 返回 (真) +.否则 + 返回 (假) +.如果结束 + + +.子程序 _窗口1_将被销毁 + +配置_保存_易语言组件 (窗口1) +Gdip结束 () +数据写出列表 () + +.子程序 _按钮_结算_被单击 + +启动线程 (&子程序结算, , ) + +.子程序 子程序结算 +.局部变量 str, 文本型 +.局部变量 局_1, 文本型, , "0" +.局部变量 局_F, 文本型, , "0" +.局部变量 N, 整数型 +.局部变量 局_NUM, 整数型 +.局部变量 局_日志路径, 文本型 +.局部变量 局_标识, 文本型, , "0" +.局部变量 局_文本1, 文本型 +.局部变量 局_文本2, 文本型 +.局部变量 局_返回余额, 整数型 + +局_日志路径 = 取运行目录 () + “\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志.log” +str = 编码_Utf8到Ansi (读入文件 (局_日志路径)) +.如果真 (str = “”) + 提示框 (“生成日志后,再结算金额...”, , , , 1000) + 返回 () +.如果真结束 + +文本_取中间_批量 (str, “---------------------------------------------已结算----以上合计金额:”, #换行符, 局_标识) +.如果真 (取数组成员数 (局_标识) < 1) + ' 提示框 (“生成日志后,再结算金额”, , , , 2000) + 局_F = 分割文本 (str, #换行符, ) + .计次循环首 (取数组成员数 (局_F), N) + 局_返回余额 = 子程序处理余额 (局_F [N]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () + .计次循环尾 () + 保存日志2 (#换行符 + #换行符 + “---------------------------------------------已结算----以上合计金额:” + 到文本 (局_NUM) + #换行符 + #换行符) + 提示框 (“结算完成:” + 到文本 (局_NUM), , , , 2000) + 返回 () +.如果真结束 + + +.如果真 (局_标识 [取数组成员数 (局_标识)] ≠ “”) + 局_文本1 = “---------------------------------------------已结算----以上合计金额:” + 局_标识 [取数组成员数 (局_标识)] + 局_1 = 分割文本 (str, 局_文本1, ) + 局_文本2 = 局_1 [取数组成员数 (局_1)] + .如果真 (局_文本2 ≠ “”) + 局_F = 分割文本 (局_文本2, #换行符, ) + .计次循环首 (取数组成员数 (局_F), N) + 局_返回余额 = 子程序处理余额 (局_F [N]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () + .计次循环尾 () + .如果真 (局_NUM ≤ 0) + 提示框 (“未达到结算条件!”, , , , 2000) + 返回 () + .如果真结束 + + 保存日志2 (#换行符 + #换行符 + “---------------------------------------------已结算----以上合计金额:” + 到文本 (局_NUM) + #换行符 + #换行符) + 清除数组 (局_1) + 清除数组 (局_F) + 提示框 (“结算完成:” + 到文本 (局_NUM), , , , 2000) + 返回 () + .如果真结束 + + 提示框 (“未达到结算条件!”, , , , 2000) + +.如果真结束 + + +.子程序 子程序处理余额, 整数型 +.参数 参_数据, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 N, 整数型 + +局_F = 分割文本 (参_数据, “----”, ) +.如果真 (取数组成员数 (局_F) = 4) + 返回 (到整数 (局_F [4])) +.如果真结束 + +返回 (0) + +.子程序 _按钮_统计_被单击 +.局部变量 str, 文本型 +.局部变量 局_日志路径, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 P, 整数型 +.局部变量 局_返回余额, 整数型 +.局部变量 局_NUM, 整数型 + +局_日志路径 = 取运行目录 () + “\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志.log” +str = 编码_Utf8到Ansi (读入文件 (局_日志路径)) +局_F = 分割文本 (str, #换行符, ) +.计次循环首 (取数组成员数 (局_F), P) + 局_返回余额 = 子程序处理余额 (局_F [P]) + _原子运算 (局_NUM, 局_返回余额) + 系统_处理事件 () +.计次循环尾 () +保存日志2 (#换行符 + #换行符 + “*************************************************今日统计总金额:” + 到文本 (局_NUM) + #换行符 + #换行符) +信息框 (时间_格式化 (取现行时间 (), “MM.dd-”) + “统计总金额:” + 到文本 (局_NUM), 0, , ) + + +.子程序 _读取Cookie_被选择 +.局部变量 局_保存目录, 文本型 +.局部变量 局_文本数据, 文本型 +.局部变量 局_文本数组, 文本型, , "0" +.局部变量 局_索引, 整数型 +.局部变量 P, 整数型 +.局部变量 N, 整数型 +.局部变量 局_3, 文本型, , "0" + +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +.如果真 (文件是否存在 (局_保存目录) = 假) + 提示框 (“Cookie文件不存在!” + #换行符 + 局_保存目录, , , , 2000) + 返回 () +.如果真结束 + + +局_文本数据 = 到文本 (读入文件 (局_保存目录)) +局_文本数组 = 分割文本 (局_文本数据, #换行符, ) +.计次循环首 (取数组成员数 (局_文本数组), P) + 判断重复列表 (局_文本数组 [P]) + 系统_处理事件 () +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), N) + 系统_处理事件 () + 超级列表框1.置状态图片 (N - 1, 1) + 超级列表框1.置标题 (N - 1, 0, 到文本 (N)) +.计次循环尾 () + +.子程序 判断重复列表 +.参数 参_内容, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_用户, 文本型 +.局部变量 _索引, 整数型 +.局部变量 局_索引2, 整数型 +.局部变量 P, 整数型 + +_索引 = 超级列表框1.查找表项 (参_内容, , , 1) +.如果 (_索引 = -1) + 局_索引2 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (局_索引2, 0, 到文本 (局_索引2 + 1)) + 超级列表框1.置标题 (局_索引2, 1, 参_内容) + 超级列表框1.置状态图片 (局_索引2, 1) + +.否则 + 超级列表框1.置标题 (_索引, 1, 参_内容) +.如果结束 + + +.子程序 _同步删除Cookie_被选择 +.局部变量 局_保存目录, 文本型 +.局部变量 局_保存文本, 鱼刺类_输出文本 +.局部变量 i, 整数型 +.局部变量 P, 整数型 + +局_保存目录 = 取运行目录 () + “\斗鱼CK\” + 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK.txt” +超级列表框1.删除表项 (超级列表框1.现行选中项) +删除文件 (局_保存目录) +程序_延时 (500) +局_保存目录 = 取运行目录 () + “\斗鱼CK\” +.计次循环首 (超级列表框1.取表项数 (), i) + 系统_处理事件 () + 局_保存文本.写文本行 (超级列表框1.取标题 (i - 1, 1), 时间_格式化 (取现行时间 (), “MM.dd-”) + “斗鱼CK”, 局_保存目录, “.txt”) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + 超级列表框1.置状态图片 (P - 1, 1) + 超级列表框1.置标题 (P - 1, 0, 到文本 (P)) +.计次循环尾 () + +提示框 (“同步完成”, , , , 1000) + +.子程序 保存日志 +.参数 参_str, 文本型 +.局部变量 filename, 文本型 +.局部变量 保存到文件, 鱼刺类_输出文本 + +filename = 时间_格式化 (取现行时间 (), “MM.dd-”) + “流程日志” +保存到文件.写文本行 (参_str, filename, 取运行目录 () + “\”, “.log”) + +.子程序 保存日志2 +.参数 参_str, 文本型 +.局部变量 filename, 文本型 +.局部变量 保存到文件, 鱼刺类_输出文本 + +filename = 时间_格式化 (取现行时间 (), “MM.dd-”) + “兑换日志” +保存到文件.写文本行 (参_str, filename, 取运行目录 () + “\”, “.log”) +' 保存到文件.关闭所有文件占用 () + +.子程序 数据写入列表, , , APP +.局部变量 文件号, 整数型 +.局部变量 文件名, 文本型 +.局部变量 状态数组, 文本型, , "0" +.局部变量 文本数组, 文本型, , "0" +.局部变量 M, 整数型 +.局部变量 N, 整数型 +.局部变量 局_状态图片, 整数型 + +文件名 = 全目录临时 + “\临时ck.txt” +文件号 = 打开文件 (文件名, , ) +移到文件首 (文件号) +处理事件 () +.判断循环首 (取反 (是否在文件尾 (文件号, 真))) + 重定义数组 (状态数组, 假, 0) + 重定义数组 (文本数组, 假, 0) + 状态数组 = 分割文本 (读入一行 (文件号), “$”, ) + .如果真 (取数组成员数 (状态数组) ≥ 2) + .如果 (状态数组 [1] = “x”) + 局_状态图片 = 1 + .否则 + 局_状态图片 = 0 + .如果结束 + 文本数组 = 分割文本 (状态数组 [2], “|||”, ) + M = 超级列表框1.插入表项 (, , , , , ) + + 超级列表框1.置状态图片 (M, 局_状态图片) + .计次循环首 (取数组成员数 (文本数组), N) + 系统_处理事件 () + 超级列表框1.置标题 (M, N - 1, 文本数组 [N]) + .如果真 (N = 20) ' 填充满一页就手动重画 + 超级列表框1.禁止重画 () + .如果真结束 + .如果真 (N % 100 = 0) ' 每100次插入 换一次姿势 ``233333 + 超级列表框1.允许重画 () + 超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + 超级列表框1.禁止重画 () + .如果真结束 + + .计次循环尾 () + + + + .如果真结束 + +.判断循环尾 () +关闭文件 (文件号) +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + +.子程序 数据写出列表, , , APP +.局部变量 文件名, 文本型 +.局部变量 读入账号, 文本型 +.局部变量 n, 整数型 +.局部变量 临时文件名, 文本型 +.局部变量 文件号, 整数型 +.局部变量 文本, 文本型 +.局部变量 空, 字节集 +.局部变量 局_状态图片, 文本型 + +临时文件名 = 全目录临时 + “\临时ck.txt” +文件号 = 打开文件 (临时文件名, 4, ) +_处理事件 () +文本 = “” + +.计次循环首 (超级列表框1.取表项数 (), n) + 系统_处理事件 () + .判断开始 (超级列表框1.取当前状态图片 (n - 1) = 1) + 局_状态图片 = “x” + + .默认 + 局_状态图片 = “y” + .判断结束 + + 文本 = 局_状态图片 + “$” + 超级列表框1.取标题 (n - 1, 0) + “|||” + 超级列表框1.取标题 (n - 1, 1) + “|||” + 超级列表框1.取标题 (n - 1, 2) + “|||” + 超级列表框1.取标题 (n - 1, 3) + “|||” + 超级列表框1.取标题 (n - 1, 4) + “|||” + 超级列表框1.取标题 (n - 1, 5) + “|||” + 超级列表框1.取标题 (n - 1, 6) + + 写文本行 (文件号, 文本) +.计次循环尾 () +关闭文件 (文件号) + +.子程序 _标签_昵称_被双击, 逻辑型, , https://livelink.qq.com/act/a20200527midgroupage/pc/?sig=0d29d14f3e9bdb05f7f091340952054f&faceUrl=https%3A%2F%2Fapic.douyucdn.cn%2Fupload%2Favatar%2Fdefault%2F15_middle.jpg&code=wW6EhNWpLEVNHKEMfB9vaEWKPdowIikRqFJI0IKm%2BcxGa%2B8OEPhyF%2BZ58W80CrGigCGtLddIofBcnRkylmccKw%3D%3D&redirectUrl=null&t=1661433534&livePlatId=douyu&nickName=%E7%94%A8%E6%88%B702435853&actId=2811&gameIdList=cjm +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 +.局部变量 str, 文本型, , , 昵称:null <-> 余额:null + +str = 删首尾空 (文本_取出中间文本 (标签_昵称.标题, “账号:”, “<->”)) +置剪辑板文本 (str) +提示框 (str + “ 已复制”, , , , 1000) + +.子程序 _按钮_关闭_被单击, , , 测试 + +_扫码框.可视 = 假 +工作中 = 假 +关闭线程句柄 (集句柄) +强制结束线程 (集句柄) + +.子程序 _扫码登录_被选择 + +' 载入 (窗口_扫码, , 真) +_扫码框.可视 = 真 +标签显示.可视 = 假 +按钮_刷新.可视 = 假 +按钮_刷新.禁止 = 真 +启动线程 (&getscanEX, , 集句柄) + +.子程序 getscanEX, 逻辑型, , 获取扫码 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 surl, 文本型 +.局部变量 code, 文本型 +.局部变量 bool, 逻辑型 +.局部变量 局_Code, 文本型 +.局部变量 局_msg, 文本型 +.局部变量 局_LoginUrl, 文本型 +.局部变量 CK, 文本型 + +图片框2.图片 = { } +网页_清除Cookie (“passport.douyu.com”) +标签_反馈.标题 = “正在二维码...” +网页_访问_对象 (“https://passport.douyu.com/index/login?passport_reg_callback=PASSPORT_REG_SUCCESS_CALLBACK&passport_login_callback=PASSPORT_LOGIN_SUCCESS_CALLBACK&passport_close_callback=PASSPORT_CLOSE_CALLBACK&passport_dp_callback=PASSPORT_DP_CALLBACK&type=login&client_id=1&state=https%3A%2F%2Fwww.douyu.com%2F&source=click_topnavi_login”, , , “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)), , #常量8) +程序_延时 (1000) +str = 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://passport.douyu.com/scan/generateCode”, 1, “client_id=1&isMultiAccount=0”, “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)), , #扫码XY1))) + +' “dy_did=05444ffb59d181b4d194b59900011601; acf_did=05444ffb59d181b4d194b59900011601; Hm_lpvt_e99aee90ec1b2106afe7ec3b199020a7=” + 到文本 (时间_取现行时间戳1 (假)) + +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +surl = yyjson.取文本 (“data/url”) +局_Code = yyjson.取文本 (“data/code”) +.如果真 (surl = “” 或 局_Code = “”) + 标签_反馈.标题 = “请关闭后重新生成二维码!” + 返回 (假) +.如果真结束 + +图片框2.图片 = 文本生成二维码图片 (surl, , , , , 20) +标签_反馈.标题 = “二维码已生成,请在手机上确认!” + +工作中 = 真 +.判断循环首 (工作中 = 真) + bool = scanauthEX (局_Code, 局_msg, 局_LoginUrl) + .如果真 (bool = 真) + 跳出循环 () + .如果真结束 + + .如果真 (寻找文本 (局_msg, “code不存在或者是已经过期”, , 假) ≠ -1) + 关闭线程句柄 (集句柄) + 强制结束线程 (集句柄) + 标签显示.可视 = 真 + 按钮_刷新.可视 = 真 + 按钮_刷新.禁止 = 假 + 返回 (假) + .如果真结束 + + 程序_延时 (1000) + 系统_处理事件 () +.判断循环尾 () +Login_douEX (局_LoginUrl) +返回 (真) + +.子程序 scanauthEX, 逻辑型, , 检测是否扫码 +.参数 参_code, 文本型 +.参数 返回msg, 文本型, 参考 +.参数 返回登录url, 文本型, 参考 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_msg, 文本型 +.局部变量 局surl, 文本型 + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://passport.douyu.com/japi/scan/auth?time=” + 时间_取现行时间戳 () + “&code=” + 参_code, , , , , #扫码XY1)) +' 调试输出 (“参_code---”, 参_code) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +返回msg = yyjson.取文本 (“msg”) +返回登录url = yyjson.取文本 (“data/url”) +标签_反馈.标题 = “>>>>” + 返回msg +.如果真 (返回登录url ≠ “”) + 标签_反馈.标题 = “扫码成功,正在登录...” + 返回 (真) +.如果真结束 + +返回 (假) + +.子程序 Login_douEX, , , 登录斗鱼 +.参数 参_url, 文本型 +.局部变量 str, 文本型 +.局部变量 局_索引, 整数型 +.局部变量 局_COOK, 文本型 +.局部变量 acf_uid, 文本型 +.局部变量 acf_nickname, 文本型 +.局部变量 解析CK, 类_Cookie + +str = 编码_usc2到ansi (到文本 (网页_访问_对象 (参_url + “&callback=appClient_json_callback&_=” + 时间_取现行时间戳 (), , , , 局_COOK, #扫码登录))) +' 调试输出 (str) +' 调试输出 (“局_COOK---”, 局_COOK) +.如果真 (局_COOK ≠ “”) + 标签_反馈.标题 = “>>>扫码登录成功!” + acf_uid = 网页_取单条Cookie (局_COOK, “acf_uid”, 真) + + acf_nickname = 编码_URL解码 (网页_取单条Cookie (局_COOK, “acf_nickname”, 真), 真) + 局_索引 = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置标题 (局_索引, 0, 到文本 (局_索引 + 1)) + 超级列表框1.置标题 (局_索引, 1, acf_nickname + “----” + acf_uid + “----” + 局_COOK) + 超级列表框1.置状态图片 (局_索引, 1) + 超级列表框1.保证显示 (局_索引) + 工作中 = 假 + _扫码框.可视 = 假 + +.如果真结束 + + +.子程序 _按钮_刷新_被单击 + +标签显示.可视 = 假 +按钮_刷新.可视 = 假 +按钮_刷新.禁止 = 真 +启动线程 (&getscanEX, , 集句柄) + +.子程序 _图片框2_被双击, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +剪辑板_置图片 (图片框2.图片) +提示框 (“图片已复制”, , , , 1000) + +.子程序 __扫码框_鼠标左键被按下, 逻辑型 +.参数 横向位置, 整数型 +.参数 纵向位置, 整数型 +.参数 功能键状态, 整数型 + +窗口1.发送信息 (161, 2, 0) + +.子程序 _粘贴Cookie_被选择 +.局部变量 文本数组, 文本型, , "0" +.局部变量 计次1, 整数型 +.局部变量 计次2, 整数型 +.局部变量 临时数组, 文本型, , "0" +.局部变量 索引, 整数型 +.局部变量 i, 文本型 +.局部变量 总数数组, 文本型, , "0" +.局部变量 内容, 文本型 +.局部变量 X, 整数型 +.局部变量 状态数组, 文本型, , "0" +.局部变量 N, 整数型 +.局部变量 M, 整数型 +.局部变量 判断数据, 文本型 + +' 下面的是粘贴根据“----“判断是否是一条或者两条数据 +i = 取剪辑板文本 () +.如果真 (i = “”) + 返回 () +.如果真结束 + +文本数组 = 分割文本 (i, #换行符, ) +.计次循环首 (取数组成员数 (文本数组), X) + .如果真 (文本数组 [X] ≠ “”) + M = 超级列表框1.插入表项 (, , , , , ) + 超级列表框1.置状态图片 (M, 1) + 超级列表框1.置标题 (M, 0, 到文本 (M + 1)) + 超级列表框1.置标题 (M, 1, 文本数组 [X]) + .如果真结束 + + 系统_处理事件 () +.计次循环尾 () +超级列表框1.允许重画 () ' 恢复自动重画 +超级列表框1.发送信息 (277, 7, 0) ' 显示最后一行 + +清除数组 (文本数组) +返回 () + +.子程序 _搜索游戏名_被选择 +.局部变量 索引EX, 整数型 +.局部变量 str, 文本型 + +输入框 (“查找包含游戏名的字符”, “查找游戏名”, , str, , ) +.如果真 (str = “”) + 返回 () +.如果真结束 + +索引EX = 超级列表框1.查找表项 (str, , 假, 2) +.如果真 (索引EX ≠ -1) + 超级列表框1.保证显示 (索引EX) + 超级列表框1.选择表项 (索引EX) +.如果真结束 + +返回 () + +.子程序 _搜索状态_被选择 +.局部变量 索引EX, 整数型 +.局部变量 str, 文本型 + +输入框 (“查找包含状态的字符”, “查找状态”, , str, , ) +.如果真 (str = “”) + 返回 () +.如果真结束 + +索引EX = 超级列表框1.查找表项 (str, , 假, 4) +.如果真 (索引EX ≠ -1) + 超级列表框1.保证显示 (索引EX) + 超级列表框1.选择表项 (索引EX) +.如果真结束 + +返回 () + + +.子程序 子程序检测账号EX +.参数 参_索引, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_CCK, 文本型 +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 + +全检车临界.进入 () +局_文本 = 超级列表框1.取标题 (参_索引, 1) +全检车临界.退出 () + +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (参_索引, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_CCK = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/curl/csrfApi/getCsrfCookie?”, , , 局_CCK, , #常量1)) +' 调试输出 (str) +状态条1.置文本 (0, “生成1-> ” + 编码_usc2到ansi (str)) +.判断开始 (寻找文本 (str, “-99”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “账号未登录”) + 返回 () + +.判断 (寻找文本 (str, “无效”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “账号无效”) + 返回 () + +.默认 + 窗口_置状态信息 (参_索引, 1, “账号正常”) +.判断结束 + +返回 () + +.子程序 _一键检测账号_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序检测账号EX, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + + +.子程序 _全选_被选择 +.局部变量 P, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + 超级列表框1.置状态图片 (P - 1, 1) +.计次循环尾 () + +.子程序 _反选_被选择 +.局部变量 P, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), P) + 系统_处理事件 () + .如果 (超级列表框1.取当前状态图片 (P - 1) = 0) + 超级列表框1.置状态图片 (P - 1, 1) + + .否则 + 超级列表框1.置状态图片 (P - 1, 0) + .如果结束 + +.计次循环尾 () + + +.子程序 _一键获取游戏名_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序获取昵称EX, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序获取昵称EX +.参数 索引EX, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 nick, 文本型 +.局部变量 str, 文本型 +.局部变量 roleName, 文本型 +.局部变量 余额, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_ctn, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引EX, 1) +局_ctn = 超级列表框1.取标题 (索引EX, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +全临界.进入 () +状态条1.置文本 (0, “是否绑定-> ” + str) +roleName = 文本_取出中间文本 (str, “roleName” + #引号 + “:” + #引号, #引号) +超级列表框1.置标题 (索引EX, 2, roleName) +全临界.退出 () + +' {"error":0,"msg":"success","data":{"bindAccount":1,"bindRole":1,"bindAct":1,"needBindRole":null,"txAct":{"txActId":2811,"gameId":"cjm","gameName":"和平精英","bindType":1},"gameAccount":{"bindType":2,"type":"","faceuri":"https://thirdwx.qlogo.cn/mmopen/vi_32/Q0j4TwGTfTI4cIOxb4f7vpSkqYCIIvY1EJTgkhS0ZhVzzJSl2LzDpUzVBJKiaDjvuzpdS6cadAvA6bnrYwZ7jlQ/132","nick":"zicoo"},"gameRole":{"roleName":"白菜被拱了呀","areaName":"微信","platName":"安卓(android)","partitionName":""},"isGranted":null,"gameAuthScene":null,"canChangeRole":0,"changeRoleWaitTime":2490528},"redirectUrl":null} + + +' nick = 文本_取出中间文本 (str, “nick” + #引号 + “:” + #引号, #引号) +' areaName = 文本_取出中间文本 (str, “areaName” + #引号 + “:” + #引号, #引号) +' platName = 文本_取出中间文本 (str, “platName” + #引号 + “:” + #引号, #引号) + + +.子程序 _按钮_刷新商品1_被单击 + +启动线程 (&商品加列表, , ) + +.子程序 商品加列表 +.局部变量 局_商品名, 文本型 + +局_商品名 = 组合框1.取项目文本 (组合框1.现行选中项) +超级列表框1.置标题 (超级列表框1.现行选中项, 3, 局_商品名) + +.子程序 _按钮_启动_被单击 + +.判断开始 (按钮_启动.标题 = “批量兑换商品[列表勾选]”) + .如果真 (超级列表框1.取表项数 () ≤ 0) + 返回 () + .如果真结束 + + 按钮_启动.禁止 = 真 + .如果真 (线程_创建 (&工作线程) = 假) + 按钮_启动.禁止 = 假 + 返回 () + .如果真结束 + +.判断 (按钮_启动.标题 = “停止兑换商品”) + 按钮_启动.禁止 = 真 + 按钮_启动.标题 = “停 止 中...” + 全工作中 = 假 + 工作线程池EX.销毁 () + 返回 () +.默认 + +.判断结束 + + +.子程序 工作线程 +.局部变量 bool, 逻辑型 +.局部变量 int, 整数型 +.局部变量 任务数, 整数型 +.局部变量 局_文本txt, 文本型 +.局部变量 局_data, 文本型 +.局部变量 返回用户名, 文本型 +.局部变量 返回Cookie, 文本型 +.局部变量 返回商品名称, 文本型 +.局部变量 返回商品价格, 文本型 +.局部变量 返回商品ID, 文本型 + +全定时数 = 0 +按钮_启动.标题 = “兑换中...” +状态条1.置文本 (0, “线程启动中...”) +bool = 工作线程池EX.创建 (50, 50, , 真, , 1024 × 128) +.如果真 (bool = 假) + 状态条1.置文本 (0, “初始化工作线程池失败!”) + 按钮_启动.标题 = “批量兑换商品[列表勾选]” + 按钮_启动.禁止 = 假 + 返回 () +.如果真结束 + +全工作中 = 真 +按钮_启动.标题 = “停止兑换商品” +按钮_启动.禁止 = 假 + +int = 0 +.判断循环首 (全工作中 = 真) + 任务数 = 工作线程池EX.取_执行线程数 () + 工作线程池EX.取_队列任务数 () + 任务数 = 工作线程池EX.取_最大线程容量 () - 任务数 + .如果真 (任务数 > 0) + .如果真 (超级列表框1.取当前状态图片 (int) = 1) + 工作线程池EX.投递任务 (&线程子程序, int) + .如果真结束 + + int = int + 1 + + .如果真结束 + + .如果真 (int ≥ 超级列表框1.取表项数 ()) + 跳出循环 () + .如果真结束 + + _延迟 (1) +.判断循环尾 () +.循环判断首 () + 程序_延时 (300) +.循环判断尾 (工作线程池EX.取_是否完全空闲 () = 假) +状态条1.置文本 (0, “正在销毁工作线程池...”) +工作线程池EX.销毁 () +状态条1.置文本 (0, “销毁工作线程池成功!”) +按钮_启动.标题 = “批量兑换商品[列表勾选]” +按钮_启动.禁止 = 假 +状态条1.置文本 (0, “执行停止完毕!”) +.如果真 (选择框_定时抢购.选中 = 真) + 时钟1.时钟周期 = 0 + 选择框_定时抢购.选中 = 假 + 状态条1.置文本 (1, “定时操作完毕!”) +.如果真结束 + + +.子程序 处理Cookie, 逻辑型 +.参数 参_data, 文本型 +.参数 返回用户名, 文本型, 参考 +.参数 返回Cookie, 文本型, 参考 +.局部变量 F_F, 文本型, , "0" + +F_F = 分割文本 (参_data, “----”, ) +.如果真 (取数组成员数 (F_F) < 3) + 返回Cookie = “Cookie格式错误” + 返回 (假) +.如果真结束 + +返回用户名 = F_F [1] +返回Cookie = F_F [3] +返回 (真) + +.子程序 处理商品, 逻辑型 +.参数 参_data, 文本型 +.参数 返回商品名称, 文本型, 参考 +.参数 返回商品价格, 文本型, 参考 +.参数 返回商品ID, 文本型, 参考 +.局部变量 F_F, 文本型, , "0" + +F_F = 分割文本 (参_data, “一”, ) +.如果真 (取数组成员数 (F_F) < 3) + 返回商品ID = “商品格式错误” + 返回 (假) +.如果真结束 + +返回商品名称 = F_F [1] +返回商品价格 = F_F [2] +返回商品ID = F_F [3] +返回 (真) + +.子程序 子程序等待定时, , , 暂不使用 +.局部变量 P, 整数型 +.局部变量 N, 整数型 +.局部变量 局_兑换状态, 文本型 + +.计次循环首 (到整数 (删首尾空 (编辑框_定时秒.内容)), P) + 系统_处理事件 () + 状态条1.置文本 (0, “已设置定时:” + 编辑框_定时秒.内容 + “秒,开始计时/” + 到文本 (P)) + 程序_延时 (1000) +.计次循环尾 () +.计次循环首 (超级列表框1.取表项数 (), N) + 系统_处理事件 () + 全临界.进入 () + 局_兑换状态 = 超级列表框1.取标题 (N - 1, 4) + 全临界.退出 () + .如果真 (局_兑换状态 ≠ “兑换成功”) + 超级列表框1.置状态图片 (N - 1, 1) + .如果真结束 + +.计次循环尾 () + +.子程序 线程子程序 +.参数 参_索引, 整数型 +.局部变量 局_data, 文本型 +.局部变量 F_F, 文本型, , "0" +.局部变量 局_ctnEX, 文本型 +.局部变量 csrf_token, 文本型 +.局部变量 randstr, 文本型 +.局部变量 heardes, 文本型 +.局部变量 body, 文本型 +.局部变量 str, 文本型 +.局部变量 局_xy, 文本型 +.局部变量 roleName, 文本型 +.局部变量 str2, 文本型 +.局部变量 areaName, 文本型 +.局部变量 platName, 文本型 +.局部变量 优化价格, 文本型 +.局部变量 局_bin, 字节集 +.局部变量 局_文本txt, 文本型 +.局部变量 F_F2, 文本型, , "0" +.局部变量 ctnEX, 文本型 +.局部变量 COOK, 文本型 +.局部变量 yyjson, json对象 +.局部变量 error, 文本型 +.局部变量 msg, 文本型 +.局部变量 i, 整数型 +.局部变量 返回用户名, 文本型 +.局部变量 返回Cookie, 文本型 +.局部变量 返回商品名称, 文本型 +.局部变量 返回商品价格, 文本型 +.局部变量 返回商品ID, 文本型 + +.如果真 (全工作中 = 假) + 返回 () +.如果真结束 + +全线程临界.进入 () +超级列表框1.置状态图片 (参_索引, 0) +局_data = 超级列表框1.取标题 (参_索引, 1) +局_文本txt = 超级列表框1.取标题 (参_索引, 3) +' 超级列表框1.保证显示 (参_索引) +全线程临界.退出 () +.如果真 (处理Cookie (局_data, 返回用户名, 返回Cookie) = 假) + 窗口_置状态信息 (参_索引, 1, 返回Cookie) + 返回 () +.如果真结束 + +.如果真 (处理商品 (局_文本txt, 返回商品名称, 返回商品价格, 返回商品ID) = 假) + 窗口_置状态信息 (参_索引, 1, 返回商品ID) + 返回 () +.如果真结束 + + + +ctnEX = 文本_取出中间文本 (返回Cookie, “acf_ccn=”, “;”) +' csrf_token = Getcsrf_token222 (局_Cookie) +全线程临界.进入 () +csrf_token = 超级列表框1.取标题 (参_索引, 6) +.如果真 (csrf_token = “”) + 窗口_置状态信息 (参_索引, 1, “csrf_token获取失败”) + 全线程临界.退出 () + 返回 () +.如果真结束 + +.如果 (ctnEX ≠ “”) + COOK = 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token + +.否则 + COOK = 返回Cookie + “; cvl_csrf_token=” + csrf_token +.如果结束 + +' '状态条1.置文本 (0, “正在兑换商品-> ” + 局_商品ID) + +置随机数种子 () +randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) +heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) +body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) +全线程临界.退出 () + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + + +.如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) = -1) + .计次循环首 (8, i) + str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + ' '调试输出 (str) + 窗口_置状态信息 (参_索引, 1, “【” + 到文本 (i) + “】-> ” + str) + .如果真 (寻找文本 (str, “无效”, , 假) ≠ -1 或 寻找文本 (str, “点击太快”, , 假) ≠ -1 或 str = “”) + 全线程临界.进入 () + csrf_token = 超级列表框1.取标题 (参_索引, 6) + ' csrf_token = Getcsrf_token222 (局_Cookie) + .如果真 (csrf_token ≠ “”) + COOK = 选择 (ctnEX ≠ “”, 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token, 返回Cookie + “; cvl_csrf_token=” + csrf_token) + + randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) + heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) + ' ’下次更新这里 替换#常量11得提交内容 里面得房间ID + body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) + + .如果真结束 + + 全线程临界.退出 () + + .如果真结束 + .如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 跳出循环 () + .如果真结束 + + 程序_延时 (300) + .计次循环尾 () + + .' 判断循环首 (真) + .' 如果真 (全工作中 = 假) + ' 返回 () + .如果真结束 + + ' i = i + 1 + ' str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchange”, 1, body, COOK, , heardes)) + ' ' '调试输出 (str) + ' 窗口_置状态信息 (参_索引, 1, “【” + 到文本 (i) + “】-> ” + str) + .' 如果真 (寻找文本 (str, “无效”, , 假) ≠ -1 或 寻找文本 (str, “点击太快”, , 假) ≠ -1 或 str = “”) + ' 全线程临界.进入 () + ' csrf_token = 超级列表框1.取标题 (参_索引, 6) + ' ' csrf_token = Getcsrf_token222 (局_Cookie) + .' 如果真 (csrf_token ≠ “”) + ' COOK = 选择 (ctnEX ≠ “”, 返回Cookie + “; acf_ccn=” + ctnEX + “; cvl_csrf_token=” + csrf_token, 返回Cookie + “; cvl_csrf_token=” + csrf_token) + + ' randstr = 文本_取随机字符 (16, 位或 (1, 2, 4)) + ' heardes = 子文本替换 (#常量12, “[randstr]”, randstr, , , 真) + ' ' ’下次更新这里 替换#常量11得提交内容 里面得房间ID + ' body = 文本_替换 (#常量11, , , , “[randstr]”, randstr, “[manualID]”, “G4KA4Qnz4LDp7”, “[商品ID]”, 返回商品ID, “[token]”, csrf_token) + + .如果真结束 + + ' 全线程临界.退出 () + + .如果真结束 + + .' 如果真 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + ' 跳出循环 () + .如果真结束 + + ' 程序_延时 (100) + ' 系统_处理事件 () + .' 判断循环尾 () + +.如果真结束 + + + +.如果 (寻找文本 (str, “error” + #引号 + “:0”, , 假) ≠ -1) + 窗口_置状态信息 (参_索引, 1, “兑换成功”) + .计次循环首 (2, ) + str2 = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB”, , , 返回Cookie, , #常量3)) + .如果真 (str2 ≠ “”) + 跳出循环 () + .如果真结束 + + .计次循环尾 () + .如果真 (str2 ≠ “”) + yyjson.清空 () + yyjson.解析 (str2) + roleName = yyjson.取文本 (“data/gameRole/roleName”) + 全线程临界.进入 () + 优化价格 = 取文本左边 (返回商品价格, 取文本长度 (返回商品价格) - 1) + 保存日志2 (时间_到文本 (取现行时间 (), 1) + “ ” + 返回用户名 + “----” + roleName + “----” + 返回商品名称 + “----” + 优化价格) + 局_bin = 文转图片P (返回商品名称 + “ ” + #换行符 + 时间_格式化 (取现行时间 (), “yyyy年MM月dd日”, “ hh:mm:ss”, 真) + #换行符 + “兑换账号:” + roleName + “(” + 返回用户名 + “)”) + 写到文件_ (全PIC + “\” + roleName + “-” + 返回商品名称 + “.png”, 局_bin) + 全线程临界.退出 () + .如果真结束 + + +.否则 + 窗口_置状态信息 (参_索引, 1, str) + +.如果结束 + + +.子程序 Getcsrf_token222, 文本型 +.参数 参_Cookie, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_CCK, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 参_Cookie, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +' '调试输出 (“csrf_token---”, csrf_token) +返回 (csrf_token) + +.子程序 _一键查询换绑时间_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查换绑时间, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查换绑时间 +.参数 索引E, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 changeRoleWaitTime, 整数型 +.局部变量 timetxt, 文本型 +.局部变量 局_txt, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +' 'actAlias=20220616CJSZU +' actAlias=20260120QYOOB +' actAlias=20250213NQCYX +' https://www.douyu.com/japi/carnivalApi/tencent/bindInfo?actAlias=20260120QYOOB + +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/japi/carnivalApi/v2/tencent/bindInfo?actAlias=20260120QYOOB”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +.如果 (yyjson.取文本 (“msg”) = “success”) + changeRoleWaitTime = yyjson.取整数 (“data/changeRoleWaitTime”) + timetxt = 时间_秒到时分秒格式 (changeRoleWaitTime) + 窗口_置状态信息 (索引E, 2, “释放时间:” + timetxt) + +.否则 + 窗口_置状态信息 (索引E, 2, “查询失败”) +.如果结束 + + +.子程序 _一键查询限兑商品_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查限兑商品, p - 1, ) + 程序_延时 (10) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查限兑商品 +.参数 索引E, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 changeRoleWaitTime, 整数型 +.局部变量 timetxt, 文本型 +.局部变量 zy数, 整数型 +.局部变量 statustxt, 文本型 +.局部变量 P, 整数型 +.局部变量 F_F, 文本型, , "0" +.局部变量 commodityName, 文本型 +.局部变量 排序E, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] + +' data.list[21].status = 0 +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/storehome?manualID=G4KA4Qnz4LDp7&rid=9263298”, , , 局_Cookie, , #常量3)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +zy数 = yyjson.取成员数 (“data/list”) +.计次循环首 (zy数, P) + 系统_处理事件 () + statustxt = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/status”) + .如果真 (statustxt = “1”) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/commodityName”) + 加入成员 (F_F, commodityName) + .如果真结束 + +.计次循环尾 () +.如果真 (取数组成员数 (F_F) < 1) + 窗口_置状态信息 (索引E, 2, “无限制商品”) + ' 状态条1.置文本 (0, “限兑-> 无限制商品”) + 返回 () +.如果真结束 + +排序E = 数组_合并 (F_F, “,”) +窗口_置状态信息 (索引E, 2, “限兑*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) +' 状态条1.置文本 (0, “限兑*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) +返回 () + +.子程序 _一键查询鱼刺余额_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查询鱼刺, p - 1, ) + 程序_延时 (100) + .如果真结束 + +.计次循环尾 () + +.子程序 子程序查询鱼刺 +.参数 索引E +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_余额, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +窗口_置状态信息 (索引E, 1, “查询鱼刺余额...”) +str = 到文本 (网页_访问_对象 (“https://cz.douyu.com/item/gold/account”, , , 局_Cookie, , #常量2)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +局_余额 = yyjson.取文本 (“data/gold”) +窗口_置状态信息 (索引E, 1, “鱼刺余额:” + 到文本 (局_余额)) + + +.子程序 _时钟1_周期事件 +.局部变量 设置定时关闭, 文本型 +.局部变量 动态时间, 文本型 +.局部变量 设置定时开始, 文本型 + +设置定时开始 = 删首尾空 (编辑框_时.内容) + “:” + 删首尾空 (编辑框_分.内容) + “:” + 删首尾空 (编辑框_秒.内容) +动态时间 = 时间_格式化 (取现行时间 (), , “hh:mm:ss”, 真) +状态条1.置文本 (1, “[定时脚本]动态时间:” + 动态时间) + + +.如果真 (到整数 (编辑框_分.内容) - 1 = 取分钟 (取现行时间 ())) + .如果真 (全已取crtoken = 假) + _全选_被选择 () + _一键获取兑换csrftoken_被选择 () + 全已取crtoken = 真 + + .如果真结束 + +.如果真结束 + +.如果真 (动态时间 = 设置定时开始) + _按钮_启动_被单击 () +.如果真结束 + + +.子程序 _选择框_定时抢购_被单击 + +.如果 (选择框_定时抢购.选中 = 真) + _全选_被选择 () + 全已取crtoken = 假 + 时钟1.时钟周期 = 1000 + 状态条1.置文本 (1, “已开启定时抢购√”) + +.否则 + 全已取crtoken = 真 + 时钟1.时钟周期 = 0 + 状态条1.置文本 (1, “已关闭定时抢购×”) + 工作中 = 假 + 工作线程池EX.销毁 () +.如果结束 + + +.子程序 _开通精英宝典30_被选择 +.局部变量 局_文本, 文本型 +.局部变量 ctnEX, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +ctnEX = 超级列表框1.取标题 (超级列表框1.现行选中项, 5) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +精英二维码30 (ctnEX, 局_Cookie) + + +.子程序 _一键查询兑换记录_被选择 +.局部变量 p, 整数型 + +.计次循环首 (超级列表框1.取表项数 (), p) + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 启动线程 (&子程序查询兑换记录, p - 1, ) + 程序_延时 (100) + .如果真结束 + +.计次循环尾 () + + +.子程序 子程序查询兑换记录 +.参数 索引E +.局部变量 局_文本, 文本型 +.局部变量 局_ctn, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_uid, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 局_余额, 文本型 +.局部变量 zy数, 整数型 +.局部变量 P, 整数型 +.局部变量 F_F, 文本型, , "0" +.局部变量 commodityName, 文本型 +.局部变量 排序E, 文本型 + +全临界.进入 () +局_文本 = 超级列表框1.取标题 (索引E, 1) +局_ctn = 超级列表框1.取标题 (索引E, 5) +全临界.退出 () +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 状态条1.置文本 (0, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_uid = 局_F [2] +局_Cookie = 局_F [3] +窗口_置状态信息 (索引E, 1, “查询兑换记录...”) +' manualID=G4KA4Qnz4LDp7 +str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wgapi/ordnc/activity/peace/exchangeList?manualID=G4KA4Qnz4LDp7&limit=100&offset=0”, , , 局_Cookie, , #常量3)) +' '调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +zy数 = yyjson.取成员数 (“data/list”) +.计次循环首 (zy数, P) + commodityName = yyjson.取文本 (“data/list/” + 到文本 (P - 1) + “/commodityName”) + 加入成员 (F_F, commodityName) +.计次循环尾 () +.如果真 (取数组成员数 (F_F) < 1) + 窗口_置状态信息 (索引E, 2, “无兑换记录”) + 返回 () +.如果真结束 + +排序E = 数组_合并 (F_F, “,”) +窗口_置状态信息 (索引E, 2, “记录*” + 到文本 (取数组成员数 (F_F)) + “:” + 排序E) + + + +.子程序 _充值鱼刺Api_被选择 +.局部变量 返回积分, 文本型 +.局部变量 局_充值账号, 文本型 +.局部变量 局_文本, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 局_Cookie, 文本型 +.局部变量 返回充值前余额, 文本型 +.局部变量 返回充值后余额, 文本型 +.局部变量 冲之前余额, 文本型 +.局部变量 充值后余额, 文本型 + +局_文本 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) +局_充值账号 = 文本_取左边 (局_文本, “----”) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “Cookie格式错误”) + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] + +' 返回积分 = 查积分记录 () +.' 如果真 (返回积分 = “NULL”) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + ' 返回 () +.如果真结束 + +.' 如果真 (到整数 (返回积分) < 10) + ' 窗口_置状态信息 (超级列表框1.现行选中项, 2, “未开通精英手册”) + .' 如果真 (信息框 (“积分:” + 返回积分 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + ' 返回 () + .如果真结束 + +.如果真结束 + + + +返回充值前余额 = 查询鱼刺余额 (局_Cookie) +冲之前余额 = 到文本 (到整数 (返回充值前余额) ÷ 100) +.如果真 (冲之前余额 = “”) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “查询余额失败”) + 返回 () +.如果真结束 + +.如果真 (信息框 (“充值数量:” + 编辑框_充值金额.内容 + “,是否充值?”, #信息图标 + #确认钮 + #取消钮, , ) = #取消钮) + 返回 () +.如果真结束 + + +窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值前鱼刺:” + 冲之前余额 + “,正在充值...”) +程序_延时 (1000) +.如果真 (api充值 (超级列表框1.现行选中项, 局_充值账号) = 真) + .计次循环首 (10, ) + 返回充值后余额 = 查询鱼刺余额 (局_Cookie) + 充值后余额 = 到文本 (到整数 (返回充值后余额) ÷ 100) + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值前鱼刺:” + 冲之前余额 + “,等待充值后余额:” + 充值后余额) + .如果真 (充值后余额 ≠ 冲之前余额) + 跳出循环 () + .如果真结束 + 程序_延时 (1000) + .计次循环尾 () + 窗口_置状态信息 (超级列表框1.现行选中项, 2, “充值成功后鱼刺:” + 充值后余额) + 程序_延时 (1000) + 直接送礼物 (局_Cookie, 超级列表框1.现行选中项) + 程序_延时 (2000) + .计次循环首 (3, ) + 查积分记录 () + .计次循环尾 () +.如果真结束 + + +.子程序 api充值, 逻辑型 +.参数 参_索引, 整数型 +.参数 参_充值账号, 文本型 +.局部变量 timestamp, 文本型 +.局部变量 random, 文本型 +.局部变量 订单时间ordersn, 文本型 +.局部变量 secretKey, 文本型 +.局部变量 sign, 文本型 +.局部变量 body, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 ordersn, 文本型 +.局部变量 bool, 逻辑型 +.局部变量 i, 整数型 +.局部变量 局_充值数量, 文本型 +.局部变量 返回err0, 文本型 +.局部变量 dealer_id, 文本型 + +dealer_id = 删全部空 (编辑框_经销商ID.内容) +secretKey = 删全部空 (编辑框_API密钥.内容) +.如果真 (dealer_id = “”) + 窗口_置状态信息 (参_索引, 2, “请设置经销商ID~!”) + 返回 (假) +.如果真结束 + +.如果真 (secretKey = “”) + 窗口_置状态信息 (参_索引, 2, “请设置API密钥~!”) + 返回 (假) +.如果真结束 + +局_充值数量 = 删全部空 (编辑框_充值金额.内容) +.如果真 (局_充值数量 = “”) + 窗口_置状态信息 (参_索引, 2, “请设置充值数量~!”) + 返回 (假) +.如果真结束 + +timestamp = 时间_取现行时间戳 () +random = 文本_取随机字符 (13, 位或 (1, 2)) +订单时间ordersn = timestamp +sign = 校验_取md5_文本 (secretKey + “dealer_id=” + dealer_id + “&game_id=37¬ify_url=https://www.baidu.com&number=” + 局_充值数量 + “&ordersn=” + 订单时间ordersn + “&random=” + random + “&rid=” + 参_充值账号 + “&rules_id=317&server=默认区服×tamp=” + timestamp + secretKey, 真, 真) + +body = “dealer_id=” + dealer_id + “&game_id=37¬ify_url=https://www.baidu.com&number=” + 局_充值数量 + “&ordersn=” + 订单时间ordersn + “&random=” + random + “&rid=” + 参_充值账号 + “&rules_id=317&server=默认区服×tamp=” + timestamp + “&signature=” + sign + +str = 编码_Utf8到Ansi (网页_访问_对象 (“http://api.hapu.cc/order/createOrder”, 1, body, , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “Content-Type: application/x-www-form-urlencoded”)) +yyjson.清空 () +yyjson.解析 (str) +ordersn = yyjson.取文本 (“ordersn”) +.如果真 (ordersn ≠ “”) + 窗口_置状态信息 (参_索引, 2, “api下单成功”) + 返回 (真) + +.如果真结束 + +窗口_置状态信息 (参_索引, 2, “api下单失败:” + 编码_usc2到ansi (str)) +返回 (假) + +' {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} + +.子程序 查询充值结果, 逻辑型, , {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} +.参数 参_ordersn, 文本型 +.参数 返回err0, 文本型 +.局部变量 str, 文本型 +.局部变量 body, 文本型 +.局部变量 random, 文本型 +.局部变量 timestamp, 文本型 +.局部变量 secretKey, 文本型 +.局部变量 sign, 文本型 +.局部变量 yyjson, json对象 +.局部变量 msg, 文本型 + +timestamp = 时间_取现行时间戳 () +random = 文本_取随机字符 (13, 位或 (1, 2)) +secretKey = “403710daec035bbd94e30cefb337b6ccded16dbf” +sign = 校验_取md5_文本 (secretKey + “dealer_id=129873564&ordersn=” + 参_ordersn + “&random=” + random + “×tamp=” + timestamp + secretKey, 真, 真) + +body = “dealer_id=129873564&ordersn=” + 参_ordersn + “&random=” + random + “×tamp=” + timestamp + “&signature=” + sign +str = 编码_Utf8到Ansi (网页_访问_对象 (“http://api.hapu.cc/order/getorder”, 1, body, , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” + #换行符 + “Content-Type: application/x-www-form-urlencoded”)) +' 调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +msg = yyjson.取文本 (“msg”) +返回err0 = msg +.如果真 (msg = “成功”) + 返回 (真) +.如果真结束 + +返回 (假) + +.子程序 查询鱼刺余额, 文本型, , {"status":200,"msg":"成功","ordersn":"1746864258996","fy_order_id":"20250510160420546837090","money":"0.980"} +.参数 参_Cookie, 文本型 +.局部变量 str, 文本型 +.局部变量 yyjson, json对象 +.局部变量 count, 文本型 + +.计次循环首 (3, ) + str = 编码_Utf8到Ansi (网页_访问_对象 (“https://www.douyu.com/wjapi/nc/exchange/fim?appCode=YJTX”, , , 参_Cookie, , “Host: www.douyu.com” + #换行符 + “Connection: keep-alive” + #换行符 + “sec-ch-ua-platform: ” + #引号 + “Windows” + #引号 + “” + #换行符 + “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/133.0.0.0 Safari/537.36” + #换行符 + “Accept: application/json, text/plain, */*” + #换行符 + “Referer: https://www.douyu.com/member/walletcenter”)) + .如果真 (str ≠ “”) + 跳出循环 () + .如果真结束 + +.计次循环尾 () +调试输出 (str) +yyjson.清空 () +yyjson.解析 (str) +count = yyjson.取文本 (“data/count”) +返回 (count) + + +.子程序 _一键获取兑换csrftoken_被选择 +.局部变量 p, 整数型 +.局部变量 局_句柄, 整数型 +.局部变量 arr0, 整数型, , "0" +.局部变量 i, 整数型 + +工作线程取token.创建 (50) +.计次循环首 (超级列表框1.取表项数 (), p) + 系统_处理事件 () + .如果真 (超级列表框1.取当前状态图片 (p - 1) = 1) + 工作线程取token.投递任务 (&Getcsrf_token3333, p - 1) + ' '启动线程 (&Getcsrf_token3333, p - 1, 局_句柄) + 程序_延时 (10) + + .如果真结束 + +.计次循环尾 () +.循环判断首 () + 程序_延时 (300) +.循环判断尾 (工作线程取token.取_是否完全空闲 () = 假) +全已取crtoken = 真 +程序_延时 (1000) +_全选_被选择 () + +.子程序 Getcsrf_token3333 +.参数 参_索引, 整数型 +.局部变量 局_文本, 文本型 +.局部变量 局_Cookie, 文本型 +.局部变量 局_F, 文本型, , "0" +.局部变量 str, 文本型 +.局部变量 返回CK, 文本型 +.局部变量 csrf_token, 文本型 + +超级列表框1.置状态图片 (参_索引, 0) +局_文本 = 超级列表框1.取标题 (参_索引, 1) +局_F = 分割文本 (局_文本, “----”, ) +.如果真 (取数组成员数 (局_F) < 3) + 全Fast_list.进入写锁 () + 超级列表框1.置标题 (参_索引, 4, “Cookie无效”) + 全Fast_list.退出写锁 () + 返回 () +.如果真结束 + +局_Cookie = 局_F [3] +str = 到文本 (网页_访问_对象 (“https://www.douyu.com/japi/carnival/nc/common/generateCsrf”, 1, , 局_Cookie, 返回CK, #常量10)) +csrf_token = 文本_取出中间文本 (返回CK, “cvl_csrf_token=”, “;”) +状态条1.置文本 (0, “#” + 到文本 (参_索引) + “=>” + csrf_token) +' 调试输出 (csrf_token) +.如果真 (csrf_token ≠ “”) + 全Fast_list.进入写锁 () + 超级列表框1.置标题 (参_索引, 4, “获取csrf_token成功”) + 超级列表框1.置标题 (参_索引, 6, csrf_token) + 全Fast_list.退出写锁 () + 返回 () +.如果真结束 + +全Fast_list.进入写锁 () +超级列表框1.置标题 (参_索引, 4, str) +全Fast_list.退出写锁 () + + +.子程序 _导出Cookie_被选择 + +输入框 (“默认保存在默认在同程序路径下的导出数据目录下,仅输入文件名即可”, “导出文件”, , 导出存放文件名, , ) +.如果真 (导出存放文件名 = “”) + 信息框 (“请输入文件名!”, 0, , ) + 返回 () +.如果真结束 + +保存勾选 () + +.子程序 保存勾选 +.局部变量 导出到文件, 鱼刺类_输出文本 +.局部变量 j_str, 文本型 +.局部变量 开始时间, 整数型 +.局部变量 耗时, 整数型 +.局部变量 N, 整数型 + +开始时间 = 取启动时间 () +状态条1.置文本 (0, “正在导出数据...”) +.计次循环首 (超级列表框1.取表项数 (), N) + .如果真 (超级列表框1.取当前状态图片 (N - 1) = 1) + 全导出X.进入读锁 () + j_str = 超级列表框1.取标题 (N - 1, 1) + 全导出X.退出读锁 () + 导出到文件.写文本行 (j_str, 导出存放文件名, 全目录导出, “.txt”) + .如果真结束 + + 系统_处理事件 () +.计次循环尾 () +导出到文件.关闭所有文件占用 () +耗时 = 取启动时间 () - 开始时间 +状态条1.置文本 (0, “导出数据完成,耗时:” + 到文本 (耗时)) +提示框 (“导出完成”, , , , 1000) + + + +.子程序 _超级列表框1_当前表项被改变 + +