完美贴边隐藏源码

路过的死神

最近想做个好看的自用编辑器，我看了论坛上所有贴边隐藏的帖子，最后我还是选择自己做一个
这个完美模拟了QQ的贴边隐藏
会有移动效果，具体的你们自己用用看

  

子程序名	返回值类型	公开	备 注
贴边隐藏			模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下
参数名	类 型	参考	可空	数组	备 注
窗口名称	窗口				窗口名称，如_启动窗口，非窗口句柄

判断 (窗口名称.左边 ＜ 2 且 窗口名称.左边 ≠ 0 － 窗口名称.宽度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())
窗口名称.移动 (0 － 窗口名称.宽度 ＋ 1, , , )
输出调试文本 (“左超”)
判断 (窗口名称.左边 ＋ 窗口名称.宽度 ≥ 取屏幕宽度 () 且 窗口名称.左边 ≠ 取屏幕宽度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())
输出调试文本 (“右超”)
窗口名称.移动 (取屏幕宽度 () － 1, , , )
判断 (窗口名称.顶边 ≤ 1 且 窗口名称.顶边 ≠ 0 － 窗口名称.高度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())
窗口名称.移动 (, 0 － 窗口名称.高度 ＋ 1, , )
输出调试文本 (“上超”)
判断 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 () 且 窗口名称.顶边 ≠ 取屏幕高度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())
窗口名称.移动 (, 取屏幕高度 () － 1, , )
输出调试文本 (“下超”)
判断 (取鼠标水平位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
判断循环首 (窗口名称.左边 ≤ 0)
窗口名称.移动 (窗口名称.左边 ＋ 1, , , )
判断循环尾 ()
输出调试文本 (“左到”)
判断 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
判断循环首 (窗口名称.左边 ＋ 窗口名称.宽度 ＞ 取屏幕宽度 ())
窗口名称.移动 (窗口名称.左边 － 1, , , )
判断循环尾 ()
输出调试文本 (“右到”)
判断 (取鼠标垂直位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
判断循环首 (窗口名称.顶边 ≤ 0)
窗口名称.移动 (, 窗口名称.顶边 ＋ 1, , )
判断循环尾 ()
输出调试文本 (“上到”)
判断 (取鼠标垂直位置 () ＞ 取屏幕高度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
判断循环首 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 ())
窗口名称.移动 (, 窗口名称.顶边 － 1, , )
判断循环尾 ()
输出调试文本 (“下到”)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 贴边隐藏, , , 模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下<br /> .参数 窗口名称, 窗口, , 窗口名称，如_启动窗口，非窗口句柄<br /> <br /> .判断开始 (窗口名称.左边 ＜ 2 且 窗口名称.左边 ≠ 0 － 窗口名称.宽度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())<br />     窗口名称.移动 (0 － 窗口名称.宽度 ＋ 1, , , )<br />     输出调试文本 (“左超”)<br /> .判断 (窗口名称.左边 ＋ 窗口名称.宽度 ≥ 取屏幕宽度 () 且 窗口名称.左边 ≠ 取屏幕宽度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())<br />     输出调试文本 (“右超”)<br />     窗口名称.移动 (取屏幕宽度 () － 1, , , )<br /> .判断 (窗口名称.顶边 ≤ 1 且 窗口名称.顶边 ≠ 0 － 窗口名称.高度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())<br />     窗口名称.移动 (, 0 － 窗口名称.高度 ＋ 1, , )<br />     输出调试文本 (“上超”)<br /> .判断 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 () 且 窗口名称.顶边 ≠ 取屏幕高度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())<br />     窗口名称.移动 (, 取屏幕高度 () － 1, , )<br />     输出调试文本 (“下超”)<br /> .判断 (取鼠标水平位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())<br />     .判断循环首 (窗口名称.左边 ≤ 0)<br />         窗口名称.移动 (窗口名称.左边 ＋ 1, , , )<br />     .判断循环尾 ()<br />     输出调试文本 (“左到”)<br /> .判断 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())<br />     .判断循环首 (窗口名称.左边 ＋ 窗口名称.宽度 ＞ 取屏幕宽度 ())<br />         窗口名称.移动 (窗口名称.左边 － 1, , , )<br />     .判断循环尾 ()<br />     输出调试文本 (“右到”)<br /> .判断 (取鼠标垂直位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())<br />     .判断循环首 (窗口名称.顶边 ≤ 0)<br />         窗口名称.移动 (, 窗口名称.顶边 ＋ 1, , )<br />     .判断循环尾 ()<br />     输出调试文本 (“上到”)<br /> .判断 (取鼠标垂直位置 () ＞ 取屏幕高度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())<br />     .判断循环首 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 ())<br />         窗口名称.移动 (, 窗口名称.顶边 － 1, , )<br />     .判断循环尾 ()<br />     输出调试文本 (“下到”)<br /> .默认<br /> <br /> .判断结束

至于贴下边那个，是我故意的，上面是纯源码，我发布的模块是没有下边贴边的（没有谁喜欢放下面吧？）




补充内容 (2018-12-12 15:54):
-------------------------------------------------------2018/12/12修复一个重大漏洞：贴边隐藏无法对子窗口识别
已修复，更新链接在后面，实在抱歉各位-----------------------------------...

路过的死神

实在抱歉各位，刚刚才看见回复，测试了一下果然如此。已经修复，源码贴下面

  

DLL命令名	返回值类型	公开	备 注
取父句柄	整数型		取父句柄
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetParent
参数名	类 型	传址	数组	备 注
欲取窗口	整数型			子窗口的句柄

