某卡网多线程取订单号源码

.版本 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/订单号 你有想要的
编辑框_输出.加入文本 (文本 ＋ #换行符)

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

@wei615