Tastatur-Lichter mit VB zum blinken bringen...

[Thombo]

Hi !!

Jeder von euch kennt doch die drei LED's auf der TAstatur.

Ist es möglich, eine Anwendung mit VB zu stricken, die diese Lampen einzeln ansteuert?

(z.B. für ein Lauflicht, oder dass alle gleichzeitig blinken..)

Need Help....

Thombo

[*I C Q*]

Moin Thombo,

Public Type KeyboardBytes

kbByte(0 To 255) As Byte

End Type

Public kbArray As KeyboardBytes

Public Const VK_CAPITAL = &H14

Public Const VK_SCROLL = &H91

Public Const VK_NUMLOCK = &H90


Public Declare Function SetKeyboardState Lib "user32" (lppbKeyState As KeyboardBytes) As Long

Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long



Sub main()

    'NUMLOCK an = 1; aus = 0

    GetKeyboardState kbArray

    kbArray.kbByte(VK_NUMLOCK) = 1

    SetKeyboardState kbArray


    'CAPSLOCK an = 1; aus = 0    

    kbArray.kbByte(VK_CAPITAL) = i Mod 2

    SetKeyboardState kbArray


    'SCROLLLOCK an = 1; aus = 0

    kbArray.kbByte(VK_SCROLL) = i Mod 2

    SetKeyboardState kbArray

End Sub

In einem VB_Projekt ein Modul anlegen, die entsprechenden Typen deklarieren und dann nur noch die Funktionen aufrufen!

Näheres unter www.vbworld.com -> CODE -> Mouse and Keyboard -> How to activate CapsLock and Numlock from Code

Viel Spass damit!

CU,

Red Bull