请大神给个 多线程的列子

zhanghuan

我写的这个应该单线程，要完成 一个之后才会完成下一个   ，请大神帮忙改一下  改成有多少个QQ就开启多少个线程一起发送，十分感谢

  

子程序名	返回值类型	公开	备 注
群发

变量名	类 型	静态	数组	备 注
回复	文本型		0
随机数	整数型
qq
w
群列表	文本型		0
q

置随机数种子 ()
如果真 (编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)
回复 ＝ 分割文本 (读配置项 (应用目录 ＋ “\配置.ini”, “配置”, “配置”, ), “[分割]”, )
如果真 (取数组成员数 (回复) ＞ 0)
qq ＝ 超级列表框1.取表项数 ()
计次循环首 (到整数 (编辑框5.内容), )
计次循环首 (qq, w)
群列表 ＝ 分割文本 (Api_GetGroupList_A (超级列表框1.取标题 (w － 1, 1)), #换行符, )
计次循环首 (取数组成员数 (群列表), q)
随机数 ＝ 取随机数 (1, 取数组成员数 (回复))
群消息 (超级列表框1.取标题 (w － 1, 1), 群列表 [q], 超级列表框1.取标题 (w － 1, 1), 回复 [随机数])
延迟 (到整数 (编辑框2.内容) × 1000)
计次循环尾 ()
延迟 (到整数 (编辑框3.内容) × 1000)
计次循环尾 ()
计次循环尾 ()
强制结束线程 (线程)
按钮1.标题 ＝ “开始群发”

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 群发<br /> .局部变量 回复, 文本型, , "0"<br /> .局部变量 随机数, 整数型<br /> .局部变量 qq<br /> .局部变量 w<br /> .局部变量 群列表, 文本型, , "0"<br /> .局部变量 q<br /> <br /> 置随机数种子 ()<br /> .如果真 (编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)<br />     回复 ＝ 分割文本 (读配置项 (应用目录 ＋ “\配置.ini”, “配置”, “配置”, ), “[分割]”, )<br />     .如果真 (取数组成员数 (回复) ＞ 0)<br />         qq ＝ 超级列表框1.取表项数 ()<br />         .计次循环首 (到整数 (编辑框5.内容), )<br />             .计次循环首 (qq, w)<br />                 群列表 ＝ 分割文本 (Api_GetGroupList_A (超级列表框1.取标题 (w － 1, 1)), #换行符, )<br />                 .计次循环首 (取数组成员数 (群列表), q)<br />                     随机数 ＝ 取随机数 (1, 取数组成员数 (回复))<br />                     群消息 (超级列表框1.取标题 (w － 1, 1), 群列表 [q], 超级列表框1.取标题 (w － 1, 1), 回复 [随机数])<br /> <br /> <br />                     延迟 (到整数 (编辑框2.内容) × 1000)<br />                 .计次循环尾 ()<br /> <br />                 延迟 (到整数 (编辑框3.内容) × 1000)<br />             .计次循环尾 ()<br /> <br />         .计次循环尾 ()<br /> <br />         强制结束线程 (线程)<br />         按钮1.标题 ＝ “开始群发”

扯谈i

在你执行主程序的那边启动线程 然后传入相关的账号密码 循环启动线程就可以多个线程同时用了 可以参考一下晴空那老吊的教程

扯谈i

启动线程就好了嘛 主要就是传参的问题的

zhanghuan

扯谈i 发表于 2020-1-3 17:28
启动线程就好了嘛 主要就是传参的问题的

我知道呀   我这边需要是多个线程的  不是我这样的写法 我这写法是完成一个之后才会完成下一个的