ThinkChat2.0新版上线,更智能更精彩,支持会话、画图、阅读、搜索等,送10W Token,即刻开启你的AI之旅 广告
麦子模块下使用: ![](https://img.kancloud.cn/82/7a/827adaeddff9e6a2e7fa10b9b9bb6c6a_935x381.png) 语法: ``` 线程_创建许可证() ``` ![](https://img.kancloud.cn/ae/bc/aebc0018f7e0780e05dd4c37d981bec4_579x242.png) 全部变量 添加类: ``` 线程_许可证 线程许可证 ``` # 代码: ``` .版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 DM, 类_大漠 .程序集变量 TS, 类_天使 .程序集变量 句柄数组, 整数型, , "0" .程序集变量 线程_许可证, 线程许可证 .程序集变量 线程句柄, 整数型 .子程序 __启动窗口_创建完毕 插件注册 (取运行目录 () + “\dm.dll”) 寻找窗口 (“client.exe”) .子程序 _组合框1_列表项被选择 .子程序 _按钮_结束_被单击 按钮_开始.禁止 = 假 DM.UnBindWindow () ' 释放的大漠绑定事件 线程_退出许可区 (线程_许可证) 线程_删除许可证 (线程_许可证) 线程_销毁 (线程句柄) .子程序 寻找窗口 .参数 参数集_进程名称, 文本型 .局部变量 进程名数组, 文本型, , "0" .局部变量 进程ID数组, 整数型, , "0" .局部变量 i, 整数型 .局部变量 进程数量, 整数型 进程数量 = 进程_枚举 (进程名数组, 进程ID数组) .计次循环首 (进程数量, i) .如果真 (文本_到小写 (进程名数组 [i]) = 参数集_进程名称) 加入成员 (句柄数组, 进程_ID取窗口句柄 (进程ID数组 [i])) .如果真结束 处理事件 () .计次循环尾 () .如果真 (取数组成员数 (句柄数组) > 0) .计次循环首 (取数组成员数 (句柄数组), i) 组合框1.加入项目 (“第” + 到文本 (i) + “个窗口:” + 到文本 (句柄数组 [i]), ) .计次循环尾 () 组合框1.现行选中项 = 0 .如果真结束 .子程序 _按钮_开始_被单击 .局部变量 Hwnd, 整数型 .局部变量 大漠_返回值, 整数型 按钮_开始.禁止 = 真 Hwnd = 句柄数组 [组合框1.现行选中项 + 1] 大漠_返回值 = DM.BindWindow (Hwnd, “gdi”, “windows”, “windows”, 0) ' //绑定窗口 调试输出 (大漠_返回值) ' 返回1说明没问题 线程_许可证 = 线程_创建许可证 () ' 创建线程许可 线程句柄 = 线程_启动 (&多线程) ' 启动线程 (多线程为封装的函数) .子程序 _按钮_测试_被单击 .子程序 多线程 .局部变量 i, 整数型 .局部变量 U, 整数型 线程_进入许可区 (线程_许可证) ' 多线程函数 U = 1 .判断循环首 (U = 1) DM.KeyPress (#Tab键) 程序_延时 (100) DM.KeyPress (#键1) 程序_延时 (1000) .判断循环尾 () .子程序 _按钮_暂停_被单击 线程_挂起 (线程句柄) .子程序 _按钮_恢复_被单击 线程_恢复 (线程句柄) ```