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

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

هذا الكود يعمل على ويندوز98 ويقوم بتعطيل الماوس الكيبورد حتى اعادة التشغيل ولم اجربه على الاكس بى

Private Sub Command1_Click()
 Shell "rundll32.exe keyboard,disable", vbNormalFocus
Shell "rundll32.exe mouse,disable", vbNormalFocus
End Sub

هذا الكود يعمل على اى نسخة ويندوز ويعطل الماوس والكيبورد فترة محددة تمرر لمعامل الدالة Block Input بوحدة المللى ثانية

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
DoEvents
BlockInput True
Sleep DisabledTime
BlockInput False
End Sub