AutoHotKey Color Maker - Trình tạo màu đơn giản

Cái ý tưởng làm một ứng dụng tạo màu này mình nghĩ ra cũng lâu rồi, nay mới có thể làm được.

Hướng dẫn:

Các bạn kéo 3 cái Slider đó để thay đổi màu sắc
Cái phần Pixel Get Color thì quen quá rồi, có gì không biết thì click vào cái Button ?​

Ảnh:



Link download:

Nội dung bị ẩn:

** Nội dung ẩn: Bạn phải nhấn 'Like' trước khi bạn có thể xem các dữ liệu ẩn chứa ở đây. **

Mã nguồn:

Mã (Autohotkey):

; Skin đính kèm bên dưới bài viết
;Skin chỉ chạy với bản 32bit
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#SingleInstance Force
OnMessage(0x232, "Move")
;~ Var ---------------------------------------------------
My_Color := "000000"
C_Red := 00
C_Green := 00
C_Blu := 00
Hex:= "0x"
;~ Skin ---------------------------------------------------
;~ Best Skin: invoice,Milikymac,PaperAGV
SkinForm(Apply, A_ScriptDir . "\USkin.dll", A_ScriptDir . "\Milikymac.msstyles")



;~ Control ---------------------------------------------------
;~ =====================================================
;~ --------------------------------------------------------
Gui 1:Add, Slider, x20 y6 w45 h120 vertical  center range0-255 Invert    AltSubmit vSRed gSetRed, 0
Gui 1:Add, Slider, x90 y6 w45 h120 vertical Center range0-255 Invert  AltSubmit vSGreen gSetGreen, 0
Gui 1:Add, Slider, x160 y6 w45 h120 vertical Center range0-255  Invert  AltSubmit vSBlu gSetBlu, 0
Gui 1:Add, Edit, x10 y130 w59 h23 +0x800201 Border ReadOnly cRed vTRed , Red: 00
Gui 1:Add, Edit, x80 y130 w59 h23 +0x800201 Border ReadOnly cGreen vTGreen,Green: 00
Gui 1:Add, Edit, x150 y130 w59 h23 +0x800201 Border ReadOnly cBlue vTBlu, Blue: 00
Gui 1:Add, Edit, x10 y160 w200 h23 +0x800201 Border ReadOnly vHColor, Hex Color: 000000
Gui 1:Add, Button, x10 y190 w170 h25 gGet_Color  , Pixel Get Color
Gui 1:Add, Button, x185 y190 w25 h25 gHelp  , ?


;~ GUI ---------------------------------------------------
;~ =====================================================
;~ --------------------------------------------------------
Gui 1:+alwaysontop -MinimizeBox
Gui 1: Show, AutoSize, Color Maker
WinGetPos,X, Y,,,Color Maker
X1:=X-110
gui,2:color,%my_color%
Gui 2:+alwaysontop  -SysMenu
Gui 2: Show,x%X1% y%Y%  w100 h100, Color Test

return


;~ HotKey---------------------------------------------------
;~ =====================================================
;~ --------------------------------------------------------
Esc::
SkinForm(0)
ExitApp



;~ Kết nối Control ---------------------------------------------------
;~ =====================================================
;~ --------------------------------------------------------
Help:
MsgBox,262176,Help !,Nhấp chuột phải để lấy màu , chuột trái để kết thúc
return

Get_Color:
isPressed := 0
Loop
{
Left_Mouse := GetKeyState("LButton")
Right_Mouse := GetKeyState("RButton")
if(Left_Mouse==False&&isPressed==0)
isPressed := 1
else if(Left_Mouse==True&&isPressed==1)
{
MouseGetPos,The_X,The_Y
PixelGetColor,Picker_Color,The_X,The_Y, RGB
Gui, 2:Color, %Picker_Color%
StringRight,Color,Picker_Color,6
GuiControl,,HColor,Hex Color: %Color%
StringMid,Red,Picker_Color,3,2
GuiControl,,TRed,Red: %Red%
SCR:=Hex Red
SCR:=SCR +0
GuiControl,,SRed,%SCR%
StringMid,Green,Picker_Color,5,2
GuiControl,,TGreen,Green: %Green%
SCG:=Hex Green
SCG:= SCG +0
GuiControl,,SGreen,%SCG%
StringMid,Blu,Picker_Color,7,2
GuiControl,,TBlu,Blue: %Blu%
SCB:=Hex Blu
SCB:= SCB +0
GuiControl,,SBlu,%SCB%
}
else if(Right_Mouse==True)
break
}
return

SetRed:
Gui,Submit,NoHide
C_Red := SRed
SetFormat,IntegerFast,Hex
if(C_Red<16)
{
StringRight, C_Red, C_Red, 1
C_Red := 0 C_Red
}
if(C_Red>=16)
StringRight, C_Red, C_Red, 2
My_Color:=C_Red C_Green C_Blu
GuiControl,,TRed,Red: %C_Red%
GuiControl,,HColor,Hex Color: %My_Color%
gui,2:color,%My_Color%
SetFormat,IntegerFast,D
return
SetGreen:
Gui,Submit,NoHide
C_Green := SGreen
SetFormat,IntegerFast,Hex
if(C_Green<16)
{
StringRight, C_Green, C_Green, 1
C_Green := 0 C_Green
}
if(C_Green>=16)
StringRight, C_Green, C_Green, 2
My_Color :=C_Red C_Green C_Blu
GuiControl,,TGreen,Green: %C_Green%
GuiControl,,HColor,Hex Color: %My_Color%
gui,2:color,%My_Color%
SetFormat,IntegerFast,D
return
SetBlu:
Gui,Submit,NoHide
C_Blu := SBlu
SetFormat,IntegerFast,Hex
if(C_Blu<16)
{
StringRight, C_Blu, C_Blu, 1
C_Blu := 0 C_Blu
}
if(C_Blu>=16)
StringRight, C_Blu, C_Blu, 2
My_Color :=C_Red C_Green C_Blu
GuiControl,,TBlu,Blue: %C_Blu%
GuiControl,,HColor,Hex Color: %My_Color%
gui,2:color,%My_Color%
SetFormat,IntegerFast,D
return

GuiClose:
SkinForm(0)
ExitApp







;~ Function ---------------------------------------------------
;~ =====================================================
;~ --------------------------------------------------------
Move()
{
WinGetPos,X, Y,,,Color Maker
X1:=X-110
WinMove,Color Test,,X1,Y
}






SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
    if(Param1 = Apply){
        DllCall("LoadLibrary", str, DLL)
            DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
    }else if(Param1 = 0){
        DllCall(DLL . "\USkinExit")
        }
}

 

zậy chắc em chuyển ngược lại chuột phải lấy màu, chuột trái tắt vậy :p

 

Ok em đã sửa

 

Làm ơn cho mình hỏi. Làm cách nào để biến file .exe về file nguồn .ahk để chỉnh sửa ạ.
Mình có tìm google vài cách nhưng đều không được.
Giúp mình với, tks!

 

Keyword: AHK Decompiler

 

Cảm ơn bác nhiều nhưng mình tìm về toàn file ahk chạy mãi mà k đc. K biết bạn có sẵn file nào ko share dùm mình với. Tks!

 

Đây!

 

Cảm ơn bác nhiều. Chúc bác tuần mới làm việc vui vẻ!