Dim WinMse As POINTAPI

Type POINTAPI: As Long X_Pos, Y_Pos: End Type



Declare Dynamic Library "User32"

    Function GetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long)

    Function SetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

    Function GetAsyncKeyState% (ByVal vkey As Long)

    Function GetCursorPos (lpPoint As POINTAPI)

End Declare

Width 12, 1 'large enough to hold our color value in hex

GWL_STYLE = -16

ws_border = &H800000

WS_VISIBLE = &H10000000

_Title "Color Picker"

hwnd& = _WindowHandle

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

_Delay .2

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& And WS_VISIBLE)



Color 15

Do

    _Limit 30

    z = GetCursorPos(WinMse)

    _ScreenMove WinMse.X_Pos + 1, WinMse.Y_Pos + 1

    tempimage = _ScreenImage

    Cls , 0

    _Source tempimage: Print Hex$(Point(WinMse.X_Pos, WinMse.Y_Pos));: _Source 0

    _FreeImage tempimage

    _Display

Loop Until GetAsyncKeyState(1) Or GetAsyncKeyState(2) Or GetAsyncKeyState(27)

System

(Yesterday, 11:58 PM)Pete Wrote: @SMcNeill

Step 1) Right click the exe file. In the menu, click: Pin to Taskbar.

Step 2) Move it in your Task Bar so it is no more than 10 icons from the left. Let's say it is #8.

Step 3) Hold the Windows key and press the number 8.

That will open it. Unfortunately, I do not believe repeating the Win + 8 will toggle it closed. Sorry.

Pete