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

软件版本：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

快捷导航

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

登录 注册
返回列表 123
发新话题 回复该主题
查看: 15784|回复: 54

[昨夜星辰] 【源码】按键精灵部分防检测技巧(第一弹) [复制链接]

昨夜星辰
头像

QQ250039815

  • 按键认证大神
  • 728264
  • 3502
  • 18
  • 1899 朵
  • 27454 个
  • 1718 个
  • 82980
  • 2011-08-04
按键X开拓者勋章过大年勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章羊年勋章按键学院马年勋章鹰眼勋章双蛋勋章黄瓜勋章按键卫士屌丝勋章土豪勋章天使勋章潜水员按键明星黄金之翼按键精灵开发者6级龙年勋章十周年勋章兔年勋章虎年勋章论坛GG学有所成盒子会员
1#
t T
发表于 2022-04-07 03:23 | |只看楼主

前言：
以下源码仅针对部分游戏的远程截屏以及窗口内关键字查找来检测按键精灵是否开启，不涉及进程保护之类的功能。

注：以下代码仅在WIN7系统下通过测试，其他系统是否可用请自行测试，仅提供思路参考。由于按键自带窗口插件无法查找多层或隐藏窗口句柄，故使用了大漠插件，可自行斟酌更换其他能查找窗口的插件。

函数名：设置是否显示桌面壁纸
参数定义:

显示或隐藏 布尔型：true为显示，false为隐藏。

返回值：

整数型：成功返回1，失败返回0。

  1. Function 设置是否显示桌面壁纸(显示或隐藏)
  2. Dim WallpaperPath,ParentFolderName
  3. WallpaperPath = 获取桌面壁纸()
  4. If WallpaperPath = "" Then
  5. 设置是否显示桌面壁纸 = 0
  6. Exit Function
  7. End If
  8. ParentFolderName = 获取路径父文件夹(WallpaperPath) & "\"
  9. If 显示或隐藏 = true Then //桌面恢复
  10. If Plugin.File.IsFileExist(ParentFolderName & "TranscodedWallpaper.bak") = true Then //存在原有壁纸备份
  11. Call Plugin.File.DeleteFile(ParentFolderName & "TranscodedWallpaper.jpg")//删除黑屏壁纸
  12. Call Plugin.File.ReNameFile(ParentFolderName & "TranscodedWallpaper.bak", ParentFolderName & "TranscodedWallpaper.jpg") //恢复原有壁纸
  13. End If
  14. 设置是否显示桌面壁纸 = 设置桌面壁纸(ParentFolderName & "TranscodedWallpaper.jpg")
  15. End If
  16. If 显示或隐藏 = false Then //桌面黑屏
  17. If Plugin.File.IsFileExist(ParentFolderName & "TranscodedWallpaper.bak") = false Then //不存在原有壁纸备份
  18. Call Plugin.File.ReNameFile(ParentFolderName & "TranscodedWallpaper.jpg", ParentFolderName & "TranscodedWallpaper.bak")//重命名原有壁纸
  19. End If
  20. Call Plugin.File.CopyFile(脚本文件存放路径&"TranscodedWallpaper.jpg", ParentFolderName & "TranscodedWallpaper.jpg") //拷贝新黑屏壁纸
  21. 设置是否显示桌面壁纸 = 设置桌面壁纸(ParentFolderName & "TranscodedWallpaper.jpg")
  22. End If
  23. End Function
  24. Function 获取桌面壁纸()
  25. WallpaperPath = Space(255)
  26. If SystemParametersInfoW(115, 200, WallpaperPath, 0) <> 0 Then
  27. 获取桌面壁纸 = Left(WallpaperPath, InStr(WallpaperPath, ".jpg") + 3)
  28. Else
  29. 获取桌面壁纸 = ""
  30. End If
  31. End Function
  32. Function 设置桌面壁纸(path)
  33. 设置桌面壁纸 = SystemParametersInfoW(20, 0, path, 1)
  34. End Function
复制代码

函数名：设置是否显示桌面图标
参数定义:
显示或隐藏 布尔型：true为显示，false为隐藏

返回值：

