تقييم الموضوع :
  • 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
طبعاً كما هو موضح في الكود فلا بد من اعادة الكيبورد والماوس بطريقة ما للعمل وإلا فسوف تضطر لعمل ريستارت للكومبيوتر ، وفي حالتنا هذه قمنا باستخدام فترة زمنية قبل اعادة الكيبورد والماوس .
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفعيل و تعطيل فتح الريجستري Regedit المبرمج الطموح vb6 1 3,820 20-05-18, 11:21 PM
آخر رد: اسلام الكبابى
  تعطيل وتفعيل مدير المهام RaggiTech 0 2,674 17-10-12, 04:39 PM
آخر رد: RaggiTech
  تعطيل لوحة المفاتيح الى اشعار اخر RaggiTech 0 2,408 17-10-12, 03:12 PM
آخر رد: RaggiTech
  تفعيل و تعطيل خيارات نظام التشغيل System Propreties المبرمج الطموح vb6 0 2,221 06-10-12, 12:47 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل التشغيل Run المبرمج الطموح vb6 0 2,431 06-10-12, 12:44 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل إظهار الملفات المخفية Hidden Files المبرمج الطموح vb6 0 3,094 06-10-12, 12:37 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل خيارات المجلدات Folder Option المبرمج الطموح vb6 0 2,148 06-10-12, 12:34 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل لوحة التحكم Control Panel المبرمج الطموح vb6 0 2,248 06-10-12, 12:30 PM
آخر رد: المبرمج الطموح vb6
  تفعيل أو تعطيل زر الإغلاق (x) في النوافذ بالكود المبرمج الطموح vb6 0 2,245 05-10-12, 06:41 PM
آخر رد: المبرمج الطموح vb6
  التحكم بمنفذ usb ( تفعيل - تعطيل ) ( فيجول بيسيك 6 ) Ahmad Jawad 0 2,554 22-09-12, 07:03 PM
آخر رد: Ahmad Jawad

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


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