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

[rss]

https://sites.google.com/site/mlfn4t/mlf/dev1.gif?attredirects=0


http://www.iconarchive.com/show/oxygen-icons-by-oxygen-icons.org/Actions-color-picker-black-icon.html
أقدم لكم اداة من برمجتي لاتحتاج تنصيب ، فايدتها في جلب اللون بصيغة Hex و RBG
طريقة الاستخدام بسيطه كل ماعليك تضع الماوس على اللون وتضغط رقم (7)
وراح تشوف بيانات اللون في الخانة . :73:



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


https://128b8fec-a-62cb3a1a-s-sites.googlegroups.com/site/mlfn4t/mlf/getcolorhex.png?attachauth=ANoY7cqTNzeNh47ZJQ2lrqc PPWVNUeH3VLR8D_Hn9I0Vi6OP6YWPPkBjVaGZ2yyR_ilkJa8aV Iv-czDnTzfqpWj6rTEojKLqM4h4C9ffTTfdKowDlHLOR-426m0WJawmybzDGmdJQGpWyARlcJcXWXUBxvX8I_qezSl0X67f O2WksKU5Cr0gR1kIiEytoXIhC0N5wFdhM1NP786G10jzp-QIufy1lphZzg%3D%3D&attredirects=0





https://sites.google.com/site/mlfn4t/mlf/dev3.gif?attredirects=0
https://sites.google.com/site/mlfn4t...edirects=0&d=1 (https://sites.google.com/site/mlfn4t/mlf/getColorHexOnScreen.zip?attredirects=0&d=1)





https://sites.google.com/site/mlfn4t/mlf/dev6.gif?attredirects=0




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

السورس






#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









المصدر... (http://www.dev-point.com/vb/t620349.html)