طلب كود اقفال لوحة المفاتيح

لابطال عمل CTRL + ALT + DEL

ضع هذا الكود في قسم التعريفات

Private Declare Function SystemParametersInfo Lib _ 
"user32" Alias "SystemParametersInfoA" (ByVal uAction _ 
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ 
ByVal fuWinIni As Long) As Long 
Sub DisableCtrlAltDelete(bDisabled As Boolean) 
Dim X As Long 
X = SystemParametersInfo(97, bDisabled, CStr(1), 0) 
End Sub

لإبطال عمل المفاتيح ضع السطر التالي في المكان المناسب

Call DisableCtrlAltDelete(True)

لإعادة عمل المفاتيح ضع السطر التالي في المكان المناسب

Call DisableCtrlAltDelete(False)

اشكرك اخي المتميز

ممكن اخي كود يقوم باقفال لوحة المفاتيح باكملها أو التحكم في ابطال بعض المفاتيح

لم تعمل هذه الدالة عندي !!!

السلام عليكم ورحمة الله وبركاته

اليك كود اقفال لوحة المفاتيح

Public Function DisableKeyboard()
 Shell "rundll32.exe keyboard,disable", vbNormalFocus
End Function

وهذا كود اخر لتعطيل الماوس والكيبورد

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function DisableMouse_Keyboard(Optional lngTimeToEnable As Long = 1000)
DoEvents
BlockInput True
Sleep lngTimeToEnable
BlockInput False
End Function

شريف...

;) ;) :rolleyes:

في كود اسهل لغلق لوحةالمفاتيح

في الفورم في الكي

Private Sub Form_KeyPress(KeyAscii As Integer)

KeyAscii = False

End Sub

هذا الكود هو لغلق لوحة المفاتيح

ما يهمنا هو فية هو

KeyAscii = False

شكراً

(B) (B)

ممنوع وضع اكثر من سؤال فى نفس الموضوع