易语言一键克隆/启动安卓模拟器

.版本 2
.支持库 spec
.支持库 shell

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 目录1, 文本型
.局部变量 目录, 文本型
.局部变量 p, 整数型

_启动窗口.标题 ＝ “逍遥安卓一键多开器”
批量_编辑框_读取配置 (_启动窗口, 取运行目录 () ＋ “设置.ini”)
目录 ＝ 取目录 ()
调试输出 (目录)
.计次循环首 (100, p)
    目录1 ＝ 目录 ＋ “MemuHyperv VMs\MEmu” ＋ “_” ＋ 到文本 (p)
    调试输出 (目录1)
    .如果 (目录_是否存在 (目录1) ＝ 真)
        编辑框_克隆.内容 ＝ 到文本 (p)
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()

.子程序 _按钮_克隆_被单击
.局部变量 目录, 文本型
.局部变量 目录1, 文本型
.局部变量 总数, 整数型
.局部变量 p, 整数型

.如果真 (编辑框_游戏目录.内容 ＝ “”)
    信息框 (“请先选择模拟器目录”, 0, )
    返回 ()
.如果真结束
目录 ＝ 取目录 ()
' D:\Program Files\Microvirt\MEmu\MemuHyperv VMs
' D:\Program Files\Microvirt\MEmu\MemuHyperv VMs\MEmu_1
总数 ＝ 到数值 (编辑框_克隆.内容)
写到文件 (目录 ＋ “kl.bat”, 到字节集 (“MEmuConsole.exe clone MEmu”))
.计次循环首 (总数, p)

    目录1 ＝ 目录 ＋ “MemuHyperv VMs\MEmu” ＋ “_” ＋ 到文本 (p)
    调试输出 (目录1)
    .如果真 (目录_是否存在 (目录1) ＝ 假)
        执行 (4, 目录 ＋ “kl.bat”, , 目录, 1)
        _启动窗口.标题 ＝ “克隆中。。。请勿操作”
        .循环判断首 ()
            程序_延时 (1000)

        .循环判断尾 (目录_是否存在 (目录1) ＝ 假)

    .如果真结束

    _启动窗口.标题 ＝ “已成功克隆” ＋ 到文本 (p) ＋ “个模拟器”
    程序_延时 (1000)
.计次循环尾 ()
信息框 (“克隆完成”, 0, , )
_启动窗口.标题 ＝ “逍遥安卓一键多开器”

.子程序 取目录, 文本型
.局部变量 长度, 整数型
.局部变量 左边位置, 整数型
.局部变量 目录, 文本型
.局部变量 左边长度, 整数型

长度 ＝ 取文本长度 (编辑框_游戏目录.内容)
' 调试输出 (长度)
左边位置 ＝ 寻找文本 (编辑框_游戏目录.内容, “MEmu\”, , 假)
' 调试输出 (左边位置)
左边长度 ＝ 取文本长度 (“MEmu”)
' 调试输出 (左边长度)
目录 ＝ 取文本左边 (编辑框_游戏目录.内容, 左边位置 ＋ 左边长度)
调试输出 (目录)
返回 (目录)

.子程序 _按钮_启动_被单击
.局部变量 个数, 整数型
.局部变量 目录, 文本型
.局部变量 目录1, 文本型
.局部变量 p, 整数型
.局部变量 游戏标题, 文本型
.局部变量 目录2, 文本型
.局部变量 o, 整数型, , "0"
.局部变量 n, 整数型

个数 ＝ 到整数 (编辑框_克隆.内容)
目录 ＝ 取目录 ()
.计次循环首 (100, p)
    目录1 ＝ 目录 ＋ “MEmuConsole.exe MEmu” ＋ “_” ＋ 到文本 (p)
    游戏标题 ＝ “- MEmu” ＋ “_” ＋ 到文本 (p)
    ' D:\Program Files\Microvirt\MEmu\MemuHyperv VMs\MEmu
    目录2 ＝ 目录 ＋ “MemuHyperv VMs\MEmu” ＋ “_” ＋ 到文本 (p)
    .如果真 (文件_是否存在 (目录2) ＝ 真)
        运行 (目录1, 假, )
        .如果真 (窗口_枚举子窗口 (, o, “Qt5QWindowIcon”) ≠ 0)
            .计次循环首 (取数组成员数 (o), n)
                .如果真 (文本_取右边 (窗口_取标题 (o [n]), “MEmu_”) ＝ 到文本 (p))
                    跳出循环 ()
                .如果真结束

            .计次循环尾 ()
        .如果真结束

    .如果真结束

.计次循环尾 ()
信息框 (“启动完成”, 0, , )

.子程序 __启动窗口_将被销毁
.局部变量 临时文本, 文本型
.局部变量 临时文本1, 文本型

批量_选择框_保存配置 (_启动窗口, 取运行目录 () ＋ “设置.ini”, )
批量_编辑框_保存配置 (_启动窗口, 取运行目录 () ＋ “设置.ini”, )
置文件属性 (取运行目录 () ＋ “设置.ini”, 2)

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框2.可视 ＝ 假
图片框1.可视 ＝ 真

.子程序 _图片框2_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框2.可视 ＝ 假
图片框1.可视 ＝ 真

@清山千山万水