多线程 怎么做到

疯牛狂颠

比如 GET 下面URL
https://bbs.125.la/forum.php?mod ... ewthread&fid=81

如何同时访问
https://bbs.125.la/forum.php?mod ... ewthread&fid=82
https://bbs.125.la/forum.php?mod ... ewthread&fid=83
https://bbs.125.la/forum.php?mod ... ewthread&fid=84
https://bbs.125.la/forum.php?mod ... ewthread&fid=85
https://bbs.125.la/forum.php?mod ... ewthread&fid=86

每3秒 重复上面的（同时也在特定条件下 可能添加新的GET 或 减去某条GET）


想好久都不知道思路，望坛友们帮助

734030986

1、开局先建立个许可证

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

集_许可证 ＝ 线程_创建许可证 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_许可证 ＝ 线程_创建许可证 ()

2、写个任务循环

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

计次循环首 (到整数 (编辑框1.内容), )’这个编辑框1就是你要开的线程数量
启动线程 (&子任务线程, , )  ' 有多少线程启动多少次，也不需要传递参数什么的
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .计次循环首 (到整数 (编辑框1.内容), )’这个编辑框1就是你要开的线程数量<br />     启动线程 (&子任务线程, , )  ' 有多少线程启动多少次，也不需要传递参数什么的<br /> .计次循环尾 ()

3、写子任务的代码

  

子程序名	返回值类型	公开	备 注
子任务线程			执行操作子程序

变量名	类 型	静态	数组	备 注
i	整数型

判断循环首 (真)  ' 搞个死循环，保证一直循环下去，然后没任务时再手动跳出
线程_进入许可区 (许可证)  ' 操作控件，要加上许可证
i ＝ 超级列表框1.查找表项 (“等待执行”, , 真, 2)  ' 查找“待执行”的项目，这个等待执行你要自己在加入网页地址到超级列表之后在表项加进去
如果 (i ＝ -1)  ' 找不到...
线程_退出许可区 (许可证)  ' 别忘了结束（跳出循环下面的代码不会执行，所以要提前写）
跳出循环 ()

超级列表框1.置标题 (i, 2, “等待执行 ”)  ' 赶紧把标题改了，要不然一会重复执行

线程_退出许可区 (许可证)  ' 别忘了结束
' ...这里就是主功能实现区了 开始...
超级列表框1.置标题 (i, 2, 选择 (post (超级列表框1.取标题 (i, 1)), “√”, “×”))
' ...这里就是主功能实现区了 结束...
判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子任务线程, , , 执行操作子程序<br /> .局部变量 i, 整数型<br /> <br /> .判断循环首 (真)  ' 搞个死循环，保证一直循环下去，然后没任务时再手动跳出<br /> <br />     线程_进入许可区 (许可证)  ' 操作控件，要加上许可证<br /> <br />     i ＝ 超级列表框1.查找表项 (“等待执行”, , 真, 2)  ' 查找“待执行”的项目，这个等待执行你要自己在加入网页地址到超级列表之后在表项加进去<br /> <br />     .如果 (i ＝ -1)  ' 找不到...<br /> <br />         线程_退出许可区 (许可证)  ' 别忘了结束（跳出循环下面的代码不会执行，所以要提前写）<br />         跳出循环 ()<br /> <br />     .否则<br />         超级列表框1.置标题 (i, 2, “等待执行 ”)  ' 赶紧把标题改了，要不然一会重复执行<br />     .如果结束<br /> <br />     线程_退出许可区 (许可证)  ' 别忘了结束<br /> <br /> <br />     ' ...这里就是主功能实现区了 开始...<br /> <br />     超级列表框1.置标题 (i, 2, 选择 (post (超级列表框1.取标题 (i, 1)), “√”, “×”))<br /> <br />     ' ...这里就是主功能实现区了 结束...<br /> <br /> .判断循环尾 ()

4、写get或者post代码
.版本 2

.子程序 post, 逻辑型, , 比如这是个POST登录的子程序
.参数 number, 文本型

' 略去1000行...
置随机数种子 ()
程序_延时 (取随机数 (10, 100))
返回 (选择 (取随机数 (0, 1) ＝ 0, 假, 真))
' 略去1000行...


5、记得关闭

  

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

' 最后删掉
线程_删除许可证 (许可证)

.版本 2<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> ' 最后删掉<br /> 线程_删除许可证 (许可证)

6、差不多就这样，自己套进去改一下，多线程写法很多，多调试。（这代码我也搬运过来的）


补充内容 (2024-3-22 17:21):
许可证变量，前面的改了 集_许可证  后面的引用“许可证”也改一下，改成“集_许可证”，名字你自己取，意思到了就行了

没事瞎琢磨

论坛下载一个多线程模板 网页访问 往子程序里套，自己理解运行原理才管用

macrokk

https://bbs.125.la/thread-14255363-1-1.html

这个，最简单，之前我就是通过这个学习的

憨憨问号

启动线程启动五次不就可以了

疯牛狂颠

734030986 发表于 2024-3-22 17:19
1、开局先建立个许可证
[e=1].版本 2

  每三分钟循环下面 的流程 ，多线程 是怎么样的写法？
网页访问S(精易论坛的问答求助，第一页所有标题的URL)

存到 超级列表框1
再 取 超级列表框1 标题的URL
网页访问S（标题的URL） ，取到结果是0不操作 ，1就删除当前 标题的URL