.版本 2 .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 线程池, 鱼刺类_线程池 .子程序 取数据, 整数型 .参数 联系方式, 整数型 .局部变量 局_正则, 正则表达式类 .局部变量 局_匹配数, 整数型 .局部变量 局_计次, 整数型 .局部变量 局_子匹配数, 整数型 .局部变量 源文本, 文本型 .局部变量 索引, 整数型 .循环判断首 () 源文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://www.128faka.com/orderquery?orderid=” ＋ 到文本 (联系方式) ＋ “&querytype=3”)) 源文本 ＝ 子文本替换 (源文本, 取空白文本 (1), “”, , , 真) 源文本 ＝ 子文本替换 (源文本, 字符 (10), “”, , , 真) 源文本 ＝ 子文本替换 (源文本, #引号, “”, , , 真) .循环判断尾 (源文本 ＝ “”) .如果真 (局_正则.创建 (“<h2><ahref=/orderquery/orderid/T\d+target=_blank>(.*?)</a></h2><p>(.*?)</p>”, 源文本, 假, 真, 真, 真) ＝ 假) 返回 (0) .如果真结束 局_匹配数 ＝ 局_正则.取匹配数量 () .如果真 (局_匹配数 ＝ 0) 返回 (0) .如果真结束 局_子匹配数 ＝ 局_正则.取子匹配数量 () .计次循环首 (局_匹配数, 局_计次) 索引 ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1)) 超级列表框1.置标题 (索引, 1, 局_正则.取子匹配文本 (局_计次, 1, )) 超级列表框1.置标题 (索引, 2, 文本_取左边 (局_正则.取子匹配文本 (局_计次, 2, ), “￥”)) 超级列表框1.置标题 (索引, 3, 文本_取出中间文本 (局_正则.取子匹配文本 (局_计次, 2, ), “￥”, “X”)) 超级列表框1.置标题 (索引, 4, 文本_取右边 (局_正则.取子匹配文本 (局_计次, 2, ), “X”)) EmptyWorkingSet (-1) .计次循环尾 () 返回 (局_匹配数) .子程序 _按钮_启动_被单击 按钮_启动.禁止 ＝ 真 编辑框_线程数.禁止 ＝ 真 .如果真 (线程_创建 (&调度线程) ＝ 假) 按钮_启动.禁止 ＝ 假 编辑框_线程数.禁止 ＝ 假 .如果真结束 .子程序 调度线程 .局部变量 计次, 整数型 .如果 (删首尾空 (编辑框_线程数.内容) ＝ “”) 线程池.创建 (10) .否则 线程池.创建 (到整数 (删首尾空 (编辑框_线程数.内容))) .如果结束 .变量循环首 (100000, 999999, 1, 计次) 线程池.投递任务 (&取数据, 计次) .变量循环尾 () .判断循环首 (线程池.取_是否完全空闲 () ＝ 假) 线程池.等待任务动态 () .判断循环尾 () 线程池.销毁 () 按钮_启动.禁止 ＝ 假 编辑框_线程数.禁止 ＝ 假 .子程序 _时钟_线程_周期事件 .局部变量 文本, 文本型 文本 ＝ “当前线程池容量：” ＋ 到文本 (线程池.取_线程池容量 ()) ＋ #换行符 ＋ #换行符 文本 ＝ 文本 ＋ “当前执行线程数：” ＋ 到文本 (线程池.取_执行线程数 ()) ＋ #换行符 ＋ #换行符 文本 ＝ 文本 ＋ “当前队列线程数：” ＋ 到文本 (线程池.取_队列任务数 ()) 标签_线程状态.标题 ＝ 文本 .子程序 _超级列表框1_左键单击表项 .局部变量 文本, 文本型 .局部变量 计次, 整数型 .计次循环首 (超级列表框1.取列数 () － 1, 计次) 文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 计次) .如果真 (计次 ≠ 超级列表框1.取列数 () － 1) 文本 ＝ 文本 ＋ “|” .如果真结束 .计次循环尾 () ' https://www.128faka.com/orderquery/orderid/订单号 你有想要的 编辑框_输出.加入文本 (文本 ＋ #换行符) .子程序 __启动窗口_创建完毕