منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

طبعاً كما هو موضح في الكود فلا بد من اعادة الكيبورد والماوس بطريقة ما للعمل وإلا فسوف تضطر لعمل ريستارت للكومبيوتر ، وفي حالتنا هذه قمنا باستخدام فترة زمنية قبل اعادة الكيبورد والماوس .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech