|
代码还有地方没有完善,但是基本可以用了,分享给大家,希望能有人将代码进一步的完善
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_窗口1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 拦截窗口 | 窗口规则 | 0 | 子线程句柄 | 整数型 | | 主线程句柄 | 整数型 | | 托盘 | 类_托盘 | | lwck | 窗口操作类 | | 互斥体句柄 | 整数型 | | 许可证 | 整数型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 句柄数组 | 整数型 | | 0 | 次数 | 整数型 | | | i | 整数型 | | | 句柄 | 整数型 | | | 子窗口句柄 | 整数型 | | 0 | 子窗口句柄1 | 整数型 | | 0 | 次数1 | 整数型 | | | 判断循环首 (真)调试输出 (“当前线程”, 索引 )句柄 = 窗口_取句柄_模糊 (拦截窗口 [索引 ].标题, 拦截窗口 [索引 ].类名 )如果 (句柄 = 0 )句柄 = FindWindowA (拦截窗口 [索引 ].类名, 拦截窗口 [索引 ].标题 )如果 (句柄 = 0 )句柄 = GetParent (句柄 )如果 (句柄 = 0 )窗口_模糊遍历窗口 (, 拦截窗口 [索引 ].类名, 拦截窗口 [索引 ].标题, 句柄数组 )如果真 (取数组成员数 (句柄数组 ) > 0 )线程进入许可区 (许可证 )计次循环首 (取数组成员数 (句柄数组 ), i )调试输出 (句柄数组 [i ])窗口_关闭 (句柄数组 [i ])程序_延时 (200, )如果真 (句柄数组 [i ] > 0 )进程_结束 (窗口_句柄取进程ID (句柄数组 [i ])) . . . . 线程退出许可区 (许可证)程序_延时 (100, )系统_处理事件 ()计次循环尾 ()窗口_关闭 (句柄 )如果真 (窗口_是否有子窗口 (句柄 ) = 真)程序_延时 (200, )如果真 (句柄 > 0 )窗口_枚举所有子窗口EX (句柄, 子窗口句柄1, 拦截窗口 [索引 ].类名 )计次循环首 (取数组成员数 (子窗口句柄1 ), 次数1 )调试输出 (子窗口句柄1 [次数1 ])窗口_关闭 (子窗口句柄1 [次数1 ])如果真 (子窗口句柄1 [次数1 ] > 0 )进程_结束 (窗口_句柄取进程ID (子窗口句柄1 [次数1 ])) 程序_延时 (100, )系统_处理事件 ()计次循环尾 ()窗口_关闭 (句柄 )窗口_关闭 (句柄 )程序_延时 (100, )系统_处理事件 ()判断循环尾 ()写zc项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”, 取运行目录 () + “\弹窗助手.exe”)超级列表框1.表项 = 读入文件 (“C:\1.ini”)窗口_置顶 (窗口1. 取窗口句柄 (), )窗口EX1.样式方案 = 1 窗口EX1. 置控制按钮可视 (2, 假)置托盘图标 ( #托盘图标, “弹窗助手运行中,,,,”)图片框1.图片 = #光标 许可证 = 线程创建许可证 ()窗口1.位置 = 2 如果 (打开互斥体 () > 0 )信息框 (“你已经打开这个程序了!”, 0, )结束 ()互斥体句柄 = 创建互斥体 ()主线程句柄 = 线程_启动 (&主线程, , )计次循环首 (超级列表框1. 取表项数 (), i )重定义数组 (拦截窗口, 假, 取数组成员数 (拦截窗口 ) + 1 )拦截窗口 [i ].标题 = 超级列表框1. 取标题 (i - 1, 0 )拦截窗口 [i ].类名 = 超级列表框1. 取标题 (i - 1, 1 )拦截窗口 [i ].宽 = 到整数 (超级列表框1. 取标题 (i - 1, 2 )) 拦截窗口 [i ].高 = 到整数 (超级列表框1. 取标题 (i - 1, 3 )) 子线程句柄 = 线程_启动 (&开始处理, i, id )程序_延时 (200, ) 计次循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | i | 整数型 | | | 索引 | 整数型 | | | 要插入的文本 | 文本型 | | | 文本数组 | 文本型 | | 0 | 线程_销毁 (主线程句柄 )如果真 (编辑框_类名.内容 ≠ “”)要插入的文本 = 编辑框_标题.内容 + “----” + 编辑框_类名.内容 + “----” + 编辑框_宽.内容 + “----” + 编辑框_高.内容 文本数组 = 分割文本 (要插入的文本, “----”, )索引 = 超级列表框1. 插入表项 (超级列表框1. 取表项数 () + 1, , , , , )超级列表框1. 置标题 (索引, 0, 文本数组 [1 ])超级列表框1. 置标题 (索引, 1, 文本数组 [2 ])超级列表框1. 置标题 (索引, 2, 文本数组 [3 ])超级列表框1. 置标题 (索引, 3, 文本数组 [4 ])线程_启动 (&主线程, , )|
_图片框1_鼠标左键被按下 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
图片框1.鼠标指针 = #光标 图片框1.图片 = { }捕获鼠标 (图片框1. 取窗口句柄 ()) 时钟1.时钟周期 = 300 变量名 | 类 型 | 静态 | 数组 | 备 注 | 句柄 | 整数型 | | | 矩形 | 精易_矩形 | | |
句柄 = 取鼠标所在窗口句柄 ()窗口_画矩形 (句柄, , , 真)编辑框_句柄.内容 = 到文本 (句柄 )编辑框_标题.内容 = 窗口_取标题 (句柄 )编辑框_类名.内容 = 窗口_取类名 (句柄 )矩形 = 窗口_取矩形 (句柄 )编辑框_宽.内容 = 到文本 (矩形.右边 - 矩形.左边 )编辑框_高.内容 = 到文本 (矩形.底边 - 矩形.顶边 )图片框1.鼠标指针 = #光标 |
_图片框1_鼠标左键被放开 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | | 释放鼠标 ()时钟1.时钟周期 = 0 图片框1.图片 = #光标 图片框1.鼠标指针 = #光标 _按钮_添加_左键单击 ()外部超级列表框_保存数据 (超级列表框1. 取窗口句柄 (), “C:\1.ini”, , )释放互斥体 (互斥体句柄 )线程_销毁 (主线程句柄 )弹出菜单 (菜单, , )超级列表框1. 删除表项 (超级列表框1.现行选中项 )判断 (操作类型 = 2 )窗口_置状态 (窗口1. 取窗口句柄 (), 1 )窗口_置顶 (窗口1. 取窗口句柄 (), )窗口1.位置 = 0 置托盘图标 ( #托盘图标, “弹窗助手”)判断 (操作类型 = 3 )弹出托盘菜单 (托盘 )窗口1. 销毁 ()窗口1. 激活 ()如果真 (窗口1.位置 = 2 )置托盘图标 ( #托盘图标, “弹窗助手”)窗口1.可视 = 假 编辑框_日志. 加入文本 (“[” + 时间_到文本 (, 1, 3 ) + “]->” + 内容 + #换行符 )返回 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 索引 | 整数型 | | | 句柄数组 | 整数型 | | 0 | i | 整数型 | | | jubing | 整数型 | | | 子窗口句柄 | 整数型 | | 0 | 次数 | 整数型 | | |
jubing = FindWindowA (“SGNewsWindow”, “头条新闻”) 调试输出 (“jubing”, jubing )窗口_关闭 (jubing ) . . . .
|
-
-
弹窗助手.e
1.14 MB, 下载次数: 62, 下载积分: 精币 -2 枚
评分
-
查看全部评分
|