{كود لإيقاف الفأرة و لوحة المفاتيح}

{كود لإيقاف الفأرة و لوحة المفاتيح}

---

	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 1000 BlockInput False End Sub

___________

بعد نسخ الكود الى المفكرة احفظه بأي اسم شرط أن يكون الإمتداد

html or vbs

_______

        

حمزة "الأسد" الشحادة أبو جراد

المفرق-الأردن