易语言多线程例子源码

.版本 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
.如果真结束


.子程序 __启动窗口_可否被关闭, 逻辑型

结束 ()

@a632243848