帮忙写个多线程例子

已注销664463

5个线程就行了，然后可以批量访问网页就好

蕉仔

1. .版本 2
   
2. .支持库 EThread
   
3. .支持库 iext
   
4. .支持库 spec
   
5. 
   
6. .程序集 窗口程序集_窗口1
   
7. .程序集变量 线程池, 鱼刺类_线程池Ex
   
8. .程序集变量 许可证, 鱼刺类_临界许可
   
9. .程序集变量 线程, 鱼刺类_线程操作
   
10. 
    
11. .子程序 _窗口1_创建完毕
    
12. 
    
13. 
    
14. 
    
15. .子程序 _按钮_开始_被单击
    
16. 
    
17. 启动线程 (&主线程, , )
    
18. 
    
19. .子程序 主线程
    
20. .局部变量 执行数量, 整数型
    
21. .局部变量 并发线程, 整数型
    
22. .局部变量 当前任务数, 整数型
    
23. .局部变量 int, 整数型
    
24. .局部变量 可用线程, 整数型
    
25. .局部变量 投递计次, 整数型
    
26. .局部变量 局_索引, 整数型
    
27. .局部变量 队列线程数, 整数型
    
28. 
    
29. .如果真 (编辑框_总任务.内容 ＝ “”)
    
30.     信息框 (“请输入总任务数”, 64, , )
    
31.     返回 ()
    
32. .如果真结束
    
33. .如果真 (编辑框_线程.内容 ＝ “”)
    
34.     信息框 (“请输入并发线程数”, 64, , )
    
35.     返回 ()
    
36. .如果真结束
    
37. 超级列表框1.全部删除 ()
    
38. 按钮_开始.禁止 ＝ 真
    
39. 许可证.进入 ()
    
40. 并发线程 ＝ 到整数 (编辑框_线程.内容)
    
41. 许可证.退出 ()
    
42. 执行数量 ＝ 到整数 (编辑框_总任务.内容)
    
43. 当前任务数 ＝ 执行数量
    
44. 
    
45. .如果真 (取反 (线程池.创建 (并发线程, 并发线程, )))
    
46.     信息框 (“线程池创建失败!”, 64, , )
    
47.     返回 ()
    
48. .如果真结束
    
49. 投递计次 ＝ 0
    
50. .判断循环首 (投递计次 ＜ 执行数量)
    
51.     可用线程 ＝ 线程池.取_空闲线程数 ()
    
52.     队列线程数 ＝ 线程池.取_队列任务数 ()
    
53.     调试输出 (“空闲数量---” ＋ 到文本 (可用线程))
    
54.     调试输出 (“队列线程数---” ＋ 到文本 (队列线程数))
    
55.     .如果真 (可用线程 ＞ 0)
    
56.         int ＝ 执行数量 － 投递计次
    
57.     .如果真结束
    
58.     .如果真 (int ＞ 可用线程)
    
59.         int ＝ 可用线程
    
60.     .如果真结束
    
61.     .计次循环首 (int, )
    
62.         ' int ＝ int ＋ 1
    
63. 
    
64.         ' 超级列表框1.插入表项 (-1, 到文本 (int), , , , )
    
65.         ' 超级列表框1.保证显示 (int － 1)
    
66.         线程池.投递任务 (&子线程, 局_索引, )
    
67.         投递计次 ＝ 投递计次 ＋ 1
    
68.         程序_延时 (20, )
    
69.     .计次循环尾 ()
    
70.     处理事件 ()
    
71.     .如果真 (线程池.等待任务动态 (, ) ＝ 假)  ' 超时或线程池被销毁返回假。（
    
72.         跳出循环 ()
    
73.     .如果真结束
    
74. 
    
75. .判断循环尾 ()
    
76. 
    
77. .判断循环首 (线程池.取_是否空闲 () ＝ 假)  ' 线程池处于彻底空闲状态，没有任何任务在执行。
    
78.     处理事件 ()
    
79.     .如果真 (线程池.取_状态 () ＝ 0)  ' 0=未启动，1=正在工作，2=正在创建，3=正在销毁。
    
80.         跳出循环 ()
    
81.     .如果真结束
    
82.     ' 编辑框_运行日志.加入文本 (现行时间 ＋ “等待线程结束，，，” ＋ #换行符)
    
83.     程序_延时 (3, 1)
    
84. .判断循环尾 ()
    
85. 线程池.销毁 ()
    
86. 按钮_开始.禁止 ＝ 假
    
87. 信息框 (“运行完毕!”, 64, , )
    
88. 
    
89. 
    
90. .子程序 子线程
    
91. .参数 n, 整数型
    
92. .局部变量 sy, 整数型
    
93. .局部变量 状态码, 整数型
    
94. .局部变量 Account, 文本型
    
95. .局部变量 Password, 文本型
    
96. .局部变量 Name, 文本型
    
97. .局部变量 Sfz, 文本型
    
98. 
    
99. 许可证.进入 ()
    
100. sy ＝ 超级列表框1.插入表项 (, , , , , )
     
101. Account ＝ 文本_取随机字符 (15, 2)
     
102. Password ＝ 文本_取随机字符 (12, 2)
     
103. Name ＝ 文本_取随机汉字 (3, 0)
     
104. 
     
105. 超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
     
106. 超级列表框1.置标题 (sy, 1, Account)
     
107. 超级列表框1.置标题 (sy, 2, Password)
     
108. 超级列表框1.置标题 (sy, 3, Name)
     
109. 超级列表框1.置标题 (sy, 4, “123123”)
     
110. 超级列表框1.置标题 (sy, 5, “等待中...”)
     
111. 许可证.退出 ()
     
112. 状态码 ＝ 1
     
113. 
     
114. 状态码 ＝ 访问百度 ()
     
115. 
     
116. 调试输出 (状态码)
     
117. .如果真 (状态码 ＝ 200)
     
118. 
     
119.     超级列表框1.置标题 (sy, 5, “注册成功”)
     
120. .如果真结束
     
121. 
     
122. 
     
123. 
     
124. 
     
125. 
     
126. 
     
127. 
     
128. 
     
129. .子程序 访问百度, 整数型, 公开
     
130. .局部变量 状态码, 整数型
     
131. 
     
132. 网页_访问_对象 (“https://www.baidu.com/”, , , , , , , 状态码, , , , , , , , , )
     
133. 返回 (状态码)
     
134. 
     

复制代码

二毛2021

https://bbs.125.la/forum.php?mod=viewthread&tid=14644309
用鱼刺作者的例子，或者看上面的帖子

liantan

https://bbs.125.la/thread-13885382-1-1.html
例子。

Wxxxxx

真是我需要的多线程 谢谢楼主。。。。。。。。