Вот так как-то:
#SingleInstance,Force
setbatchlines,-1
CoordMode,Pixel
CoordMode,ToolTip
colormin:=0x901020
colormax:=0xff5050
;colormin:=0x000000
;colormax:=0xffffff
f1::
if ColorsLine(100,100,colormin,colormax,"x",100) ; начальная точка x=100, y=100,colormin,colormax,сканировать по x или y,сколько пикселей сканировать=100
tooltip,Совпало
else
tooltip,Облом.
return
ColorsLine(x,y,colormin,colormax,xy="x",count=1)
{
loop,% count
{
if (a_index>count)
break
PixelGetColor,Color,% xy="x" ? x+a_index : x,% xy="y" ? y+a_index : y, RGB
tooltip,% "Отладка`n" Color,% xy="x" ? x+a_index+5 : x+5,% xy="y" ? y+a_index+5 : y+5
if !incolors(Color,colormin,colormax)
return 0
}
return 1
}
incolors(Color,colormin,colormax)
{
if (Color&0xff0000>(colormin&0xff0000)-1 and Color&0xff0000<(colormax&0xff0000)+1
and Color&0x00ff00>(colormin&0x00ff00)-1 and Color&0x00ff00<(colormax&0x00ff00)+1
and Color&0x0000ff>(colormin&0x0000ff)-1 and Color&0x0000ff<(colormax&0x0000ff)+1)
return 1
}
Чтобы увеличить скорость - нужно отключить "Аэро", если Win7.