整数型：成功返回1，失败返回0。

  1. Function 设置是否显示桌面图标(显示或隐藏)
  2. 设置是否显示桌面图标 = 0
  3. Dim 桌面主区域窗口句柄,桌面主区域窗口句柄_其他, i
  4. 桌面主区域窗口句柄 = dm.FindWindowEx(0, "Progman", "")//第一层
  5. 桌面主区域窗口句柄 = dm.FindWindowEx(桌面主区域窗口句柄, "SHELLDLL_DefView", "")//第二层
  6. If 桌面主区域窗口句柄 = 0 Then //第二层查找失败
  7. 桌面主区域窗口句柄_其他 = dm.EnumWindow(0, "", "WorkerW", 2 + 4 + 8 + 16)//其他第一层
  8. If 桌面主区域窗口句柄_其他 <> "" Then
  9. 桌面主区域窗口句柄_其他 = Split(桌面主区域窗口句柄_其他, ",")
  10. For i = 0 To UBound(桌面主区域窗口句柄_其他)
  11. 桌面主区域窗口句柄 = dm.FindWindowEx(CLng(桌面主区域窗口句柄_其他(i)), "SHELLDLL_DefView", "") //其他第二层
  12. If 桌面主区域窗口句柄 <> 0 Then //其他第二层查找成功
  13. Exit For
  14. End If
  15. Next
  16. End If
  17. End If
  18. 桌面主区域窗口句柄 = dm.FindWindowSuper(桌面主区域窗口句柄, 4, 0, "SysListView32", 2, 0)//第三层
  19. If 桌面主区域窗口句柄 <> 0 Then
  20. If 显示或隐藏 = true Then
  21. Call dm.SetWindowState(桌面主区域窗口句柄, 7)//显示
  22. 设置是否显示桌面图标 = 1
  23. Else
  24. Call dm.SetWindowState(桌面主区域窗口句柄, 6)//隐藏
  25. 设置是否显示桌面图标 = 1
  26. End If
  27. End If
  28. End Function
复制代码

函数名：设置是否显示托盘图标
参数定义:
显示或隐藏 布尔型：true为显示，false为隐藏。

返回值：

整数型：成功返回1，失败返回0。

  1. Function 设置是否显示托盘图标(显示或隐藏)
  2. 设置是否显示托盘图标 = 0
  3. Dim 托盘主区域窗口句柄
  4. 托盘主区域窗口句柄 = dm.FindWindowSuper("", 0, 0, "Shell_TrayWnd", 2, 0)
  5. If 托盘主区域窗口句柄 <> 0 Then
  6. 托盘主区域窗口句柄 = dm.FindWindowSuper(托盘主区域窗口句柄, 4, 0, "TrayNotifyWnd", 2, 0)
  7. If 托盘主区域窗口句柄 <> 0 Then
  8. 托盘主区域窗口句柄 = dm.FindWindowSuper(托盘主区域窗口句柄, 4, 0, "SysPager", 2, 0)
  9. If 托盘主区域窗口句柄 <> 0 Then
  10. If 显示或隐藏 = true Then
  11. Call dm.SetWindowState(托盘主区域窗口句柄, 7)//显示
  12. 设置是否显示托盘图标 = 1
  13. Else
  14. Call dm.SetWindowState(托盘主区域窗口句柄, 6)//隐藏
  15. 设置是否显示托盘图标 = 1
  16. End If
  17. End If
  18. End If
  19. End If
  20. Dim 托盘隐藏区域窗口句柄
  21. 托盘隐藏区域窗口句柄 = dm.FindWindowSuper("", 0, 0, "NotifyIconOverflowWindow", 2, 0)
  22. If 托盘隐藏区域窗口句柄 <> 0 Then
  23. 托盘隐藏区域窗口句柄 = dm.FindWindowSuper(托盘隐藏区域窗口句柄, 4, 0, "ToolbarWindow32", 2, 0)
  24. If 托盘隐藏区域窗口句柄 <> 0 Then
  25. If 显示或隐藏 = true Then
  26. Call dm.SetWindowState(托盘隐藏区域窗口句柄, 7)//显示
  27. 设置是否显示托盘图标 = 1
  28. Else
  29. Call dm.SetWindowState(托盘隐藏区域窗口句柄, 6)//隐藏
  30. 设置是否显示托盘图标 = 1
  31. End If
  32. End If
  33. End If
  34. End Function
复制代码

函数名：简体繁体火星文互转
参数定义:
原内容 字符串型：待转换的内容

转换方式 整数型：1、简体转繁体 2、简体转火星 3、繁体转简体 4、繁体转火星 5、火星转简体 6、火星转繁体

