Sendkeys Numlock

[cow18]

Sub Numlock()
     Application.SendKeys ("{NUMLOCK}"), True     '-----> je numlocks waren weg,   ZIJN DIE NU TERUG ???????
End Sub

Mijn Numlock wordt door gebruik van outlook uitgeschakeld en die wil ik eventjes met deze macro terug inschakelen, maar dat werkt niet.
Wat is er fout aan deze macro ?

 

[JEC.]

Als je het via het shellobject doet, wordt je numlock niet uitgeschakeld.

CreateObject("WScript.Shell").SendKeys  ........

of

Sub jec()
Application.SendKeys ......
DoEvents
Application.SendKeys ......
End Sub

 

[snb]

Ik ken alleen maar deze:

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

Sub M_snb_NUMlock_aan()
   keybd_event &H90, 0, 0, 0
   keybd_event &H90, 0, &H2, 0
End Sub

 

[cow18]

waw, snelle bediening.
Beide oplossingen werken.
Is er ook een methode om te weten of de numlocks aan/uit zijn ?
iets in de zin van if Numlocks=false then ...
ik ondervind dat wel, maar het zou gemakkelijker zijn, wanneer je terugkomt uit een ander programma, dat je op zijn minst die numlocks goed hebt.

 

[edmoor]

Daar gebruik ik dit voor:

#If Win64 Then
    Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

Public Function NumLocks()
    Let NumLocks = CBool(GetKeyState(vbKeyNumlock) And 1)
End Function

Voorbeeldje gebruik:

Sub tst()
    If Not NumLocks Then MsgBox "Numlock is uit"
End Sub

 

[snb]

@edm

Zo lukt het ook:

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Sub M_snb()
    MsgBox GetKeyState(vbKeyNumlock)   '   of
    MsgBox GetKeyState(144)                 '   of
    MsgBox GetKeyState(&H90)
End Sub

 

[edmoor]

Ok, thanks

Dus voor TS, deze functie:

#If Win64 Then
    Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

Function NumLocks() As Boolean
    NumLocks = GetKeyState(vbKeyNumlock)
End Function

 

[snb]

Ik denk niet dat Cow18 met een 64 Bits versie werkt.

 

[edmoor]

Er zijn meer lezers.