求助按键精灵，颜色判断

2025-05-09 15:44:16

推荐回答（2个）

回答1：

A点坐标x = 100 : A点坐标y = 200 '设置点坐标
B点坐标x = 300 : B点坐标y = 300'设置点坐标
Do
    IfColor A点坐标x, A点坐标y, "D4914C", 0 Then
        MoveTo A点坐标x, A点坐标y
        Delay 20
        LeftClick 1
    End If
    Delay 300
Loop Until GetPixelColor(B点坐标x, B点坐标y) = "E1E1E1"
//执行后面脚本

回答2：

Dim a, b
a = ""
b = ""
do
a=GetPixelColor(X1,Y1)
b=GetPixelColor(X2,Y2)
if a=D4914C then
MoveTo x1, y1
Delay 100

LeftClick 1
Delay 100
End if

loop Until b=E1E1E1

x1,y1是a点坐标，X2,Y2是b点坐标