چگونه با کد numlock را روشن کنم

[alisabet]

سلام :

چرا هر وقت در کدنویسی از کد senkey استفاده میکنم numlock خاموش میشود حالا چگونه مجددا با کد ، numlock را روشن کنم

[generalsamad]

با سلام
یک ماژول ایجاد کنید و کد زیر رو براش قرار بدید
این کد برای خاموش و روشن کردن و سویچ هست
3تا کد ماکرو داره

Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2
Declare Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer
 
Sub NUM_TOGGLE()
         keybd_event VK_NUMLOCK, 1, 0, 0
    keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End Sub
 
Sub NUM_On() 
    If Not (GetKeyState(vbKeyNumlock) = 1) Then
        keybd_event VK_NUMLOCK, 1, 0, 0
        keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
    End If
End Sub
 
Sub NUM_Off() 
    If (GetKeyState(vbKeyNumlock) = 1) Then
        keybd_event VK_NUMLOCK, 1, 0, 0
        keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
    End If
End Sub 

[alisabet]

بسیار عالی - ممنون