• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[分享源码] 【源码】拦截单击关闭按钮,还可以拦截前运行一段代码! [复制链接]

1#

今天无意中发现,


按键精灵也可以拦截单击关闭按钮!

(其他关闭方式无法拦截)


还可以在拦截前,和拦截后运行任意代码!

求花花,求银币,看有没有人顶,没人顶的话就不发源码了




小精灵成品下载:
http://pan.baidu.com/s/1kVdl5Sb

现在把源码公布:(此处应该有鲜花吧
  1. //首先 在界面上放1个“热键控件”,热键设置为鼠标【左键按下】。
  2. //然后 复制以下脚本保存后再进行调试:

  3. Declare Function GetAncestor Lib "user32.dll" (ByVal hwnd As Long, ByVal GetAncestorFlags As Long) As Long
  4. Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
  5. Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  6. Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

  7. Dimenv HwndC, HwndEx

  8. Event Form1.Hotkey1.Hotkey
  9. '拦截的核心代码
  10. If Plugin.Window.MousePoint() = HwndC Then
  11. EnableWindow HwndC, False'禁止窗口接收鼠键
  12. If MsgBox("你是否想关闭窗口?", 4 + 32 + 4096, "神梦提示!") = 6 Then
  13. PostMessage HwndEx, 16, 0, 0 '关闭窗口
  14. End If
  15. EnableWindow HwndC, True'允许窗口接收鼠键
  16. End If
  17. End Event

  18. Event Form1.Load
  19. HwndEx = GetAncestor(Form1.Hwnd, 3)
  20. Hwnd = GetWindow(HwndEx, 5)
  21. For 5
  22. Hwnd = GetWindow(Hwnd, 2)
  23. Next
  24. HwndC = Hwnd
  25. Form1.Hotkey1.Register True
  26. End Event
  27. Event Form1.UnLoad
  28. Form1.Hotkey1.Register False
  29. Form1.SaveSetting
  30. End Event
复制代码

点评

神梦科技  在窗口及计算机被关闭之前产生此事件,用于询问该关闭操作是否允许被继续。  发表于 2017/1/3 13:15:20

最后编辑神梦科技 最后编辑于 2017-01-05 08:33:14
2#

啥意思啊?

点评

神梦科技  相当于易语言中的【__启动窗口_可否被关闭】事件一样!  发表于 2017/1/3 13:12:48

3#

不懂易语言, 大概就是HOOK吧

点评

神梦科技  没有用HOOKAPI的!我也是无意间发现的  发表于 2017/1/3 14:35:02

4#

回复 1楼神梦科技的帖子

窗体关闭事件和窗体销毁事件?

点评

神梦科技  和按键精灵自带的销毁事件不同,这个可以拦截的!
自带的销毁事件执行完毕后程序就结束了
  发表于 2017/1/3 14:33:26

近期制作:
传奇私服各种反外挂插件版本挂机软件,可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具

承接脚本定制,点击下方联系
QQ:250039815

交流群:101296478

5#

学习下,大神发源码看看啊

6#

发源码

7#

6666666666666666666

8#

感谢楼主分

9#

拦截单击关闭按钮

10#

学习一下哦也

11#

回复,学习一下

12#

收到谢谢!!!!!

13#

看看代码

14#

1111111111111111

15#

学习学习努力学习学习学习努力学习

16#

非常不错的功能

17#

这又是啥呢

18#

我喜欢 来看看源码

发新话题 回复该主题