自写雷电模拟器游戏脚本开源

Uarala

源码11兆直接上传不了。就放网盘了https://share.weiyun.com/DIq0A2OH。调用了雷电模拟器、大漠插件图色识别脚本。插件跟模块自己论坛找吧，我就不发了

  

子程序名	返回值类型	公开	备 注
_启动全部_被单击

变量名	类 型	静态	数组	备 注
hwnds	文本型
句柄列表	文本型		0
i	整数型
hwnd	整数型
窗口数量	文本型
是否绑定	整数型
路径	文本型

' 置入代码 (#VM开始)
窗口数量 ＝ 全局大漠.ReadIni (“MIR4窗口数量”, “启动数量”, “MIR4窗口数量.ini”)
路径 ＝ 全局大漠.ReadIni (“MIR4路径”, “路径”, “MIR4路径.ini”)
如果真 (文本_是否为数字 (窗口数量) ＝ 真 且 到整数 (窗口数量) ≥ 1)
计次循环首 (到整数 (窗口数量), i)  ' 取数组成员数 (句柄列表)
雷电_启动模拟器进入应用 (编辑框1.内容, i, #app包名 )
程序_延时 (2000, )
_排列_被选择 ()
_启动窗口.透明标签3.标题 ＝ “正在启动第 [” ＋ 到文本 (i) ＋ “] 个模拟器”
程序_延时 (1000, )
计次循环尾 ()
计次循环首 (45, i)
_启动窗口.透明标签3.标题 ＝ “加载45秒，倒计时 [” ＋ 到文本 (45 － i) ＋ “秒] ”
程序_延时 (1000, )
计次循环尾 ()
_启动窗口.透明标签3.标题 ＝ “”
_启动窗口.透明标签3.可视 ＝ 假
线程_启动 (&_有窗口启动_被单击, , )

' ' hwnds ＝ 全局大漠.EnumWindowByProcess (“dnplayer.exe”, “(64)”, “LDPlayerMainFrame”, 1 ＋ 2 ＋ 16 ＋ 32)
' 时钟2.时钟周期 ＝ 1000
' hwnds ＝ 全局大漠.EnumWindowByProcess (“dnplayer.exe”, “TheRender”, “RenderWindow”, 1 ＋ 2 ＋ 16 ＋ 32)
' 句柄列表 ＝ 分割文本 (hwnds, “,”, )
' ' 信息框 (取数组成员数 (句柄列表), 0, , )
. ' 计次循环首 (取数组成员数 (句柄列表), i)
' hwnd ＝ 到整数 (句柄列表 [i])
' ' 是否绑定 ＝ 全局大漠.IsBind (hwnd)
. ' 如果真 (是否绑定 ＝ 0)
' 多线程_启动 (hwnd)

. ' 计次循环尾 ()
' 置入代码 (#VM结束)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _启动全部_被单击<br /> .局部变量 hwnds, 文本型<br /> .局部变量 句柄列表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 hwnd, 整数型<br /> .局部变量 窗口数量, 文本型<br /> .局部变量 是否绑定, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> ' 置入代码 (#VM开始)<br /> <br /> 窗口数量 ＝ 全局大漠.ReadIni (“MIR4窗口数量”, “启动数量”, “MIR4窗口数量.ini”)<br /> 路径 ＝ 全局大漠.ReadIni (“MIR4路径”, “路径”, “MIR4路径.ini”)<br /> .如果真 (文本_是否为数字 (窗口数量) ＝ 真 且 到整数 (窗口数量) ≥ 1)<br />     .计次循环首 (到整数 (窗口数量), i)  ' 取数组成员数 (句柄列表)<br />         雷电_启动模拟器进入应用 (编辑框1.内容, i, #app包名)<br />         程序_延时 (2000, )<br />         _排列_被选择 ()<br />         _启动窗口.透明标签3.标题 ＝ “正在启动第 [” ＋ 到文本 (i) ＋ “] 个模拟器”<br />         程序_延时 (1000, )<br />     .计次循环尾 ()<br />     .计次循环首 (45, i)<br />         _启动窗口.透明标签3.标题 ＝ “加载45秒，倒计时 [” ＋ 到文本 (45 － i) ＋ “秒] ”<br />         程序_延时 (1000, )<br />     .计次循环尾 ()<br />     _启动窗口.透明标签3.标题 ＝ “”<br />     _启动窗口.透明标签3.可视 ＝ 假<br />     线程_启动 (&_有窗口启动_被单击, , )<br /> <br /> .如果真结束<br /> <br /> ' ' hwnds ＝ 全局大漠.EnumWindowByProcess (“dnplayer.exe”, “(64)”, “LDPlayerMainFrame”, 1 ＋ 2 ＋ 16 ＋ 32)<br /> ' 时钟2.时钟周期 ＝ 1000<br /> ' hwnds ＝ 全局大漠.EnumWindowByProcess (“dnplayer.exe”, “TheRender”, “RenderWindow”, 1 ＋ 2 ＋ 16 ＋ 32)<br /> ' 句柄列表 ＝ 分割文本 (hwnds, “,”, )<br /> ' ' 信息框 (取数组成员数 (句柄列表), 0, , )<br /> .' 计次循环首 (取数组成员数 (句柄列表), i)<br />     ' hwnd ＝ 到整数 (句柄列表 <i>)<br />     ' ' 是否绑定 ＝ 全局大漠.IsBind (hwnd)<br />     .' 如果真 (是否绑定 ＝ 0)<br />         ' 多线程_启动 (hwnd)<br /> <br />     .如果真结束<br /> <br /> .' 计次循环尾 ()<br /> ' 置入代码 (#VM结束)

wuxiao99

开源精神必须支持~

1170079

感谢分享

小幸福v

谢谢分享，正需要

sunzixian001

开源精神必须支持~

ekefz

好东西啊

zz1596

支持开源~！感谢分享

zhugege0817

看看啊

tangbohu

支持开源~！感谢分享

mowenxing

链接失效了

164677499

有模块吗大佬