NextActions/test.au3 at master · sishui/NextActions · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
AutoItSetOption("TrayAutoPause",0);

Func NAParseColor2Value($color)
	$c = Hex($color, 6)
	$v = Number(StringMid($c, 1, 1) & StringMid($c, 3, 1) & StringMid($c, 5, 1))
	NAdebug($c & "-------------" & $v)
	return $v
EndFunc

Func NAParseValue2Color($value)
	$v = Hex($value, 3)
	return Number("0x" & StringMid($v, 1,1) & "8" & StringMid($v, 2,1) & "8" & StringMid($v, 3,1) & "8")
EndFunc

Func NAdebug($text)
	ConsoleWrite($text & @CRLF)
EndFunc


;For $value = 0 to 999 Step 1
;		$color = NAParseValue2Color($value)
;		$value2 = NAParseColor2Value($color)
;		NAdebug($value &'::'& $color &'-->'& $value2);
;Next
$var = PixelGetColor( 8 , 8 )
MsgBox(0,"The hex color is", Hex($var, 6))