Inputs Hex values into windows colour picker

rgb.ahk

;It's pretty spaghetti
hex2r(CR)
{
    H := InStr(CR, "0x") ? CR : (InStr(CR, "#") ? "0x" SubStr(CR, 2) : "0x" CR)
    r:= (H & 0xFF0000) >> 16 
    return r
}
hex2g(CR)
{
    H := InStr(CR, "0x") ? CR : (InStr(CR, "#") ? "0x" SubStr(CR, 2) : "0x" CR)
    g:= (H & 0xFF00) >> 8
    return g
}
hex2b(CR)
{
    H := InStr(CR, "0x") ? CR : (InStr(CR, "#") ? "0x" SubStr(CR, 2) : "0x" CR)
    b:= (H & 0xFF)
    return b
}
;Change F22 to whatever
F22::
r:= hex2r(clipboard)
g:= hex2g(clipboard)
b:= hex2b(clipboard)
send, ^a%r%{TAB}%g%{TAB}%b%
Return