.版本 2<br /> <br /> .DLL命令 取父句柄, 整数型, "user32.dll", "GetParent", 公开, 取父句柄<br />     .参数 欲取窗口, 整数型, , 子窗口的句柄

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
贴边隐藏			模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下
参数名	类 型	参考	可空	数组	备 注
窗口名称	窗口				窗口名称，如_启动窗口，不是窗口句柄
是否置顶	逻辑型				窗口是否一直保持在最前面，默认：假

判断 (窗口名称.左边 ＜ 2 且 窗口名称.左边 ≠ 0 － 窗口名称.宽度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())
窗口名称.移动 (0 － 窗口名称.宽度 ＋ 1, , , )
判断 (窗口名称.左边 ＋ 窗口名称.宽度 ≥ 取屏幕宽度 () 且 窗口名称.左边 ≠ 取屏幕宽度 () － 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())
窗口名称.移动 (取屏幕宽度 () － 1, , , )
判断 (窗口名称.顶边 ≤ 1 且 窗口名称.顶边 ≠ 0 － 窗口名称.高度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())
窗口名称.移动 (, 0 － 窗口名称.高度 ＋ 1, , )
判断 (取鼠标水平位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())
判断循环首 (窗口名称.左边 ≤ 0)
窗口名称.移动 (窗口名称.左边 ＋ 1, , , )
判断循环尾 ()
判断 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 2 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())
判断循环首 (窗口名称.左边 ＋ 窗口名称.宽度 ＞ 取屏幕宽度 ())
窗口名称.移动 (窗口名称.左边 － 1, , , )
判断循环尾 ()
判断 (取鼠标垂直位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())
判断循环首 (窗口名称.顶边 ≤ 0)
窗口名称.移动 (, 窗口名称.顶边 ＋ 1, , )
判断循环尾 ()


窗口名称.总在最前 ＝ 是否置顶
' 判断 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 () 且 窗口名称.顶边 ≠ 取屏幕高度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())
' 窗口名称.移动 (, 取屏幕高度 () － 1, , )   这个是下判定
' 判断 (取鼠标垂直位置 () ＞ 取屏幕高度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
' 判断循环首 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 ())
' 窗口名称.移动 (, 窗口名称.顶边 － 1, , )   下判定移动

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 贴边隐藏, , 公开, 模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下<br /> .参数 窗口名称, 窗口, , 窗口名称，如_启动窗口，不是窗口句柄<br /> .参数 是否置顶, 逻辑型, 可空, 窗口是否一直保持在最前面，默认：假<br /> <br /> .判断开始 (窗口名称.左边 ＜ 2 且 窗口名称.左边 ≠ 0 － 窗口名称.宽度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())<br />     窗口名称.移动 (0 － 窗口名称.宽度 ＋ 1, , , )<br /> .判断 (窗口名称.左边 ＋ 窗口名称.宽度 ≥ 取屏幕宽度 () 且 窗口名称.左边 ≠ 取屏幕宽度 () － 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())<br />     窗口名称.移动 (取屏幕宽度 () － 1, , , )<br /> .判断 (窗口名称.顶边 ≤ 1 且 窗口名称.顶边 ≠ 0 － 窗口名称.高度 ＋ 1 且 取鼠标所在窗口句柄 () ≠ 窗口名称.取窗口句柄 () 且 取父句柄 (取鼠标所在窗口句柄 ()) ≠ 窗口名称.取窗口句柄 ())<br />     窗口名称.移动 (, 0 － 窗口名称.高度 ＋ 1, , )<br /> .判断 (取鼠标水平位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())<br />     .判断循环首 (窗口名称.左边 ≤ 0)<br />         窗口名称.移动 (窗口名称.左边 ＋ 1, , , )<br />     .判断循环尾 ()<br /> .判断 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 2 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())<br />     .判断循环首 (窗口名称.左边 ＋ 窗口名称.宽度 ＞ 取屏幕宽度 ())<br />         窗口名称.移动 (窗口名称.左边 － 1, , , )<br />     .判断循环尾 ()<br /> .判断 (取鼠标垂直位置 () ＜ 1 且 取鼠标所在窗口句柄 () ＝ 窗口名称.取窗口句柄 ())<br />     .判断循环首 (窗口名称.顶边 ≤ 0)<br />         窗口名称.移动 (, 窗口名称.顶边 ＋ 1, , )<br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 窗口名称.总在最前 ＝ 是否置顶<br /> <br /> <br /> ' 判断 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 () 且 窗口名称.顶边 ≠ 取屏幕高度 () － 1 且 取鼠标所在窗口句柄 () ≠ 取窗口句柄 ())<br /> ' 窗口名称.移动 (, 取屏幕高度 () － 1, , )   这个是下判定<br /> <br /> ' 判断 (取鼠标垂直位置 () ＞ 取屏幕高度 () － 2 且 取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())<br /> ' 判断循环首 (窗口名称.顶边 ＋ 窗口名称.高度 ≥ 取屏幕高度 ())<br /> ' 窗口名称.移动 (, 窗口名称.顶边 － 1, , )   下判定移动

一个小男人

下载不回复，木有小JJ。

cxycxycxy

发现法学系！！！！！！！！

carlocc

谢谢分享！！！！！！！

让我改名好不好

66666666666666666666666666666

ysldx

下载下来看看

lxh1230

66666666666666666666666666

实惠电脑

谢谢分享！！！！！！！

初学者1

感谢。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

a153264

谢谢分享么么大