كتابة كود يغلق الكي بورد او بعض الازرارxp

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
   DoEvents
   'block the mouse and keyboard input
   BlockInput True
   'wait 10 seconds before unblocking it
   Sleep 10000
   'unblock the mouse and keyboard input
   BlockInput False
End Sub

أما عن هذا الكود فيغلق الكيبورد والماوس كلا علي حدة

Private Sub Form_Load()

shell "rundll32.exe keyboard,disable", vbNormalFocus
shell "rundll32.exe mouse,disable", vbNormalFocus

End Sub

أما عن إلاق بعض أزرار الكيبورد فإاليك الرابط التالي

/index.ph...=0entry232643

يقوم الكود التالي بإغالاق الكيبورد والماوس ثم فتحهم بعد 10 ثواني

بارك الله فيك اخي boshkash

ولكن انا عندي سؤال اخر

كيف يمكن اعيد تشغيل الكي بورد بعد استخدام

shell "rundll32.exe keyboard,disable", vbNormalFocus

وكذلك الموس بعد استخدام

shell "rundll32.exe mouse,disable", vbNormalFocus

بدون عمل restart للجهاز

و شكرا

اسف لتأخري في الرد

change "Disable" to "Enable"

شكرا لك اجي الكريم boshkash

شكرآ لك اخي الكريم boshkash