Color Picker

[Adam99]

Jeden z urządzeń minutowych, jaki jest stworzony od innego czasu, jest przeznaczony tylko dla systemu Windows:

Code: (Select All)

 Dim WinMse As POINTAPI 

Typ POINTAPI: As Long X_Pos, Y_Pos: End Type 

Deklaracja biblioteki „ User32” Funkcja GetWindowLongA& ( ByVal hwnd As Long , ByVal nIndex As Long ) Funkcja SetWindowLongA& ( ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long ) Funkcja GetAsyncKeyState% ( ByVal vkey As Long ) Funkcja GetCursorPos (lpPoint As POINTAPI) Endacja Szerokość 12 , 1 ' znak towarowy, aby otrzymać wartość znaku w szesnastkowym GWL_STYLE = -16 ws_border = &H800000 WS_VISIBLE = &H10000000 _Title "Wybór koloru" hwnd& = _WindowHandle winstyle& = GetWindowLongA& (hwnd&, GWL_STYLE) _Delay .2 a& = SetWindowLongA& (hwnd&, GWL_STYLE, winstyle& i WS_VISIBLE) Kolor 15 Wykonaj _Limit 30     z = GetCursorPos (WinMse) _ScreenMove WinMse.X_Pos + 1 , WinMse.Y_Pos + 1     obraz tymczasowy = _ScreenImage Cls , 0 _źródło tempimage: Print Hex$ ( Point (WinMse.X_Pos, WinMse.Y_Pos));: _Źródło 0 _FreeImage tempimage _Wyświetl pętlę do momentu PobierzAsyncKeyState ( 1 ) Lub PobierzAsyncKeyState ( 2 ) Lub PobierzAsyncKeyState ( 27 ) System 

Uruchomione. Poruszaj myszką po ekranie. Myślę, że łatwo i łatwo się bawię, co dla Ciebie robi.
   
   

Wygląda jak fajny mały program, który pobiera kolor piksela pod kursorem. Poruszasz myszką, a ona pokazuje kolor w formacie szesnastkowym. Działa w pętli, dopóki nie klikniesz myszą lub nie naciśniesz Escape. Proste, ale przydatne narzędzie