CODE:

// options ("stop","C"); // если нужно изменить сочетание для остановки скрипта
#define WS_EX_CLIENTEDGE 512
#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define ES_NUMBER 8192
#define EM_SETSEL 177
#define STIF_SUPPORT_HEX 1

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "wsprintf", "wsprintfA", "User32.dll" );
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll" );
external(INT, "GetWindowText", "GetWindowTextA", "User32.dll" );
external(INT, "StrToIntEx", "StrToIntExA", "Shlwapi.dll" );

win dialog;
string hex_color;
char hex[10], text_edit[20];
int i, r, g, b, color, flag=0;
int edit[5], static[3];
int image[1][1];
image[0][0]=0;

createdialog(0);
showdialog(0, "Color",350, 400, 210, 200, 1, 1);

loop()
{
if(flag==1)
{
if(GetWindowText(edit[0], address(#text_edit[0]), sizearray(text_edit)))
{
color=formatsn(format(#text_edit[0]));
if(color>-1 && color < 16777216)
{
wsprintf(address(#hex[0]), "%#x", color);
SetWindowText(edit[1], format(#hex[0]));
SetWindowText(edit[2], format(rvalue(color)));
SetWindowText(edit[3], format(gvalue(color)));
SetWindowText(edit[4], format(bvalue(color)));
image[0][0]=color;
}
else
{
for(i=1; i<5; i++)SetWindowText(edit[i], "err");
}
}
flag=0;
}

if(flag==2)
{
if(GetWindowText(edit[1], address(#text_edit[0]), sizearray(text_edit)))
{
if(regexsearch(1, #hex_color, format(#text_edit[0]), "^0(?:x|X)"))hex_color=format(#text_edit[0]);
else hex_color="0x"+format(#text_edit[0]);
if(StrToIntEx(hex_color, STIF_SUPPORT_HEX, address(#color)))
{
SetWindowText(edit[0], format(color));
SetWindowText(edit[2], format(rvalue(color)));
SetWindowText(edit[3], format(gvalue(color)));
SetWindowText(edit[4], format(bvalue(color)));
image[0][0]=color;
}
else
{
SetWindowText(edit[0], "err");
for(i=2; i<5; i++)SetWindowText(edit[i], "err");
}
}
flag=0;
}

if(flag==3)
{
if(GetWindowText(edit[2], address(#text_edit[0]), sizearray(text_edit)))r=formatsn(format(#text_edit[0]));
if(GetWindowText(edit[3], address(#text_edit[0]), sizearray(text_edit)))g=formatsn(format(#text_edit[0]));
if(GetWindowText(edit[4], address(#text_edit[0]), sizearray(text_edit)))b=formatsn(format(#text_edit[0]));
if(r > -1 && r < 256 && g > -1 && g < 256 && b > -1 && b < 256)
{
SetWindowText(edit[0], format(rgb(r, g, b)));
wsprintf(address(#hex[0]), "%#x", rgb(r, g, b));
SetWindowText(edit[1], format(#hex[0]));
image[0][0]=rgb(r, g, b);
}
flag=0;
}

visualwindow(dialog, 0, 0, 0, 1, 1, 90, 120, 3000, #image[0][0]);
sleep(100);
}

function getmessage(0, WM_CREATE)
{
dialog=formatiw(gethwnd(0));
edit[0]=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_BORDER | WS_CHILD | WS_VISIBLE | ES_NUMBER, 70, 8, 100, 22, gethwnd(0), 0, 0, 0);
edit[1]=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_BORDER | WS_CHILD | WS_VISIBLE, 70, 38, 100, 22, gethwnd(0), 0, 0, 0);
edit[2]=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_BORDER | WS_CHILD | WS_VISIBLE | ES_NUMBER, 70, 68, 35, 22, gethwnd(0), 0, 0, 0);
edit[3]=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_BORDER | WS_CHILD | WS_VISIBLE | ES_NUMBER, 115, 68, 35, 22, gethwnd(0), 0, 0, 0);
edit[4]=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_BORDER | WS_CHILD | WS_VISIBLE | ES_NUMBER, 160, 68, 35, 22, gethwnd(0), 0, 0, 0);
static[0]=CreateWindow(0, "STATIC", "DEC", WS_CHILD | WS_VISIBLE, 10, 10, 50, 30, gethwnd(0), 0, 0, 0);
static[1]=CreateWindow(0, "STATIC", "HEX", WS_CHILD | WS_VISIBLE, 10, 40, 50, 30, gethwnd(0), 0, 0, 0);
static[2]=CreateWindow(0, "STATIC", "RGB", WS_CHILD | WS_VISIBLE, 10, 70, 50, 30, gethwnd(0), 0, 0, 0);
}

function getmessage(0, WM_COMMAND)
{
if(GetWindowText(message.lparam, address(#text_edit[0]), sizearray(text_edit)))
sendmessage(EM_SETSEL, size(#text_edit[0]), -1, formatiw(message.lparam));
if(flag)return;
if(message.lparam==edit[0]){flag=1; return;}
if(message.lparam==edit[1]){flag=2; return;}
if(message.lparam==edit[2] || message.lparam==edit[3] || message.lparam==edit[4])flag=3;
}

Сделайте пожалуйста