按键精灵中的日志、分辨率、找色逻辑、线程

// 开启日志
Log.Open 

TracePrint "你好"

TracePrint "世界"

// 关闭日志	
Log.Close 
// 输出日志
TracePrint GetTempDir()

// 当前脚本第4行：你好
// 当前脚本第6行：世界

SetScreenScale 720 1280

Tap 100,100

// 上面点击的坐标在1080*1920的屏幕下会点击以下位置

Tap 100 * (1080 / 720), 100 * (1920 / 1280)

// 定义找色点击方法
Function findColorClick()
	// 无限循环
	Do
		// 通过多色对比找到初始界面
		If CmpColorEx("123|389|D97700-101010,285|170|55351E-101010,59|27|461F02-101010,602|251|371803-101010",0.9) = 1 Then
			// 点击目标
			Tap 88, 884
		End If
		// 延时进行画面切换
		Delay 200
		// 校验点击目标后页面是否正确
		If CmpColorEx("222|67|F7F3F3-101010,409|150|F10B22-101010,371|397|F7F3F3-101010,254|1223|FFFFFF-101010",0.9) = 1 Then
			TracePrint "打开了"
			// 退出循环	
			Exit Do	
		End If
	Loop
End Function

// 调用点击方法
Call findColorClick()

// 调用下一步方法

// 设置共享变量
Thread.SetShareVar "checkThread", false
// 开启游戏子线程
Dim id = Thread.Start(gameSubThread)

// 主程序循环检测
Do
	Delay 500
	// 获取共享变量的结果
	Dim checkResult = Thread.GetShareVar("checkThread")
	// 如果结果为真
	If checkResult = true Then 
		// 退出子线程
		TracePrint "退出线程"
		Thread.Stop (id)
		Exit Do
	End If
Loop
// 声明游戏检测线程
Function gameSubThread()
	// 获取点的颜色
	Dim color1 = GetPixelColor(427,269)
	// 设置定时器
	Dim count = 0
	Do
		Delay 1000
		// 再次获取同一坐标的颜色
		Dim color2 = GetPixelColor(427,269)
		// 如果两个颜色相等
		If color1 = color2 Then 
			// 计时器加1
			count = count + 1
			// 输出卡住的时间
			TracePrint "界面卡住了"&count&"秒"
			// 如果计数的时间大于10
			If count > 10 Then 
				TracePrint "修改全局变量:检测线程"
				// 设置检测结果为true
				Thread.SetShareVar "checkThread", true
			End If
		Else 
			TracePrint "界面发生变化了"
			// 清空计时器
			count = 0
			// 重新获取坐标颜色
			color1 = GetPixelColor(427, 269)
		End If
	Loop
End Function