返回值：

字符串型：转换后的内容

  1. Function 简体繁体火星文互转(原内容, 转换方式)
  2. Dim 简体字, 繁体字, 火星文
  3. 简体字 = dm.ReadFile(脚本文件存放路径 & "简体字.txt")
  4. 繁体字 = dm.ReadFile(脚本文件存放路径 & "繁体字.txt")
  5. 火星文 = dm.ReadFile(脚本文件存放路径 & "火星文.txt")
  6. Dim i,新内容,当前字符,字符位置,原文字,新文字
  7. 新内容 = ""
  8. Select Case 转换方式
  9. Case 1
  10. 原文字 = 简体字
  11. 新文字 = 繁体字
  12. Case 2
  13. 原文字 = 简体字
  14. 新文字 = 火星文
  15. Case 3
  16. 原文字 = 繁体字
  17. 新文字 = 简体字
  18. Case 4
  19. 原文字 = 繁体字
  20. 新文字 = 火星文
  21. Case 5
  22. 原文字 = 火星文
  23. 新文字 = 简体字
  24. Case 6
  25. 原文字 = 火星文
  26. 新文字 = 繁体字
  27. Case Else
  28. 简体繁体火星文互转 = 原内容
  29. Exit Function
  30. End Select
  31. For i = 1 To Len(原内容)
  32. 当前字符 = Mid(原内容, i, 1)
  33. 字符位置 = InStr(原文字, 当前字符)
  34. If 字符位置 > 0 Then
  35. 当前字符 = Mid(新文字, 字符位置, 1)
  36. End If
  37. 新内容 = 新内容 & 当前字符
  38. Next
  39. 简体繁体火星文互转 = 新内容
  40. End Function
复制代码

函数名：设置自身进程内窗口是否允许被截图
参数定义:

hwnd 整数型：窗口句柄
允许或禁止 布尔型：true为允许，false禁止。

返回值：

整数型：成功返回1，失败返回0。

  1. Function 设置自身进程内窗口是否允许被截图(hwnd, 允许或禁止)
  2. If 允许或禁止 = true Then
  3. 设置自身进程内窗口是否允许被截图 = SetWindowDisplayAffinity(hwnd, 0)
  4. Else
  5. 设置自身进程内窗口是否允许被截图 = SetWindowDisplayAffinity(hwnd, 1)
  6. End If
  7. End Function
复制代码

注：窗口必须为顶层窗口，WIN7系统必须开启DWM（即性能选项中必须勾选“启用桌面组合”和“在窗口和按钮上使用视觉样式”），否则该函数无效，若中途DWM关闭，则该函数也会失效。



源文件：

test.zip (, 下载次数:244)
最后编辑昨夜星辰 最后编辑于 2022-04-07 03:33:45
点赞
近期制作：
传奇私服各种反外挂插件版本挂机软件，可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具
承接脚本定制，点击下方联系
QQ：250039815

交流群：101296478
回顶部
o0jh0o
头像

o0jh0o

  • 小学三年级
  • 2761039
  • 60
  • 0
  • 169 朵
  • 160 个
  • 80 个
  • 860
  • 2014-09-23
2#
t T
发表于 2022-04-07 08:41 | |只看该用户

好东西，谢谢分享。

回顶部
xiaossi
头像

xiaossi

  • 初中一年级
  • 6763150
  • 168
  • 0
  • 133 朵
  • 181 个
  • 153 个
  • 0
  • 2019-07-22
3#
t T
发表于 2022-04-07 10:09 | |只看该用户


回顶部
z3090712
头像

  • 高中三年级
  • 3958378
  • 651
  • 0
  • 141 朵
  • 3298 个
  • 128 个
  • 7160
  • 2016-06-07
按键精灵开发者2级
4#
t T
发表于 2022-04-07 18:37 | |只看该用户

dfsfsdfsdfsd

回顶部
晴天碧海
头像

  • 小学一年级
  • 8686379
  • 30
  • 0
  • 44 朵
  • 39 个
  • 34 个
  • 0
  • 2022-04-04
5#
t T
发表于 2022-04-07 22:13 | |只看该用户

学习了

回顶部
jiabeijk
头像

jiabeijk

  • 小学一年级
  • 8658979
  • 9
  • 0
  • 6 朵
  • 10 个
  • 10 个
  • 0
  • 2022-03-15
6#
t T
发表于 2022-04-08 02:15 | |只看该用户

