Switch Off Num Lock

[IdeasVacuum]

This code switches Num Lock on:

Code: Select all

Global NumLockOn.INPUT
       NumLockOn\type = #INPUT_KEYBOARD
       NumLockOn\ki\wVk = #VK_NUMLOCK
       NumLockOn\ki\wScan = 144
       NumLockOn\ki\dwFlags = 0
       NumLockOn\ki\time = 0
       NumLockOn\ki\dwExtraInfo = 0

If(GetKeyState_(#VK_NUMLOCK) = #False) : SendInput_(1,@NumLockOn,SizeOf(INPUT)) : EndIf

This code however, does not switch Num Lock off:

Code: Select all

Global NumLockOff.INPUT
       NumLockOff\type = #INPUT_KEYBOARD
       NumLockOff\ki\wVk = #VK_NUMLOCK
       NumLockOff\ki\wScan = 144
       NumLockOff\ki\dwFlags = #KEYEVENTF_KEYUP
       NumLockOff\ki\time = 0
       NumLockOff\ki\dwExtraInfo = 0

If(GetKeyState_(#VK_NUMLOCK) = #True) : SendInput_(1,@NumLockOff,SizeOf(INPUT)) : EndIf

What am I doing wrong?

[netmaestro]

You must press and release the key, as you would physically:

Code: Select all

Procedure NumLock_ON()
  Dim numlock.INPUT(1)
  
  With numlock(0)
    \type = #INPUT_KEYBOARD
    \ki\wVk = #VK_NUMLOCK
    \ki\wScan = 144
    \ki\dwFlags = 0
    \ki\time = 0
    \ki\dwExtraInfo = 0
  EndWith
  
  With numlock(1)
    \type = #INPUT_KEYBOARD
    \ki\wVk = #VK_NUMLOCK
    \ki\wScan = 144
    \ki\dwFlags = #KEYEVENTF_KEYUP
    \ki\time = 0
    \ki\dwExtraInfo = 0
  EndWith
  
  If Not GetKeyState_(#VK_NUMLOCK)
    SendInput_(2,@NumLock(),SizeOf(INPUT)) 
  EndIf
  
  ProcedureReturn
EndProcedure

Procedure NumLock_OFF()
  Dim numlock.INPUT(3)
  
  With numlock(0)
    \type = #INPUT_KEYBOARD
    \ki\wVk = #VK_NUMLOCK
    \ki\wScan = 144
    \ki\dwFlags = 0
    \ki\time = 0
    \ki\dwExtraInfo = 0
  EndWith
  
  With numlock(1)
    \type = #INPUT_KEYBOARD
    \ki\wVk = #VK_NUMLOCK
    \ki\wScan = 144
    \ki\dwFlags = #KEYEVENTF_KEYUP
    \ki\time = 0
    \ki\dwExtraInfo = 0
  EndWith
  
  If GetKeyState_(#VK_NUMLOCK)
    SendInput_(2,@NumLock(),SizeOf(INPUT)) 
  EndIf
  
  ProcedureReturn
EndProcedure


NumLock_ON()

Delay(3000)

NumLock_OFF()

[ts-soft]

This switches the numlock

Code: Select all

Procedure SwitchNumlock()
  keybd_event_(#VK_NUMLOCK, 0, 0, 0) 
  keybd_event_(#VK_NUMLOCK, 0, #KEYEVENTF_KEYUP, 0)
EndProcedure

For i = 0 To 100
  SwitchNumlock()
  Delay(200)
Next

[netmaestro]

Deprecated

[IdeasVacuum]

Thanks netmaestro, I'll stick with the SendInput method.

Works really nicely, I think I'll just sit here for a while watching the LED toggle on/of.........

[netmaestro]

Works really nicely, I think I'll just sit here for a while watching the LED toggle on/of.........

I bet it doesn't cost your family much to please you at Christmas

[IdeasVacuum]

..... could use the keyboard as an xmas tree light

[MachineCode]

Deprecated

Not until Microsoft removes it from the OS.

[Shield]

Well it is officially marked as superseded by Microsoft.
So SendInput should be used.

[IdeasVacuum]

Thanks for your tip too TS-Soft, didn't spot it was yours yesterday because for some strange reason netmaestro's frog image replaced yours........

Looks as though MS are finally moving away from some of the older API. You can often see why they would want to, but sometimes the replacement could have been better designed.