[RaggiTech]

كاتب الموضوع : 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

ماذا لو أردنا معرفة اذا كان زر Num Look هو الذي يعمل أم لا ، سنغير الكود ليصبح بالشكل التالي :

كود :

Public Function NumLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyNumlock)
NumLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function