1
2
3
4
5
6
7
8
9
10
11
12
13
|
Public Declare Function BlockInput Lib "user32" ( _
ByVal BlockIt As Boolean) _
As Boolean
''' <summary>
''' Diese Funktion blockiert Maus- und Tastatureingaben für eine bestimmte Zeit
''' </summary>
''' <param name="Time">Gibt an (in ms) wie lange Maus und Tastatur blockiert werden sollen</param>
Public Sub BlockUserInput(ByVal Time As Long)
BlockInput(True)
System.Threading.Thread.Sleep(Time)
BlockInput(False)
End Sub
|