多线程求助

mic2011

自己弄了的个 不好使  跪求例子   

p5nr2o

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

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

.如果 (按钮9.标题 ＝ “巡检关闭订单”)
    停止 ＝ 假
    按钮9.标题 ＝ “停止巡检”
    启动线程 (&巡检, , )

.否则

    按钮9.标题 ＝ “巡检关闭订单”
    停止 ＝ 真
.如果结束


.子程序 巡检
.局部变量 i, 整数型
.局部变量 网址, 文本型
.局部变量 cookie, 文本型
.局部变量 结果, 字节集
.局部变量 返回结果, 文本型
.局部变量 局_正则2, 正则表达式类


.判断循环首 (停止 ＝ 假)
    .计次循环首 (超级列表框1.取表项数 (), i)
        商品id ＝ 超级列表框1.取标题 (索引, 1)
        调试输出 (商品id)

        超级列表框1.置标题 (索引, 3, 商品id)
        ' 超级列表框1.置标题 (正在执行线程 － 1, 3, 到文本 (已执行线程))
        网址 ＝ “https://trade.taobao.com/trade/detail/e_ticket_trade_item_detail.htm?spm=a1z09.1.0.0.46bd3606m05WyU&bizOrderId=” ＋ 商品id
        cookie ＝ 编辑框1.内容
        结果 ＝ 网页_访问_对象 (网址, 1, , cookie, , , , , , , , , , , , , )
        返回结果 ＝ 到文本 (结果)
        ' 调试输出 (返回结果)
        局_正则2.创建 (#常量6, 返回结果, 假, 假, 真, 真)
        ' 调试输出 (商品id ＋ “----” ＋ 局_正则2.取子匹配文本 (1, 1))
        超级列表框1.置标题 (索引, 9, 局_正则2.取子匹配文本 (1, 1))
        调试输出 (到文本 (索引))
        索引 ＝ 索引 ＋ 1
        正在执行线程 ＝ 正在执行线程 － 1
        ' 处理事件 ()
        延时 (100)
    .计次循环尾 ()

.判断循环尾 ()

廿六

不会

火威网络

如何多线程.e (1003.52 KB, 下载次数: 1)

2019-8-14 19:30 上传

点击文件名下载附件

火威网络

  

子程序名	返回值类型	公开	备 注
线程配置

如果真 (超级列表框1.取表项数 () ＝ 0)
返回 ()
循环判断首 ()
判断 (线程数 ＜ 5)
正在执行线程 ＝ 正在执行线程 ＋ 1
启动线程 (&巡检, , )
程序_延时 (1, 1)

循环判断尾 (正在执行线程 ≤ 超级列表框1.取表项数 ())

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 线程配置<br /> <br /> .如果真 (超级列表框1.取表项数 () ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .循环判断首 ()<br />     .判断开始 (线程数 ＜ 5)<br />         正在执行线程 ＝ 正在执行线程 ＋ 1<br />         启动线程 (&巡检, , )<br />     .默认<br />         程序_延时 (1, 1)<br />     .判断结束<br /> <br /> .循环判断尾 (正在执行线程 ≤ 超级列表框1.取表项数 ())

------------------
刚这里写错了。