Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
BlockInput блокирует все события ввода от клавиатуры и мыши.
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае возвращается ненулевое значение
' Блокируем клавиатуру и мышь на 10 секунд DoEvents BlockInput True ' Пауза на 10 секунд Sleep 10000 ' Снимаем блокировку BlockInput False
Клавиатура (или Мышь)