|
|
发表于 2020-10-11 19:53:19
|
显示全部楼层
湖南省永州市
//以上代码可直接运行,以调试正常执行
Import "ShanHai.lua"
Import "Thread.lua"
//导入上面2个lua插件按键中自带
Thread.SetShareVar "cv", 0
//设置多线程全局共享变量
dim colorcvluae,Tid
Tid = Thread.Start(isscreencolor_change)
//启动线程
Call 主线程序()
Function 主线程序()
Dim sign
Rem sign
Do
//主线程
TracePrint "主线程正常运行"
colorcvluae = Thread.GetShareVar("cv")
If colorcvluae = 1 Then
//屏幕卡死开始跳转重新开始
Thread.GetShareVar "cv", 0
//初始化 多线程全局共享变量
Goto sign
//开始跳转
End If
Delay 1000
Loop
End Function
Function isscreencolor_change()
//在3分钟内判断范围内屏幕是否有发生变
Do
Dim r= shanhai.IsDisplayChange(0,0,0,0,60*3,1)
If r Then
TracePrint "屏幕有发生变化"
Else
TracePrint "30秒内屏幕都没有发生变化"
Thread.SetShareVar "cv",1
End If
Delay 1000
Loop
End Function
|
|