易语言游戏脚本开发-录像第12课(多线程模拟-群控操作)
1)一个程序控制多个物体/程序
(2)咱们的群控是,一个程序,多个线程,每个线程对应一个窗口。来模拟操作
.版本 2 .支持库 iext .子程序 线程子程序 .参数 参_句柄, 整数型 .局部变量 局_句柄数组, 整数型, , "0" .局部变量 局_句柄, 整数型 .局部变量 局_账号信息, 文本型 .局部变量 局_索引, 整数型 .判断循环首 (真) 线程_进入许可区 (集_许可证) 集_索引 = 集_索引 + 1 .如果真 (集_索引 > 超级列表框1.取表项数 ()) 线程_退出许可区 (集_许可证) 跳出循环 () .如果真结束 局_索引 = 集_索引 参_句柄 = 到整数 (超级列表框1.取标题 (局_索引 - 1, 0)) 线程_退出许可区 (集_许可证) ' 局_账号信息 = 集_账号数组 [局_索引] ' 调试输出 (局_账号信息) ' 往记事本编辑框上输入内容 窗口_枚举子窗口 (参_句柄, 局_句柄数组, “Edit”) 局_句柄 = 局_句柄数组 [1] ' 是编辑框的句柄,咱们获取到的是记事本主窗口的句柄 窗口_置控件内容 (局_句柄, “我”) 程序_延时 (1000, ) 窗口_置控件内容 (局_句柄, 窗口_取控件内容 (局_句柄) + “爱”) 程序_延时 (1000, ) 窗口_置控件内容 (局_句柄, 窗口_取控件内容 (局_句柄) + “你” + #换行符) 程序_延时 (1000, ) 窗口_置控件内容 (局_句柄, 窗口_取控件内容 (局_句柄) + 到文本 (参_句柄) + 局_账号信息) 程序_延时 (2000, ) .判断循环尾 () .子程序 __启动窗口_创建完毕 集_许可证 = 线程_创建许可证 () ' 加入成员 (集_账号数组, “账号1|密码1”) ' 加入成员 (集_账号数组, “账号2|密码2”) ' 加入成员 (集_账号数组, “账号3|密码3”) ' 加入成员 (集_账号数组, “账号4|密码4”) ' 加入成员 (集_账号数组, “账号5|密码5”) ' 加入成员 (集_账号数组, “账号6|密码6”) ' 加入成员 (集_账号数组, “账号7|密码7”) ' 加入成员 (集_账号数组, “账号8|密码8”) ' 加入成员 (集_账号数组, “账号9|密码9”) ' 加入成员 (集_账号数组, “账号10|密码10”)