按键精灵移动版线程检测卡屏

安神脚本 23天前 56

Thread.SetShareVar "检测线程",False 
Dim id = thread.Start (游戏子线程)
Do
    Delay 500
    Dim 线程变量 = Thread.GetShareVar ("检测线程")
    If 线程变量 = true Then 
        TracePrint "退出线程"
        Thread.Stop (id)
        Exit Do
    End If
Loop

Function 游戏子线程
    Dim 颜色1 =GetPixelColor(509,33) //获取指定坐标点颜色
    Dim 计算器
    Do
        Delay 1000
        Dim 颜色2 =GetPixelColor(509,33) //获取指定坐标点颜色
        If 颜色1 = 颜色2 Then 
            计算器 = 计算器 + 1
            TracePrint "界面卡主了"&计算器&"秒"
            If 计算器 > 10 Then 
                TracePrint "修改全局变量:检测线程"
                Thread.SetShareVar "检测线程",true
            End If
        Else 
            TracePrint "界面发生变化了"
            计算器 = 0
            颜色1 =GetPixelColor(509,33) //获取指定坐标点颜色
        End If
        
    Loop
End Function



安神脚本- 版权声明 1、本主题所有言论和图片纯属会员个人意见,与离歌脚本 - 专注于手机应用,手机脚本,等分享网络优质资源!立场无关。
2、本站所有主题由该帖子作者发表,该帖子作者安神脚本离歌脚本 - 专注于手机应用,手机脚本,等分享网络优质资源!享有帖子相关版权。
3、离歌脚本 - 专注于手机应用,手机脚本,等分享网络优质资源!管理员和版主有权不事先通知发贴者而删除本文。
4、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者安神脚本的同意。


上一篇:一注册汽丰田免费领1个月爱奇艺会员 非秒到
下一篇:没了
最新回复 (0)
返回