17-10-12, 01:04 AM
كاتب الموضوع : AhmedEssawy
لعلك لاحظت في البرامج الحديثة أنه وأثناء ادخالك لكلمة المرور وفي حالة كون Caps Look=on يقوم باظهار رسالة تحذيرية ، كيفية عمل ذلك بسيطة بالاعتماد على ال API's التي توفرها لنا مكتبة user32 ، نكتب أولاً في قسم التصريحات :كود :
Option Explicit
Private Declare Function GetKeyState Lib _
"user32" (ByVal nVirtKey As Long) As Integer
كود :
Public Function CapsLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyCapital)
CapsLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function
كود :
Public Function NumLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyNumlock)
NumLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function