17-10-12, 07:07 PM
كاتب الموضوع : egyption-coder
كود :
[SIZE=4][color=blue]Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Boolean) As Boolean[/color][/SIZE]
[SIZE=4][color=blue]' [/color][FONT=Tahoma][color=blue]إيقاف الادخال من الماوس والكيبورد[/color]
[/FONT][/SIZE][SIZE=4][color=blue]BlockInput(True)[/color][/SIZE]
[SIZE=4][color=blue]' [/color][FONT=Tahoma][color=blue]إعادة امكانية الإدخال من الماوس والكيبورد[/color]
[/FONT][/SIZE][SIZE=4][COLOR=blue]BlockInput(False)
[/COLOR][/SIZE]