弹窗助手源码分享

wt2014822

代码还有地方没有完善，但是基本可以用了，分享给大家，希望能有人将代码进一步的完善

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
拦截窗口	窗口规则	0
子线程句柄	整数型
主线程句柄	整数型
托盘	类_托盘
lwck	窗口操作类
互斥体句柄	整数型
许可证	整数型

子程序名	返回值类型	公开	备 注
开始处理
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
句柄数组	整数型		0
次数	整数型
i	整数型
句柄	整数型
子窗口句柄	整数型		0
子窗口句柄1	整数型		0
次数1	整数型

判断循环首 (真)
调试输出 (“当前线程”, 索引)
句柄 ＝ 窗口_取句柄_模糊 (拦截窗口 [索引].标题, 拦截窗口 [索引].类名)
如果 (句柄 ＝ 0)
句柄 ＝ FindWindowA (拦截窗口 [索引].类名, 拦截窗口 [索引].标题)
如果 (句柄 ＝ 0)
句柄 ＝ GetParent (句柄)
如果 (句柄 ＝ 0)
窗口_模糊遍历窗口 (, 拦截窗口 [索引].类名, 拦截窗口 [索引].标题, 句柄数组)
如果真 (取数组成员数 (句柄数组) ＞ 0)
线程进入许可区 (许可证)
计次循环首 (取数组成员数 (句柄数组), i)
调试输出 (句柄数组 [i])
窗口_关闭 (句柄数组 [i])
程序_延时 (200, )
如果真 (句柄数组 [i] ＞ 0)
进程_结束 (窗口_句柄取进程ID (句柄数组 [i]))
. ' 如果真 (句柄数组 [i] ＞ 0)
' 窗口_枚举所有子窗口EX (句柄数组 [i], 子窗口句柄, 拦截窗口 [索引].类名)
. ' 计次循环首 (取数组成员数 (子窗口句柄), 次数)
' 调试输出 (子窗口句柄 [次数])
' 窗口_关闭 (子窗口句柄 [次数])
. ' 如果真 (子窗口句柄 [次数] ＞ 0)
' 进程_结束 (窗口_句柄取进程ID (子窗口句柄 [次数]))
' 程序_延时 (100, )
' 系统_处理事件 ()
. ' 计次循环尾 ()

线程退出许可区 (许可证)
程序_延时 (100, )
系统_处理事件 ()
计次循环尾 ()

窗口_关闭 (句柄)
如果真 (窗口_是否有子窗口 (句柄) ＝ 真)
程序_延时 (200, )
如果真 (句柄 ＞ 0)
窗口_枚举所有子窗口EX (句柄, 子窗口句柄1, 拦截窗口 [索引].类名)
计次循环首 (取数组成员数 (子窗口句柄1), 次数1)
调试输出 (子窗口句柄1 [次数1])
窗口_关闭 (子窗口句柄1 [次数1])
如果真 (子窗口句柄1 [次数1] ＞ 0)
进程_结束 (窗口_句柄取进程ID (子窗口句柄1 [次数1]))
程序_延时 (100, )
系统_处理事件 ()
计次循环尾 ()



窗口_关闭 (句柄)

窗口_关闭 (句柄)
程序_延时 (100, )
系统_处理事件 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
id	整数型

写zc项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”, 取运行目录 () ＋ “\弹窗助手.exe”)
超级列表框1.表项 ＝ 读入文件 (“C:\1.ini”)
窗口_置顶 (窗口1.取窗口句柄 (), )
窗口EX1.样式方案 ＝ 1
窗口EX1.置控制按钮可视 (2, 假)
置托盘图标 ( #托盘图标, “弹窗助手运行中，，，，”)
图片框1.图片 ＝ #光标
许可证 ＝ 线程创建许可证 ()
窗口1.位置 ＝ 2
如果 (打开互斥体 () ＞ 0)
信息框 (“你已经打开这个程序了！”, 0, )
结束 ()
互斥体句柄 ＝ 创建互斥体 ()
主线程句柄 ＝ 线程_启动 (&主线程, , )

子程序名	返回值类型	公开	备 注
主线程

变量名	类 型	静态	数组	备 注
i	整数型
id	整数型

计次循环首 (超级列表框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_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

释放鼠标 ()
时钟1.时钟周期 ＝ 0
图片框1.图片 ＝ #光标
图片框1.鼠标指针 ＝ #光标
_按钮_添加_左键单击 ()

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

外部超级列表框_保存数据 (超级列表框1.取窗口句柄 (), “C:\1.ini”, , )
释放互斥体 (互斥体句柄)
线程_销毁 (主线程句柄)

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_删除选中行_被选择

超级列表框1.删除表项 (超级列表框1.现行选中项)

子程序名	返回值类型	公开	备 注
_窗口1_托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

判断 (操作类型 ＝ 2)
窗口_置状态 (窗口1.取窗口句柄 (), 1)
窗口_置顶 (窗口1.取窗口句柄 (), )
窗口1.位置 ＝ 0
置托盘图标 ( #托盘图标, “弹窗助手”)


判断 (操作类型 ＝ 3)
弹出托盘菜单 (托盘)

子程序名	返回值类型	公开	备 注
_退出_被选择

窗口1.销毁 ()

子程序名	返回值类型	公开	备 注
_打开_被选择

窗口1.激活 ()

子程序名	返回值类型	公开	备 注
_窗口1_位置被改变

如果真 (窗口1.位置 ＝ 2)
置托盘图标 ( #托盘图标, “弹窗助手”)
窗口1.可视 ＝ 假

子程序名	返回值类型	公开	备 注
输出日志
参数名	类 型	参考	可空	数组	备 注
内容	文本型

编辑框_日志.加入文本 (“[” ＋ 时间_到文本 (, 1, 3) ＋ “]->” ＋ 内容 ＋ #换行符 )
返回 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
索引	整数型
句柄数组	整数型		0
i	整数型
jubing	整数型
子窗口句柄	整数型		0
次数	整数型

jubing ＝ FindWindowA (“SGNewsWindow”, “头条新闻”)
' jubing ＝ GetParent (jubing)
调试输出 (“jubing”, jubing)
窗口_关闭 (jubing)
' 窗口_枚举所有子窗口EX (jubing, 子窗口句柄, “QWidget”)
. ' 计次循环首 (取数组成员数 (子窗口句柄), 次数)
' 调试输出 (子窗口句柄 [次数])
' 窗口_关闭 (子窗口句柄 [次数])
. ' 计次循环尾 ()
' 窗口_模糊遍历窗口 (, “QWidget”, “”, 句柄数组)
. ' 计次循环首 (取数组成员数 (句柄数组), i)
' ' 如果真 (句柄数组 [i] ＞ 0)
' 调试输出 (句柄数组 [i])
' ' 窗口_关闭 (句柄数组 [i])
. ' 计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一
exui	(未知支持库)
eAPI	应用接口支持库

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

2896914946

支持，楼主你忘放源码

网络注册会员

试一试效果

ydxwfnl

支持，楼主你忘放源码

xiaoniu1230

感谢分享！支持开源！

FlyMX

没模块是个问题

全村最帅

kyo9766 发表于 2019-5-10 09:19
怎么感觉 这个好像是 拦截弹窗的.....

不要在意这些细节

kyo9766

全村最帅 发表于 2019-5-9 09:15
好嘞,我要开启我的弹窗生涯了

怎么感觉 这个好像是 拦截弹窗的.....

bsliu

不错，论坛有你更精彩

曦月

论坛有你更精彩