按键精灵卡屏检测判断窗口是否无响应或卡屏

Posted 2022-11-28 九黎AJ

普通交流群698307198欢迎加入v群,和各位大神一同交流
免责声明:本博客提供的所有内容仅供学习、分享与交流，我们不保证内容的正确性。通过使用本博客内容随之而来的问题与本博客无关。当使用本博客代码时，代表你已接受本博客的免责声明

窗口无响应，卡屏，浏览器崩溃……一直是脚本作者们头疼的问题。大多数人在遇到无响应等问题的时候，如果是重要的数据只能选择等待，忍无可忍时强制关闭程序。可是，下一次遇到无响应问题该怎么办呢？如何一劳永逸解决这个头疼点呢？

正文部分

简单的一个思路,直接比较之前的坐标颜色和之后的坐标颜色,如果一样,就说明卡屏了.

Dim 卡屏超时时间 
卡屏超时时间 = Int(ReadUIConfig("输入框6"))*1000
Dim a0,a1,a2,a3,a4,a5
Sub 卡屏检测()

//卡屏检测
//卡屏1代码

a0 = GetPixelColor(211, 307, 0)
a1 = GetPixelColor(165,289, 0)
a2 = GetPixelColor(548,395, 0)
Delay 卡屏超时时间

a3 = GetPixelColor(211, 307, 0)
a4 = GetPixelColor(165,289, 0)
a5 = GetPixelColor(548,395, 0)


If a0 =a3 and a1 =a4 and a2 =a5 Then
Traceprint"出现卡屏"
ShowMessage "出现卡屏"
Else
Traceprint"没有卡"


End If





End Sub
//调用
卡屏检测 

所属软件

声明

部分内容来自网络
本教程仅用于学习, 禁止用于其他用途

QQ群

698307198
扫一扫二维码,加入群聊.QQ

说明:
本文提供的代码仅供参考。
有些地方可能在最新版本的按键精灵上面需要做修改，才能运行的.如果不理解,可以加群询问.