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

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

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 3864|回复: 5

[MQ手机按键]检测判断游戏是否卡屏 [复制链接]

clx527richie
头像

柒个旦旦

  • 小学六年级
  • 550381
  • 141
  • 0
  • 10 朵
  • 261 个
  • 163 个
  • 3700
  • 2010-11-30
图灵勋章按键精灵开发者4级教程达人
1#
t T
发表于 2021-11-12 13:52 | |只看楼主
思路:
1.选取游戏中连续变化的几个点为依据来判断是否卡屏
2.使用GetPixelColor函数获取这几个点的颜色
3.把各个点的颜色作为字符串合成一段特征值
4.实时获取几个点的颜色,对比特征值
5.如果特征值在指定时间一直未变则判断卡屏
6.判断卡屏后进行后续的操作
例子:

以TAPTAP为例

1.TAPTAP首页中该方框为视频,连续变化中,选取三个点存入表用作检测并获取特征码

  1. Dim 卡点检测点 = {{174,376},{565,377},{120,525}}
  2.     Function 卡屏点取值()
  3.         //检测卡点,生成特征码
  4.         Dim str = ""
  5.         For i = 1 To CInt(UBOUND(卡点检测点)) + 1
  6.             str = str&GetPixelColor(卡点检测点[i][1],卡点检测点[i][2])
  7.         Next
  8.         卡屏点取值 = str
  9.     End Function
复制代码
2.1 定义一个初始的特征码用作对比,设置一个定时器和检测时间

2.2 定义一个变量判断卡屏次数,并设定误判上限值,防止程序误判
  1. Dim 初始卡屏点取值 = 卡屏点取值()
  2.     Dim 卡屏检测定时器 = TickCount()
  3.     Dim 卡屏检测时间 = 10*1000
  4.     Dim 检测到卡屏次数 = 0,卡屏误判上限 = 3
复制代码
3.写一个函数来判断卡点
  1. Function 卡屏判断程序()
  2.         Dim 卡屏比对取值 = 卡屏点取值()
  3.         //特征值不一样则重置检测时间,重置卡屏次数
  4.         If 初始卡屏点取值 <> 卡屏比对取值 Then
  5.             卡屏检测定时器 = TickCount()
  6.     检测到卡屏次数 = 0
  7.             初始卡屏点取值 = 卡屏比对取值
  8.     TracePrint "未发现卡死,辅助稳定运行中"
  9.         End If
  10.         //前后两个特征值一样并超过了卡屏检测时间则判断卡屏一次
  11.         If TickCount() - 卡屏检测定时器 >= 卡屏检测时间 Then
  12.     初始卡屏点取值 = 卡屏点取值()
  13.     检测到卡屏次数 = 检测到卡屏次数 + 1
  14.     TracePrint "检测到卡屏次数:"&检测到卡屏次数
  15.     //卡屏次数大于误判上限则判断为卡屏,并执行后续操作
  16.     If 检测到卡屏次数 >= 卡屏误判上限 Then
  17.     检测到卡屏次数 = 0
  18.     Call 卡屏操作()
  19.     End If
  20.     卡屏检测定时器 = TickCount()
  21.         End If
  22.     End Function
复制代码
4.发生卡屏进行后续操作,重启应用
  1. Function 卡屏操作()
  2.         //检测到卡屏后重启应用
  3.     ShowMessage "检测到卡屏,准备重启游戏", 1000:TracePrint "检测到卡屏,准备重启游戏"
  4.     Delay 1000
  5.         Dim app包名 = "com.taptap"
  6.         KillApp app包名
  7.         Delay 1000
  8.         RunApp app包名
  9.         ShowMessage "已重启完毕,等待进入游戏", 3000:TracePrint "已重启完毕,等待进入游戏"
  10.         Delay 3000
  11.     End Function
