numlock butonunun kapanması

[FERAZ]

Konuyu açan arkadaştan ses solukta yok
Sanki soruyu ben sormuş gibi oldum kusura bakmayın.
Acaba önceki mesaj için çözüm yok mudur?

 

[tamer42]

Her ne kadar API sevilmese de, çoğu zaman ben tercih ederim.

Düzenleme: CapsLock yerine NumLock olarak değiştrildi.

#If Win64 Then
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
#Else
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
#End If
  
Sub Test3()
    'NumLock kapalı ise aç...
    If Not GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
End Sub

Private Function GetNumLockKey() As Boolean
    GetNumLockKey = GetKeyState(vbKeyNumlock)
End Function

Zeki Hocam yukarıda vermiş olduğunuz kodda;
NumLock yerine CapsLock olarak aşağıdaki gibi değiştirdiğimde;

CapsLock kapalı ise açıyor, açık ise kapatıyor.

Benim istediğim CapsLock açık ise kapatsın..

teşekkürler,

Sub Test3()
    If Not GetCapsLockKey Then CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"
End Sub

Private Function GetCapsLockKey() As Boolean
    GetCapsLockKey = GetKeyState(vbKeyCapsLock)
End Function

 

[beab05]

Merhaba;

Aşağıdaki gibi CapsLock açık ise kapatır.

#If Win64 Then

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

#Else

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

#End If

Sub Test3()

    'CapsLock açık ise ise kapat...

     If (GetKeyState(vbKeyCapital) = 1) Then

        CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"

     End If

End Sub

 

[tamer42]

Zeki Hocam yukarıda vermiş olduğunuz kodda;
NumLock yerine CapsLock olarak aşağıdaki gibi değiştirdiğimde;

CapsLock kapalı ise açıyor, açık ise kapatıyor.

Benim istediğim CapsLock açık ise kapatsın..

teşekkürler,

Sub Test3()
    If Not GetCapsLockKey Then CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"
End Sub

Private Function GetCapsLockKey() As Boolean
    GetCapsLockKey = GetKeyState(vbKeyCapsLock)
End Function

Teşekkkürler Hocam

 

[tamer42]

Teşekkkürler Hocam

Merhaba;

Aşağıdaki gibi CapsLock açık ise kapatır.

#If Win64 Then

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

#Else

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

#End If

Sub Test3()

    'CapsLock açık ise ise kapat...

     If (GetKeyState(vbKeyCapital) = 1) Then

        CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"

     End If

End Sub

Hocam ofis 2016 da sorunsuz çalışıyor bu kodlar, yalnız ofis 365 te hata verdi,
sebebi neden olabilir?
iyi akşamlar.

 

[Korhan Ayhan]

64 Bit Ofis 365 sürümde şimdi denedim. Hiçbir sorun yaşamadım.