学习中

回顶部
13931666461
头像

  • 小学一年级
  • 8436630
  • 4
  • 0
  • 0 朵
  • 14 个
  • 2 个
  • 0
  • 2021-08-25
7#
t T
发表于 2022-04-11 15:36 | |只看该用户

学习学习

回顶部
zengjinxiang
头像

  • 小学一年级
  • 8687955
  • 27
  • 0
  • 23 朵
  • 25 个
  • 25 个
  • 0
  • 2022-04-05
8#
t T
发表于 2022-04-11 16:27 | |只看该用户

学习学习

回顶部
xhmm
头像

  • 小学五年级
  • 4676648
  • 93
  • 0
  • 32 朵
  • 410 个
  • 47 个
  • 1760
  • 2017-10-18
按键精灵开发者1级
9#
t T
发表于 2022-04-12 20:44 | |只看该用户


回顶部
15036950571
头像

15036950571

  • 小学二年级
  • 8106724
  • 34
  • 0
  • 43 朵
  • 60 个
  • 29 个
  • 0
  • 2021-01-10
10#
t T
发表于 2022-04-13 19:04 | |只看该用户


回顶部
zwc18752059192
头像

zwc18752059192

  • 小学六年级
  • 4387663
  • 115
  • 0
  • 108 朵
  • 134 个
  • 114 个
  • 20
  • 2017-03-20
11#
t T
发表于 2022-04-18 22:16 | |只看该用户

感谢分享

回顶部
zwc18752059192
头像

zwc18752059192

  • 小学六年级
  • 4387663
  • 115
  • 0
  • 108 朵
  • 134 个
  • 114 个
  • 20
  • 2017-03-20
12#
t T
发表于 2022-04-18 22:16 | |只看该用户

感谢分享，支持

回顶部
myzhangjing
头像

myzhangjing

  • 按键精灵会员
  • 223676
  • 12
  • 0
  • 7 朵
  • 12 个
  • 12 个
  • 120
  • 2009-02-13
按键精灵开发者1级
13#
t T
发表于 2022-04-25 10:01 | |只看该用户

学习下

回顶部
o315100262o
头像

o315100262o

  • 小学一年级
  • 5114784
  • 26
  • 0
  • 20 朵
  • 45 个
  • 25 个
  • 80
  • 2018-03-14
14#
t T
发表于 2022-05-06 06:52 | |只看该用户

厉害了 我的哥

回顶部
taijiwei123
头像

taijiwei123

  • 小学三年级
  • 211097
  • 63
  • 0
  • 55 朵
  • 58 个
  • 59 个
  • 120
  • 2008-12-21
15#
t T
发表于 2022-05-14 12:42 | |只看该用户

`````````````123

回顶部
tugou001
头像

  • 小学一年级
  • 8582993
  • 28
  • 0
  • 40 朵
  • 36 个
  • 31 个
  • 0
  • 2021-12-28
16#
t T
发表于 2022-05-18 13:23 | |只看该用户

啊啊啊啊这

回顶部
神·月灵
头像

神·月灵

  • 幼儿园
  • 6053309
  • 2
  • 0
  • 1 朵
  • 12 个
  • 2 个
  • 0
  • 2019-01-22
17#
t T
发表于 2022-05-19 21:37 | |只看该用户

6666666666

回顶部
heiqimingren
头像

heiqimingren

  • 小学四年级
  • 5166201
  • 79
  • 0
  • 26 朵
  • 258 个
  • 207 个
  • 1800
  • 2018-04-06
按键精灵开发者4级
18#
t T
发表于 2022-05-22 14:45 | |只看该用户

学习一下。。。。。。。。。。。。。

回顶部
xuliang
头像

xuliang

  • 小学四年级
  • 179456
  • 79
  • 0
  • 41 朵
  • 105 个
  • 72 个
  • 300
  • 2008-05-21
19#
t T
发表于 2022-05-22 22:09 | |只看该用户

什么个意思？

回顶部
v50233
头像

v50233

  • 小学一年级
  • 4038812
  • 4
  • 0
  • 0 朵
  • 13 个
  • 3 个
  • 0
  • 2016-07-29
20#
t T
发表于 2022-06-07 03:16 | |只看该用户

把把把把把

回顶部
上一主题| 下一主题
返回列表 123
发新话题 回复该主题
高级编辑器高级编辑器