|
60精币
.版本 2
.支持库 spec
.程序集 集_登录
.子程序 登录
.参数 i, 整数型
.局部变量 大漠, 大漠英文版
.局部变量 可运行模拟器序号, 整数型
.局部变量 取当前可运行模拟器序号, 整数型
.局部变量 游戏句柄, 整数型
.局部变量 dm_ret, 整数型
.局部变量 判断启动是否成功, 整数型
.局部变量 游戏福聚丙, 整数型
大漠 = 大漠多线程 [i].大漠
可运行模拟器序号 = 取当前可运行模拟器序号 ()
.计次循环首 (3, )
判断启动是否成功 = 大漠.RunApp (全局_模拟器路径 + “ ” + “index=” + 到文本 (可运行模拟器序号), 1)
辅助延时 (15000, )
.如果真 (判断启动是否成功 = 1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (判断启动是否成功 = 1)
全局_登录状态 = “绑定窗口”
.判断循环首 (真)
.判断开始 (全局_登录状态 = “绑定窗口”)
游戏福聚丙 = 取模拟器游戏层句柄 (i, 可运行模拟器序号)
调试输出 (游戏福聚丙) ' ' 调试已经取出副句柄,但是不执行bindwindowEx 的绑定操作程序就自动调试完毕了
调试输出 (“我在这”)
.如果真 (游戏福聚丙 > 0) ' ' 就是不进这里就自动调试结束了
大漠多线程 [i].游戏句柄 = 游戏福聚丙
dm_ret = 大漠.BindWindowEx (游戏福聚丙, “dx.graphic.opengl”, “windows3”, “windows”, “”, 0)
辅助延时 (500, )
.如果真 (dm_ret = 1)
调试输出 (“绑定成功”)
跳出循环 ()
.如果真结束
.如果真结束
.默认
.判断结束
调试输出 (“我在这1”)
辅助延时 (800, )
.判断循环尾 ()
.如果真结束
.子程序 取模拟器游戏层句柄, 整数型
.参数 可运行模拟器序号, 整数型
.参数 i, 整数型
.局部变量 窗口句柄, 整数型
.局部变量 游戏句柄, 整数型
.局部变量 大漠, 大漠英文版
大漠 = 大漠多线程 [i].大漠
窗口句柄 = 大漠.FindWindow (“LDPlayerMainFrame”, “雷电模拟器-” + 到文本 (可运行模拟器序号))
.如果真 (窗口句柄 > 0)
大漠多线程 [i].窗口句柄 = 窗口句柄
游戏句柄 = 大漠.GetWindow (窗口句柄, 1)
.如果真 (游戏句柄 > 0)
返回 (游戏句柄)
.如果真结束
.如果真结束
返回 (0)
.子程序 取当前可运行模拟器序号, 整数型
.局部变量 a, 整数型
.局部变量 句柄数组, 整数型, , "0"
.局部变量 窗口标题, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 b, 整数型
.局部变量 逻辑值, 逻辑型
窗口_枚举顶级窗口 (句柄数组, “LDPlayerMainFrame”, “雷电模拟器”)
.如果 (取数组成员数 (句柄数组) > 0)
.计次循环首 (取数组成员数 (句柄数组), a)
窗口标题 = 窗口_取标题 (句柄数组 [a])
.如果 (取文本长度 (窗口标题) > 12)
加入成员 (数组, 取文本中间 (窗口标题, 12, 2))
.否则
加入成员 (数组, 取文本中间 (窗口标题, 12, 1))
.如果结束
.计次循环尾 ()
.计次循环首 (全局_多开数量, a)
逻辑值 = 假
.计次循环首 (取数组成员数 (数组), b)
.如果真 (a = 到整数 (数组 [b]))
逻辑值 = 真
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (逻辑值 = 假)
返回 (a)
.如果真结束
.计次循环尾 ()
.否则
返回 (1)
.如果结束
返回 (0)
以上是程序源码 ,跪求各位大佬给看看哪里出了问题。
|
-
|