高分！求一个按键精灵的脚本代码

2024年12月01日 11:34

有2个网友回答

网友（1）：

VBSCall a=GetPixelColor(100,120)
VBSCall b=GetPixelColor(101,121)
VBSCall c=GetPixelColor(102,122)
If a=b
If a=c
MoveTo 27 750
LeftClick 1
EndIf

复制上面的到源代码就可以了

//第一行括号内为x1,y1;第二行括号内为x2,y2;第三行括号内为x3,y3; MoveTo 27 750为鼠标移到 x y

下面用 and 也可以

VBSCall GetCursorpos(100,120)
color1=GetPixelColor(100,120)
VBSCall GetCursorpos(101,121)
color2=GetPixelColor(101,121)
VBSCall GetCursorpos(102,122)
color3=GetPixelColor(102,122)
If color1=color2 and color1=color3
MoveTo 27 750
LeftClick 1
EndIf

网友（2）：

一样啊，都不会