[Erlang] 纯文本查看 复制代码
.版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 i, 整数型
窗口_模糊遍历窗口 (, “”, “”, 句柄信息)
.计次循环首 (到整数 (编辑框1.内容), i)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
超级列表框1.置标题 (i － 1, 2, 到文本 (句柄信息 ))
线程_启动2 (&主线程, i, 多线程 .线程句柄, , , , , , , )
超级列表框1.置标题 (i － 1, 1, 到文本 (多线程 .线程句柄))
调试输出 (多线程 .线程句柄)
辅助延时 (3000)
.计次循环尾 ()
.子程序 主线程
.参数 i, 整数型
初始化COM库 ()
多线程 .大漠E.创建对象 ()
' 调试输出 (多线程 .大漠E.Ver ())
_绑定游戏窗口_被单击 (i)
辅助延时 (100)
.子程序 _绑定游戏窗口_被单击
.参数 i, 整数型
.局部变量 返回, 整数型
.局部变量 hwnd, 整数型
hwnd ＝ 句柄信息
' 调试输出 (hwnd)
多线程 .窗口句柄 ＝ hwnd
' 调试输出 (多线程 .窗口句柄)
.计次循环首 (1, i)
返回 ＝ 大漠.BindWindowEx (多线程 .窗口句柄, “gdi”, “dx.mouse.state.api|dx.mouse.cursor”, “dx.keypad.state.api|dx.keypad.raw.input”, “”, 0)
.如果 (返回 ＝ 1)
' 超级列表框1.置标题 (超级列表框1.现行选中项, 8, “窗口绑定成功”)
调试输出 (多线程 .线程句柄, hwnd, “绑定成功”)
' 辅助延时 (5000)
黄巾之乱 (i)
.否则
调试输出 (hwnd, “绑定失败”)
.如果结束
.计次循环尾 ()