Keyboard Lights On And Off
Keyboard Lights On And Off
API Declarations
Private Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" (lppbKeyState As Byte) As Long
Private Const VK_CAPITAL = &H14
Private Const VK_NUMLOCK = &H90
Rate Keyboard Lights On And Off
(1(1 Vote))
redim keyboard buffer(256) as byte
get keyboardstate keyboardbuffer(0)
if keyboardbuffer(vk_capital) and 1 then
keyboardbuffer(vk_capital)=0
else
keyboardbuffer(vk_capital)=1
end if
if keyboardbuffer(vk_numlock) and 1 then
keyboardbuffer(vk_numlockl)=0
else
keyboardbuffer(vk_numlockl)=1
end if
set keyboardstate keyboardbuffer(0)
end sub
Keyboard Lights On And Off Comments
No comments yet — be the first to post one!
Post a Comment