Re: [WINNT] Żeby piszczał Caps-Lock

[Adam Lubszczyk <adam_l@poczta.onet.pl>]

czwartek, 26 października 2023 o 08:28:40 UTC+2 Adam Lubszczyk napisał(a):
> środa, 25 października 2023 o 22:30:22 UTC+2 Adam napisał(a): 
> > Witajcie. 
> > 
> > 
> > Szukam programu, który będzie piszczał przy naciśnięciu dowolnego 
> > literowo-cyfrowego klawisza, o ile jest włączony Caps-Lock. 
> >
> Zrób sobie np. za pomocą AutoIt3. Przykładowy skrypt (który można potem 
> skompilować do exe) 
> 
> #include <WinAPISys.au3> 
> #include <WinAPIvkeysConstants.au3> 
> 
> While 1 
> If BitAND(_WinAPI_GetKeyState($VK_CAPITAL), 1) Then 
> Beep(1000,50) 
> Endif 
> Sleep(500) 
> Wend 
> 
> 
> Po uruchomieniu siedzi sobie w tray-u (skąd można go wyłączyć) i pipka co pół 
> sekundy gdy jest włączony CAPS LOCK :) 
> 
> Adam

Ewentualnie wersja która działa chyba jak chciałeś -pipka jeśli wciśnięto 
klawisz od A do Z przy włączonym CAPS LOCK  :)

#include <WinAPISys.au3>
#include <WinAPIvkeysConstants.au3>

Local Const $iBitMask = 0x8000 ; a bit mask to strip the high word bits from 
the return of the function.

While 1
 If BitAND(_WinAPI_GetKeyState($VK_CAPITAL), 1) Then
    For $i = $VK_A To $VK_Z         ; klawisze  od A do Z
       If BitAND(_WinAPI_GetAsyncKeyState($i), $iBitMask) <> 0  Then
          Beep(1000,50)
          ExitLoop
       Endif
    Next
 Endif
 Sleep(100)
Wend



Adam