请问按键精灵1分钟内指定坐标没出现要的颜色就执行下个指令和无限侦测在一个点的颜色出现就点击下

请问按键精灵1分钟内指定坐标没出现要的颜色就执行下个指令和无限侦测在一个点的颜色出现就点击下2个程序都是在一个程序里要怎么写?

BeginThread a
BeginThread b
Sub a
t = now
Do
tt = DateDiff("s", t, Now)
GetCursorPos x,y
cr1=GetPixelColor(x,y)
If cr1= 你要的颜色 Then
//出现执行的命令
Else
If tt >= 60 Then
//1分钟没出现执行的命令
t=now
End If
End if
Loop
End Sub
Sub b
Do
GetCursorPos x,y
cr1=GetPixelColor(x,y)
If cr1 = 你要的颜色 Then
MoveTo x, y
Delay 100
LeftClick 1
End If
Delay 300
Loop
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答
相似回答