تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ايقاف عمل الكيبورد نهائيا
#2
كود :
Option Explicit
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Command1_Click()
fBlock (True)
End Sub
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
ايقاف عمل الكيبورد نهائيا - بواسطة ahmed3d - 14-02-14, 06:33 PM
RE: ايقاف عمل الكيبورد نهائيا - بواسطة Genius Live - 15-02-14, 06:23 AM


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


يقوم بقرائة الموضوع: