[solved] caps lock makro

[babiniec4]

Witam. Czy istnieje makro, które sprawdzałoby czy klawisz caps lock jest włączony?

[belstar]

Przykład działa tylko w Windows, testowałem na XP. Co do innych systemów nie wiem

Kod: Zaznacz cały

Public Declare Function GetKeyState Lib "USER32" (ByVal nVirtKey As Long) As Integer
Const VK_CAPITAL = &H14

Sub CheckKeyCapsLock()
  If GetKeyState(VK_CAPITAL) = 1 Then
    MsgBox "Włączony Caps Lock"
  Else
    MsgBox "Caps Lock wyłączony"
  End If
End Sub

[Husar]

W Windows 7 działa.

[babiniec4]

Dziekuję bardzo Belstar- pod windows 8 też działa a swoją drogą skąd takie nietypowe makra zdobywasz ...heh

[Jan_J]

W systemach opartych na X11 można skorzystać ze skryptu systemowego, np.

Kod: Zaznacz cały

xset q | grep LED | sed -e "s/^.*\(.\)$/\1/"

albo z funkcji biblioteki Xlib. Na przykład w skrypcie Pythona

Kod: Zaznacz cały

from Xlib.display import Display
dsp = Display(None)
caps = dsp.get_keyboard_control().led_mask and 1
print (caps)

Użytkownicy OpenOffice'ów dostarczanych wraz z Linuksem mogą z niego zapewne skorzystać wprost. Jednak instalacje firmowe od Apache albo LibreOffice mają wbudowanego własnego Pythona, w którym nie ma Xlib, a instalacja rozszerzeń jest nieco problematyczna. W tej sytuacji trzeba by albo pogrzebać po bibliotekach *Office'a, albo skorzystać z zewnętrznego skryptu (w dowolnym języku, np. tego z góry) i przechwycić zwracany przez niego wynik.