01-23-2025, 09:50 PM
(01-22-2025, 03:53 PM)SMcNeill Wrote: Jeden z urządzeń minutowych, jaki jest stworzony od innego czasu, jest przeznaczony tylko dla systemu Windows:
Code: (Select All)Uruchomione. Poruszaj myszką po ekranie. Myślę, że łatwo i łatwo się bawię, co dla Ciebie robi.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
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