[已回复] 怎么检测手机画面卡死重启游戏 检测画面的同时需要其它...

Dim  检测线程
Thread.SetShareVar "是否卡主", false
检测线程 = Thread.Start(test_thread)
Do
        Delay 500
    If Thread.GetShareVar("是否卡主") = true Then 
              TracePrint "卡着超过10秒,结束线程"
              Thread.Stop(检测线程)
              TracePrint "退出脚本"
              EndScript 
    End If
Loop

Sub test_thread()
        Dim 起始颜色 = GetPixelColor(109,298) 
        Dim 秒数 = 0
    Do
                  Delay 1000
            Dim 结束颜色 = GetPixelColor(109,298)
                If 起始颜色 = 结束颜色 Then 
                        秒数 = 秒数 + 1
                        If 秒数 > 10 Then 
                                Thread.SetShareVar "是否卡主", true
                                Exit Do
                        End If
                        TracePrint "界面已经" & 秒数 & "秒没变了"
                Else 
                        TracePrint "界面变化了，说明脚本还在正常运行"
                        起始颜色 = GetPixelColor(109,298)
                        秒数 = 0
                End If
    Loop
End Sub