单独弄个线程 来监测
//检测画面变动信息
Dim a = GetPixelColor(52,142)
Dim b = GetPixelColor(73,278)
Dim c =GetPixelColor(73,278)
Dim d =GetPixelColor(246,277)
Delay 9000 ///延时时间
Dim same = 0
Dim a1 = GetPixelColor(52,142)
Dim b1 = GetPixelColor(73,278)
Dim c1 =GetPixelColor(73,278)
Dim d1 =GetPixelColor(246,277)
TracePrint a&"--"&a1
TracePrint b&"--"&b1
TracePrint c&"--"&c1
TracePrint d&"--"&d1
If a1 = a Then
same = same + 1
End If
If b1 = b Then
same = same + 1
End If
If c1 = c Then
same = same + 1
End If
If d1 = d Then
same = same + 1
End If
If same <= 3 Then //只要有三个点以上不同则判定画面没变化
TracePrint"图像变化了"
Delay 4000
Else
TracePrint"图像没变化了"
EndScript ///停止
End If
判断画面是否变动 卡主 假死
最新推荐文章于 2023-11-17 00:07:02 发布