大漠dm多对象操作的框架源码

.版本 2 .支持库 shellEx .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 dm, 类_大漠插件, , "1", 大漠对象 .程序集变量 dm_main, 类_大漠插件, , , 临时使用 .程序集变量 hwnd, 文本型, , "1", 窗口句柄数组 .程序集变量 线程id, 整数型, , "1", 任务线程ID数组 .程序集变量 i, 整数型, , , 整体数组递归 .程序集变量 热键F8, 整数型, , , F8 .程序集变量 热键F9, 整数型, , , F9 .子程序 __启动窗口_创建完毕 大漠破解_初始化路径 (“d:\”) 热键F8 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键) 热键F9 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键) dm_main.创建 () i = 1 .子程序 _标签1_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .局部变量 hwnd_point, 文本型 .局部变量 hwnd_jieguo, 整数型, , "1" .如果 (参数一 = 热键F8) hwnd_point = 到文本 (dm_main.GetMousePointWindow ()) 数组_寻找数组 (hwnd, hwnd_point, hwnd_jieguo) .如果 (取数组成员数 (hwnd_jieguo) = 1) 重定义数组 (线程id, 真, i) 启动线程 (&主线程, i, 线程id [i]) i = i + 1 .否则 信息框 (“此窗口线程已启动,请勿重复开启!”, 0, , ) .如果结束 .否则 .如果 (参数一 = 热键F9) hwnd_point = 到文本 (dm_main.GetMousePointWindow ()) 数组_寻找数组 (hwnd, hwnd_point, hwnd_jieguo) .如果 (取数组成员数 (hwnd_jieguo) = 1) 信息框 (“此窗口未开启线程,不用关闭!”, 0, , ) .否则 hwnd [hwnd_jieguo [2]] = “-1” 线程_销毁 (线程id [hwnd_jieguo [2]]) 线程id [hwnd_jieguo [2]] = -1 dm [hwnd_jieguo [2]].UnBindWindow () .如果结束 .否则 .如果结束 .如果结束 .子程序 主线程 .参数 参数, 整数型 重定义数组 (hwnd, 真, 参数) 重定义数组 (dm, 真, 参数) dm [参数].创建 () hwnd [参数] = 到文本 (dm [参数].GetMousePointWindow ()) dm [参数].BindWindowEx (到整数 (hwnd [参数]), “gdi2”, “windows”, “windows”, “”, 0) .计次循环首 (1000, ) dm [参数].SendString (到整数 (hwnd [参数]), “asdf” + #换行符) 延迟 (500) .计次循环尾 () .子程序 __启动窗口_将被销毁 撤销热键 (_启动窗口.取窗口句柄 (), 热键F8) 撤销热键 (_启动窗口.取窗口句柄 (), 热键F9)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注