28 Сентябрь 2008

Как заблокировать мышку и клавиатуру на время?

Клавиатура |  Таги: , , ,

Как заблокировать мышку и клавиатуру на время?
Причем в bytCount мы задаем количество секунд, которое нам необходимо.
Тут уже решать Вам.

Option Explicit
Private Declare Sub Sleep Lib "kernel32" _
            (ByVal dwMilliseconds As Long)
Private Declare Function BlockInput Lib _
    "user32" (ByVal fBlock As Long) As Long
Dim bytCount As Byte

Private Sub Form_Load()
BlockInput True
bytCount = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If bytCount = 0 Then
    BlockInput False
    End
Else
    bytCount = bytCount - 1
End If
End Sub

Запись опубликована on 28.09.2008 at 14:43 и размещена в рубрике: Клавиатура. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас куча комментариев (4) на запись “Как заблокировать мышку и клавиатуру на время?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 30.09.2008, Николай said:

    Добрый день !

    Как можна переписать даные процедуры на Visual Basic for Application (VBA) ???

    Буду очень признателен за ответ …

    С ув. Николай

  2. 2 On 30.09.2008, Александр said:

    Я бы посоветовал Вам, задать вопрос на форуме, в разделе: Вопросы по VBA

  3. 3 On 16.03.2009, dp_ua said:

    А что именно переписывать то?
    объявление функции BlockInput одинаковое.

    а как её использовать это уже дело другое.

  4. 4 On 01.09.2009, Пау said:

    гуддд ..работает …

Оставить комментарий

Я не робот.