You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
152 lines
5.0 KiB
152 lines
5.0 KiB
#include <GUIconstants.au3> |
|
#include <GUIConstantsEx.au3> |
|
#include<Misc.au3> |
|
#NoTrayIcon |
|
|
|
Opt("WinTitleMatchMode", 4) |
|
Opt("WinWaitDelay", 0) |
|
Opt("GUIonEventMode",1) |
|
|
|
;~ Global $SRCCOPY = 0x00CC0020 |
|
Global $leave = 0 |
|
Global $Paused=0 |
|
$MouseModifier = 1 |
|
$PressedTime = 1 |
|
|
|
|
|
|
|
HotKeySet("{PAUSE}", "TogglePause") |
|
HotKeySet("{INS}", "_copyHEX") |
|
|
|
Tooltip("AU3MAG", 0, 0,"","",4) |
|
$MyhWnd = WinGetHandle("classname=tooltips_class32") |
|
|
|
GUICreate("PC", 180, 230,0, 0, -1, $WS_EX_TOPMOST) |
|
GUISetOnEvent($GUI_EVENT_CLOSE,"_exit") |
|
|
|
GUICtrlCreateGroup(" Mouse coords ", 10, 10, 160, 50) |
|
GUICtrlCreateLabel("X:", 25, 33, 15, 15) |
|
$MousePosX=GUICtrlCreateInput("", 40, 30, 40, 20, $ES_READONLY) |
|
GUICtrlCreateLabel("Y:", 90, 33, 15, 15) |
|
$MousePosY=GUICtrlCreateInput("", 105, 30, 40, 20, $ES_READONLY) |
|
|
|
GUICtrlCreateGroup(" Color codes ", 10, 70, 160, 110) |
|
GUICtrlCreateLabel("Decimal:", 25, 93, 50, 15) |
|
$PixelColor=GUICtrlCreateInput("", 80, 90, 70, 20, $ES_READONLY) |
|
GUICtrlCreateLabel("Hex:", 25, 123, 50, 15) |
|
$hexColor=GUICtrlCreateInput("", 80, 120, 70, 20,$ES_READONLY) |
|
GUICtrlCreateLabel("Color:", 25, 153, 50, 15) |
|
$MostrarColor=GUICtrlCreateLabel("", 80, 150, 70, 20,$ES_READONLY) |
|
|
|
GUICtrlCreateLabel("PAUSE: Freeze/Unfreeze", 0, 185 ,180,15,$SS_CENTER) |
|
GUICtrlSetColor(-1,0x00808080) |
|
GUICtrlCreateLabel("INS: Copy hex code to clipboard", 0, 205 ,180,15,$SS_CENTER) |
|
GUICtrlSetColor(-1,0x00808080) |
|
|
|
GUISetIcon (@ScriptDir & "\pipette.ico") |
|
|
|
GUISetState() |
|
data() |
|
|
|
Func data() |
|
|
|
While 1 |
|
Sleep(50) |
|
Opt("WinTitleMatchMode",4) |
|
If (_IsPressed(25) + _IsPressed(26) + _IsPressed(27) + _IsPressed(28)) = 0 Then |
|
_ResetSpeed() |
|
EndIf |
|
$msg=GUIGetMsg() |
|
Select |
|
Case $msg=$GUI_EVENT_CLOSE |
|
Exit |
|
EndSelect |
|
|
|
WinSetState($MyhWnd,"",@SW_HIDE) |
|
|
|
|
|
Opt("MouseCoordMode", 0) |
|
Opt("PixelCoordMode", 0) |
|
Opt("WinTitleMatchMode",1) |
|
$win = WinGetPos("") |
|
$pos=MouseGetPos() |
|
If $pos[0] >= 0 And $pos[0] <= $win[2] and $pos[1] >= 0 And $pos[1] <= $win[3] Then |
|
$color=PixelGetColor($pos[0],$pos[1]) |
|
GUICtrlSetData($MousePosX, $pos[0]) |
|
GUICtrlSetData($MousePosY, $pos[1]) |
|
GUICtrlSetData($PixelColor,$color) |
|
$HEX6=StringRight(Hex($color),6) |
|
GUICtrlSetData($hexColor,"0x"&$HEX6) |
|
GUICtrlSetBkColor($MostrarColor,"0x"&Hex($color)) |
|
Else |
|
GUICtrlSetData($MousePosX, "----") |
|
GUICtrlSetData($MousePosY, "----") |
|
GUICtrlSetData($PixelColor,"") |
|
GUICtrlSetData($hexColor,"") |
|
EndIf |
|
|
|
WEnd |
|
EndFunc |
|
|
|
Func TogglePause() |
|
$Paused = NOT $Paused |
|
While $Paused |
|
sleep(10) |
|
$msg=GUIGetMsg() |
|
Select |
|
Case $msg=$GUI_EVENT_CLOSE |
|
Exit |
|
EndSelect |
|
WEnd |
|
EndFunc |
|
|
|
|
|
|
|
Func nada() |
|
EndFunc |
|
|
|
Func _copyHEX() |
|
ClipPut(Guictrlread($hexColor)) |
|
EndFunc;==>_ShowInfo |
|
|
|
Func _BoostMouseSpeed() |
|
If IsInt($PressedTime / 10) Then |
|
$MouseModifier = $MouseModifier + 1 |
|
$PressedTime = $PressedTime + 1 |
|
Else |
|
$PressedTime = $PressedTime + 1 |
|
EndIf |
|
EndFunc |
|
|
|
Func _ResetSpeed() |
|
$MouseModifier = 1 |
|
$PressedTime = 1 |
|
EndFunc;==>_ResetSpeed |
|
|
|
Func CrossHairsSOLID(ByRef $hdc) |
|
Local $hPen, $hPenOld |
|
$hPen = DllCall("gdi32.dll","hwnd","CreatePen","int",0,"int",5,"int",0x555555) |
|
$hPenOld = DllCall("gdi32.dll","hwnd","SelectObject","int",$hdc,"hwnd",$hPen[0]) |
|
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",52,"int",0,"ptr",0) |
|
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",52,"int",46) |
|
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",52,"int",58,"ptr",0) |
|
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",52,"int",100) |
|
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",0,"int",52,"ptr",0) |
|
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",46,"int",52) |
|
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",58,"int",52,"ptr",0) |
|
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",100,"int",52) |
|
DllCall("gdi32.dll","hwnd","SelectObject","int",$hdc,"hwnd",$hPenOld[0]) |
|
DllCall("gdi32.dll","int","DeleteObject","hwnd",$hPen[0]) |
|
EndFunc |
|
|
|
Func CrossHairsINV(ByRef $hdc) |
|
;~ Local CONST $NOTSRCCOPY = 0x3300087 |
|
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",50,"int",0,"int",5,"int",49,"int",$hdc,"int",50,"int",0,"int",$NOTSRCCOPY) |
|
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",50,"int",56,"int",5,"int",49,"int",$hdc,"int",50,"int",56,"int",$NOTSRCCOPY) |
|
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",0,"int",50,"int",49,"int",5,"int",$hdc,"int",0,"int",50,"int",$NOTSRCCOPY) |
|
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",56,"int",50,"int",44,"int",5,"int",$hdc,"int",56,"int",50,"int",$NOTSRCCOPY) |
|
EndFunc |
|
|
|
Func _exit() |
|
Exit |
|
EndFunc |