تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعطيل الكيبورد والماوس عن العمل
#1
كاتب الموضوع : 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 0 623 17-10-12, 04:39 PM
آخر رد: RaggiTech
  تعطيل لوحة المفاتيح الى اشعار اخر RaggiTech 0 613 17-10-12, 03:12 PM
آخر رد: RaggiTech
  تفعيل و تعطيل خيارات نظام التشغيل System Propreties المبرمج الطموح vb6 0 447 06-10-12, 12:47 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل التشغيل Run المبرمج الطموح vb6 0 488 06-10-12, 12:44 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل فتح الريجستري Regedit المبرمج الطموح vb6 0 551 06-10-12, 12:40 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل إظهار الملفات المخفية Hidden Files المبرمج الطموح vb6 0 821 06-10-12, 12:37 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل خيارات المجلدات Folder Option المبرمج الطموح vb6 0 463 06-10-12, 12:34 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل لوحة التحكم Control Panel المبرمج الطموح vb6 0 485 06-10-12, 12:30 PM
آخر رد: المبرمج الطموح vb6
  تفعيل أو تعطيل زر الإغلاق (x) في النوافذ بالكود المبرمج الطموح vb6 0 560 05-10-12, 06:41 PM
آخر رد: المبرمج الطموح vb6
  التحكم بمنفذ usb ( تفعيل - تعطيل ) ( فيجول بيسيك 6 ) Ahmad Jawad 0 906 22-09-12, 07:03 PM
آخر رد: Ahmad Jawad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم