大漠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)

@csyloveyj