标签： 多线程例子

.版本 2 .支持库 edroptarget .支持库 iext .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 句柄集, 整数型, , "0" .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 账号文本, 文本型 .局部变量 分割总账号文本, 文本型, , "0" .局部变量 单个账号分割, 文本型, , "0" .局部变量 索引, 整数型 .局部变量 i, 整数型 超级列表框1.全部删除 () 账号文本 ＝ 到文本 (读入文件 (接收到的文件路径)) 分割总账号文本 ＝ 分割文本 (账号文本, #换行符, ) .计次循环首 (取数组成员数 (分割总账号文本), i) 单个账号分割 ＝ 分割文本 (分割总账号文本 [i], “----”, ) .如果 (取数组成员数 (单个账号分割) ≥ 3) 索引 ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 到文本 (i)) 超级列表框1.置标题 (索引, 1, 单个账号分割 [1]) 超级列表框1.置标题 (索引, 2, 单个账号分割 [2]) 超级列表框1.置标题 (索引, 3, 单个账号分割 [3]) .否则 .如果结束 .计次循环尾 () .子程序 _按钮_启动_被单击 .局部变量 i, 整数型 重定义数组 (乐玩多线程操作, 假, 超级列表框1.取表项数 ()) 全局_多开数量 ＝ 到整数 (编辑框_多开数量.内容) .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.现行选中项 ＝ i － 1 超级列表框1.获取焦点 () .如果 (启动线程 (&窗口线程, i, 乐玩多线程操作 [i].线程句柄) ＝ 真) 全局_线程数量 ＝ 全局_线程数量 ＋ 1 .否则 调试输出 (“线程：” ＋ 到文本 (i) ＋ “启动失败”) .如果结束 .判断循环首 (真) .如果真 (全局_线程数量 ＜ 全局_多开数量) 跳出循环 () .如果真结束 超级延时 (1000) .判断循环尾 () 超级延时 (1000) .计次循环尾 () 信息框 (“全部完成！”, 0, , ) .子程序 窗口线程 .参数 i, 整数型 .局部变量 子窗口句柄, 整数型 ' 线程初始化COM库 () ' 线程创建许可证 () ' 乐玩多线程操作 [i].lw.基本_取全局路径 () ' 乐玩多线程操作 [i].lw.文字_置字库 (0, “多线程字库.txt”) 调试输出 (i) 乐玩多线程操作 [i].进程ID ＝ 进程_创建 (“C:\Windows\System32\notepad.exe”, , , , , , , ) .如果真 (乐玩多线程操作 [i].进程ID ＞ 0) 乐玩多线程操作 [i].窗口句柄 ＝ 进程_ID取窗口句柄 (乐玩多线程操作 [i].进程ID, “无标题 - 记事本”, “Notepad”, ) 调试输出 (乐玩多线程操作 [i].窗口句柄) .如果真 (乐玩多线程操作 [i].窗口句柄 ＞ 0) 子窗口句柄 ＝ 乐玩多线程操作 [i].lwck.取子窗口 (乐玩多线程操作 [i].窗口句柄, 1) 调试输出 (子窗口句柄) 超级列表框1.置标题 (i － 1, 4, 到文本 (子窗口句柄)) .如果真 (子窗口句柄 ＞ 0) .如果真 (乐玩多线程操作 [i].lw.后台_绑定 (子窗口句柄, 3, 2, 2, , 0)) .计次循环首 (1, ) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “输入账号：” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符) 超级列表框1.置标题 (i － 1, 5, “账号输入”) 超级延时 (1000) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “输入密码：” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符) 超级列表框1.置标题 (i － 1, 5, “密码输入”) 超级延时 (1000) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “大区选择：” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ #换行符) 超级列表框1.置标题 (i － 1, 5, “大区选择”) 超级延时 (1000) 超级列表框1.置标题 (i － 1, 5, “完成”) 超级延时 (1000) .计次循环尾 () .如果真结束 .如果真结束 .如果真结束 进程_结束 (乐玩多线程操作 [i].进程ID) 全局_线程数量 ＝ 全局_线程数量 － 1 .如果真结束 .子程序 __启动窗口_可否被关闭, 逻辑型 结束 ()

.版本 2 .支持库 EThread .支持库 iext .子程序 __启动窗口_将被销毁 强制结束线程 (母线程_句柄) ' 在窗口结束前 最好是销毁掉，别占用到系统的内存空间 删除进入许可证 (全局_线程操作许可证) .子程序 _按钮_开始操作_被单击 超级列表框.全部删除 () Amount ＝ 到整数 (编辑框_总数.内容) Thred_amount ＝ 到整数 (编辑框_线程个数.内容) .如果真 (Thred_amount ＞ Amount) ' 判断单次 启动子线程是否大于 总数量 信息框 (“线程数量不能大于总数量！”, #警告图标, “提示”, ) 返回 () .如果真结束 连续赋值 (真, 编辑框_总数.禁止, 编辑框_线程个数.禁止, 按钮_开始操作.禁止) 连续赋值 (假, 按钮_暂停.禁止, 按钮_停止.禁止) 全局_线程动作 ＝ -1 全局_子线程完成个数 ＝ 0 启动线程 (&母线程, , 母线程_句柄) .子程序 母线程, , , 控制子线程 启动、暂停、继续、停止、等 .局部变量 i, 整数型 .局部变量 临时句柄, 整数型 清除数组 (记录_句柄) ' 清楚记录的 子线程 句柄 .计次循环首 (Amount, i) 进入许可区 (全局_线程操作许可证) 超级列表框.插入表项 (, 到文本 (i), , , , ) 退出许可区 (全局_线程操作许可证) .计次循环尾 () i ＝ 0 ' 置0 .判断循环首 (i ＜ Amount) ' 判断i值是否小于母线程的总数量 ' 能进入近来就是代表i还是小于的 ' 继续执行 子线程的启动操作 进入许可区 (全局_线程操作许可证) 超级列表框.保证显示 (i) 超级列表框.现行选中项 ＝ i 退出许可区 (全局_线程操作许可证) i ＝ i ＋ 1 启动线程 (&子线程, i, 临时句柄) ' 传入操作索引 加入成员 (记录_句柄, 临时句柄) ' 把启动的 子线程 句柄加入到数组里面 ！！在子线程操作结束完后可以通过数组里的下标销毁启动的子线程 延时 (10) ' 线程 里建议用延时 .如果真 (i ％ Thred_amount ＝ 0) ' 判断 单次启动 子线程 操作数量 是否达到，比如 5 个线程操作 ' 达到 单次启动 子线程 操作数量 .判断循环首 (全局_子线程是否继续 ＝ 假) ' 判断 启动的 子线程 是否操作结束 ' 等待启动的 子线程走完 延时 (10) ' 线程 里建议用延时 .判断循环尾 () ' 单次启动 子线程 操作数量 操作完成 全局_子线程是否继续 ＝ 假 全局_子线程完成个数 ＝ 0 处理事件 () .如果真结束 ' 判断用户有没有选择 中断操作 .如果真 (全局_线程动作 ＝ 0) ' 0是暂停 ' 进入暂停 ' 暂停成功 进入许可区 (全局_线程操作许可证) 按钮_暂停.标题 ＝ “暂 停” 按钮_继续.禁止 ＝ 假 退出许可区 (全局_线程操作许可证) .循环判断首 () 延时 (100) ' 线程 里建议用延时 .如果真 (全局_线程动作 ＝ 2) ' 2是停止 跳出循环 () .如果真结束 .循环判断尾 (全局_线程动作 ＝ 0) ' 等待用户点击继续 .如果真 (全局_线程动作 ＝ 2) ' 2是停止 跳出循环 () .如果真结束 ' 用户选择了继续 进入许可区 (全局_线程操作许可证) 按钮_暂停.禁止 ＝ 假 退出许可区 (全局_线程操作许可证) 全局_线程动作 ＝ -1 .如果真结束 .如果真 (全局_线程动作 ＝ 2) ' 2是停止 跳出循环 () .如果真结束 .判断循环尾 () 进入许可区 (全局_线程操作许可证) 连续赋值 (假, 编辑框_总数.禁止, 编辑框_线程个数.禁止, 按钮_开始操作.禁止) 连续赋值 (真, 按钮_暂停.禁止, 按钮_继续.禁止, 按钮_停止.禁止) 按钮_停止.标题 ＝ “停 止” 退出许可区 (全局_线程操作许可证) .如果 (i ＝ Amount) 标签2.调用反馈事件 (0, , ) ' 设置的操作数量完成提示 .否则 标签2.调用反馈事件 (i, , ) ' 反馈操作数量提示 .如果结束 强制结束线程 (母线程_句柄) ' 结束本身 .子程序 子线程, , , 子线程 处理数据，比如下载、传输数据到网站、处理本地的一些数据等等哈 .参数 操作索引, 整数型 .局部变量 Rand_Time, 整数型, , , 模拟软件处理的时间 .局部变量 Load_Time, 整数型, , , 本子线程启动的时间 .局部变量 End_Timne, 整数型, , , 本子线程操作结束的时间 ' 调试输出 (“第” ＋ 到文本 (操作索引) ＋ “个线程，启动成功！”) Load_Time ＝ 取启动时间 () ' --------------------------------------------- ' 中间执行代码的过程 置随机数种子 () Rand_Time ＝ 取随机数 (3, 6) × 1000 ' 随机生成一个时间！！！ 只是测试。假如是真实要处理数据的话这里放上对应要处理的代码即可 延时 (Rand_Time) ' 线程 里建议用延时 ' 中间执行的代码结束 ' --------------------------------------------- End_Timne ＝ 取启动时间 () 进入许可区 (全局_线程操作许可证) 超级列表框.置标题 (操作索引 － 1, 1, 到文本 ((End_Timne － Load_Time) ÷ 1000) ＋ “S”) ' 置入线程操作耗时提示 退出许可区 (全局_线程操作许可证) 全局_子线程完成个数 ＝ 全局_子线程完成个数 ＋ 1 .如果真 (全局_子线程完成个数 ％ Thred_amount ＝ 0) ' 判断是否 达到 单次 子线程 的操作数量 全局_子线程是否继续 ＝ 真 .如果真结束 ' 调试输出 (“第” ＋ 到文本 (操作索引) ＋ “个线程，操作结束！”) 强制结束线程 (记录_句柄 [操作索引]) ' 结束本子线程 .子程序 _按钮_暂停_被单击 按钮_暂停.禁止 ＝ 真 按钮_暂停.标题 ＝ “正在暂停” 全局_线程动作 ＝ 0 .子程序 _按钮_继续_被单击 按钮_继续.禁止 ＝ 真 全局_线程动作 ＝ 1 .子程序 _按钮_停止_被单击 连续赋值 (真, 按钮_暂停.禁止, 按钮_继续.禁止, 按钮_停止.禁止) 按钮_停止.标题 ＝ “正在停止 ” 全局_线程动作 ＝ 2 .子程序 _标签2_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .如果 (参数一 ＝ 0) 信息框 (到文本 (Amount) ＋ “个数量操作完成”, #信息图标, “提示”, ) .否则 信息框 (“完成” ＋ 到文本 (参数一) ＋ “个数据操作”, #信息图标, “提示”, ) .如果结束 .子程序 _编辑框_线程个数_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 返回 (假) .子程序 _编辑框_总数_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 返回 (假)