Caps Num & Scroll Локи...

[Шнурок]

Как сделать так, что бы при занрузки формы включался NumLock

[XairOn]

Вот так попробуй:

Код: Выделить всё

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Const VK_NUMLOCK = &H90

Private Sub Form_Load()
keybd_event VK_NUMLOCK, 0, 0, 0
End Sub


[Шнурок]

Код: Выделить всё

keybd_event VK_NUMLOCK, 0, 0, 0

А можете пояснить что значат 3 нуля посл VK_NUMLOCK

[tyomitch]

VOID keybd_event(
BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // function options
ULONG_PTR dwExtraInfo // additional keystroke data
);

Parameters

bVk
[in] Specifies a virtual-key code. The code must be a value in the range 1 to 254. For a complete list, see Virtual-Key Codes.

bScan
This parameter is not used.

dwFlags
[in] Specifies various aspects of function operation. This parameter can be one or more of the following values.
KEYEVENTF_EXTENDEDKEY: If specified, the scan code was preceded by a prefix byte having the value 0xE0 (224).
KEYEVENTF_KEYUP: If specified, the key is being released. If not specified, the key is being depressed.

dwExtraInfo
[in] Specifies an additional value associated with the key stroke.

[XairOn]

В предыдущем примере небольшой баг, вот так вс ok:

Код: Выделить всё

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

Const VK_NUMLOCK = &H90

Private Sub Form_Load()
If GetKeyState(VK_NUMLOCK) = 0 Then keybd_event VK_NUMLOCK, 0, 0, 0
End Sub


[Mleha]

Клавиша получается не отпущена!

Код: Выделить всё

If GetKeyState(VK_NUMLOCK) = 0 Then keybd_event VK_NUMLOCK, 0, 0, 0


Надо так:

Код: Выделить всё

Const KEYEVENTF_KEYUP = &H2
Const VK_NUMLOCK = &H90

keybd_event VK_NUMLOCK, 0, 0, 0
keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYUP , 0


[Шнурок]

А как отключить?

[XairOn]

Второй раз, ту же самую операцию выполнить!