.版本 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 .如果真结束 .子程序 __启动窗口_可否被关闭, 逻辑型 结束 ()