复制代码
完整代码:
  1. //可添加任意个检测点,点数越少运行效率越高
  2. Dim 卡点检测点 = {{10,10},{50,50},{100,100},{150,150},{200,200}}
  3. Dim 初始卡屏点取值 = 卡屏点取值()
  4. Dim 卡屏检测定时器 = TickCount()
  5. Dim 卡屏检测时间 = 10*1000
  6. //调整卡屏误判上限值,防止程序误判
  7. Dim 检测到卡屏次数 = 0,卡屏误判上限 = 3

  9. Function 卡屏判断程序()
  10.     Dim 卡屏比对取值 = 卡屏点取值()
  11.     If 初始卡屏点取值 <> 卡屏比对取值 Then
  12.         卡屏检测定时器 = TickCount()
  13. 检测到卡屏次数 = 0
  14.         初始卡屏点取值 = 卡屏比对取值
  15. TracePrint "未发现卡死,辅助稳定运行中"
  16.     End If
  17.     If TickCount() - 卡屏检测定时器 >= 卡屏检测时间 Then
  18. 初始卡屏点取值 = 卡屏点取值()
  19. 检测到卡屏次数 = 检测到卡屏次数 + 1
  20. TracePrint "检测到卡屏次数:"&检测到卡屏次数
  21. If 检测到卡屏次数 >= 卡屏误判上限 Then
  22. 检测到卡屏次数 = 0
  23. Call 卡屏操作()
  24. End If
  25. 卡屏检测定时器 = TickCount()
  26.     End If
  27. End Function

  29. Function 卡屏点取值()
  30.     //检测卡点,生成特征码
  31.     Dim str = ""
  32.     For i = 1 To CInt(UBOUND(卡点检测点)) + 1
  33.         str = str&GetPixelColor(卡点检测点[i][1],卡点检测点[i][2])
  34.     Next
  35.     卡屏点取值 = str
  36. //    TracePrint "卡屏点取值:"&str
  37. End Function

  39. Function 卡屏操作()
  40.     //检测到卡屏后重启应用
  41. ShowMessage "检测到卡屏,准备重启游戏", 1000:TracePrint "检测到卡屏,准备重启游戏"
  42. Delay 1000
  43.     Dim app包名 = "设置重启包名"
  44.     KillApp app包名
  45.     Delay 1000
  46.     RunApp app包名
  47.     ShowMessage "已重启完毕,等待进入游戏", 3000:TracePrint "已重启完毕,等待进入游戏"
  48.     Delay 3000
  49. End Function

  51. //放在主线程中循环判断或放在子线程中实时监测
  52. Function main()
  53.     Do
  54.         Delay 100
  55.         Call 卡屏判断程序()
  56.     Loop
  57. End Function

  59. Call main()
复制代码
点赞
回顶部
兄弟客服03
头像

  • 管理员
  • 684365
  • 4614
  • 0
  • 1039 朵
  • 7356 个
  • 1010 个
  • 236380
  • 2011-06-13
按键X开拓者勋章按键15周年庆纪念勋章猴年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章体验先锋勋章按键14周年庆纪念勋章鹰眼勋章天使勋章潜水员按键明星黄金之翼按键精灵开发者2级龙年勋章十周年勋章兔年勋章论坛MM学有所成脚本作者管理人员
2#
t T
发表于 2021-11-12 18:20 | |只看该用户

感谢分享，教程达人勋章送给你了

按键精灵iOS版，兼容iOS14系统，可打包iOS小精灵，还支持分享收费型脚本哦！——点我查看详情

鹰眼中控，随时访问管控你的移动设备，手机屏幕实时显示，支持远程操作！——点我查看详情
回顶部
xuyuanding
头像

xuyuanding

  • 小学三年级
  • 1181960
  • 57
  • 0
  • 46 朵
  • 90 个
  • 35 个
  • 480
  • 2012-06-14
按键精灵开发者1级
3#
t T
发表于 2021-11-13 01:43 | |只看该用户

学习。

回顶部
吻破你的唇
头像

吻破你的唇

  • 小学二年级
  • 1447984
  • 46
  • 0
  • 0 朵
  • 98 个
  • 1 个
  • 780
  • 2012-11-25
4#
t T
发表于 2021-11-13 10:39 | |只看该用户

太赞了，非常感谢！03

回顶部
archael
头像

archael

  • 小学一年级
  • 2426647
  • 21
  • 0
  • 18 朵
  • 115 个
  • 18 个
  • 0
  • 2014-03-21
5#
t T
发表于 2021-11-15 15:57 | |只看该用户

厉害厉害厉害

回顶部
aaron8127
头像

大猪蹄子

  • 小学二年级
  • 5053044
  • 33
  • 0
  • 54 朵
  • 110 个
  • 221 个
  • 1160
  • 2018-02-17
图灵勋章骨灰级按键用户按键精灵开发者6级小编勋章教程达人
6#
t T
发表于 2021-11-18 16:26 | |只看该用户

建议用鼠标点击频率来检测卡屏.超实用

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