[أداة] getColorHexRBG on screen ، لجلب قيمة اي لون على شاشتك !!

أقدم لكم اداة من برمجتي لاتحتاج تنصيب ، فايدتها في جلب اللون بصيغة Hex و RBG
طريقة الاستخدام بسيطه كل ماعليك تضع الماوس على اللون وتضغط رقم (7)
وراح تشوف بيانات اللون في الخانة . :73:



- صورة الاداة -









[DOWNLOAD] https://sites.google.com/site/mlfn4t...edirect&d=1 [/DOWNLOAD]










تم البرمجه بلغة AUTOLT

السورس

[INFO]

#include
#include
#include
#include
#include
#include
#include


Opt("TrayIconHide", 1)

HotKeySet("{7}", "Terminate2")
$pos = MouseGetPos()

Global $GUI = GUICreate("GetColorHex By [~M~]", 250, 250)
Global $History = GUICtrlCreateLabel("" , 0,0,250, 250)
GUICtrlSetBkColor(-1, 0xCCDAE7)

Global $History = GUICtrlCreateLabel("قيمة اللون :" , 70, 25, 100, 25)
GUICtrlSetBkColor(-1, 0xCCDAE7)


Global $History87 = GUICtrlCreateLabel("HEX:" ,44, 56, 50, 25)
GUICtrlSetBkColor(-1, 0xCCDAE7)

Global $PopSpeak = GUICtrlCreateInput("", 70, 50, 100, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlRead($PopSpeak, 1)

Global $History87 = GUICtrlCreateLabel("RBG:" ,44, 87, 50, 25)
GUICtrlSetBkColor(-1, 0xCCDAE7)
Global $PopSpeak211 = GUICtrlCreateInput("", 70, 78, 100, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlRead($PopSpeak211, 1)

Global $History77 = GUICtrlCreateLabel("** حدد مكان اللون بالماوس واضغط الرقم 7" , 10, 120, 230, 35)
GUICtrlSetBkColor(-1, 0xCCDAE7)
GUICtrlSetColor($History77,0xFF0000)

Global $History33 = GUICtrlCreateLabel(" سبحان الله وبحمده سبحان الله العظيم" , 30, 230, 170, 25)

GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)


Func Terminate2()
$pos = MouseGetPos()
Local $iColor = PixelGetColor($pos[0], $pos[1])
$hex = Hex($iColor, 6)
$hex2 ="0x" & Hex($iColor, 6)
ClipPut($hex2)
GUICtrlSetData($PopSpeak, $hex2 & @CRLF, 0)
$HR = StringMid($hex, 1, 2)
$HG = StringMid($hex, 3, 2)
$HB = StringMid($hex, 5, 2)
$R = Dec($HR)
$G = Dec($HG)
$B = Dec($HB)

GUICtrlSetData($PopSpeak211, $R & ", " & $G & ", " & $B & @CRLF, 0)
EndFunc


While 1
$msg = GUIGetMsg()
Select
Case $msg = -3
Exit
EndSelect
WEnd

[/INFO]

المصدر...