'СОРС ЗАФОРМАТА

'Деклариране на АПИ функция за блокиране на мишката и клавиатурата

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

' При кликане върху бутона за блокиране

Private Sub Command1_Click()

Timer1.Enabled = True ' Пускаме таймера, който трябва да възстанови функциите след 10 s

' Оформяме уведомителния надпис

Label1.Caption = "10" & " s до възстановяване функцията на мишката и клавиатурата!"

BlockInput True ' Блокираме мишката и клавиатурата

End Sub

' Таймер за отброяване на секундите с интервал 1000 мили секунди

Private Sub Timer1_Timer()

' При всяко запускане на таймера сменяме уведомителния надпис, като изваждаме по 1 секунда

Label1.Caption = Val(Label1.Caption) - 1 & " s до възстановяване функцията на мишката и клавиатурата!"

If Val(Label1.Caption) = "0" Then 'Ако функцията взимаща числото от надписа стане 0

Timer1.Enabled = False ' Спираме таймера

BlockInput False 'Разблокираме мишката и клавиатурата

Label1.Caption = "Мишката и клавиатурата са работоспособни!" ' Оформяме уведомителния надпис

End If

End Sub