منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعطيل الكيبورد والماوس عن العمل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تعطيل الكيبورد والماوس عن العمل (/showthread.php?tid=5842)

تعطيل الكيبورد والماوس عن العمل - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

كما تعودنا في معظم الأكواد ومع استخدام المكتبة user32 يمكننا التعامل مع BlockInput والتي تقوم بتعطيل وسائل الادخال في الجهاز .

طبعاً سنقوم باستخدام Sleep للتوقف لفترة معينة ، ويمكن الاستعاضة عنها ب Timer عادي .



كود :
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
' إيقاف لوحة المفاتيح والماوس عن العمل
BlockInput True
' الانتظار عشر ثواني
Sleep 10000
' إعادة لوحة المفاتيح والماوس للعمل مرة أخرى
BlockInput False
End Sub
طبعاً كما هو موضح في الكود فلا بد من اعادة الكيبورد والماوس بطريقة ما للعمل وإلا فسوف تضطر لعمل ريستارت للكومبيوتر ، وفي حالتنا هذه قمنا باستخدام فترة زمنية قبل اعادة الكيبورد والماوس .