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
温馨提示:内容为网友见解,仅供参考