//获取指定点颜色
Dim rColor
rColor = GetPixelColor(105, 900,0)
Dim 是否相等
是否相等 = CmpColor(105,900,"504A43",0)
ShowMessage "颜色:"&rColor, 2000,350,350
Delay 2000
//对比指定点颜色
If 是否相等 > -1 Then
ShowMessage "匹配颜色的序号为："&是否相等,2000,1000,1000
Delay 1000
ShowMessage "颜色:"&rColor, 3000,350,350
//点击屏幕 继续1 坐标90,973位置
Tap 90,973
Delay 3000
//点击屏幕 继续2 坐标76,976位置
Tap 76,976
Delay 3000
//点击屏幕 返回大厅 坐标74,971位置
Tap 74,971
Delay 3000
Exit do
Else
ShowMessage "没有匹配的颜色", 2000,1000,1000
End if
Dim rColor
rColor = GetPixelColor(105, 900,0)
Dim 是否相等
是否相等 = CmpColor(105,900,"504A43",0)
ShowMessage "颜色:"&rColor, 2000,350,350
Delay 2000
//对比指定点颜色
If 是否相等 > -1 Then
ShowMessage "匹配颜色的序号为："&是否相等,2000,1000,1000
Delay 1000
ShowMessage "颜色:"&rColor, 3000,350,350
//点击屏幕 继续1 坐标90,973位置
Tap 90,973
Delay 3000
//点击屏幕 继续2 坐标76,976位置
Tap 76,976
Delay 3000
//点击屏幕 返回大厅 坐标74,971位置
Tap 74,971
Delay 3000
Exit do
Else
ShowMessage "没有匹配的颜色", 2000,1000,1000
End if
