Tastatur + Maus systemweit sperren

[The Saint!]

So das ganze wird in VB geschrieben!
Dazu beötigen wir mal die WinAPI
Daher könnt ihr es auch in C++ oder sonst was schreiben falls die Sprache die WinAPI uterstützt

So da wir es ja selber testen wollen machen wir es sichtbar und machen dafür eine Form (für ein Virus nat. nciht da wird das ganze ohne Form gemacht!)
Ihr fügt in die Form:

Button alias Command1
Timer alias Timer1
Textbox alias txttime
Label alias Label1 ein.

So einmal müssen wir deklinieren:
Dies fügt ihr unter option explicit ein


Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

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

Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&


gut also die Funktion BlockInput aus der WinAPI sorgt dafür das alles eingebene von der Tastatur/maus sonstwas blockiert wird!

so nun zum eigentlichen code:




Private Sub Command1_Click()
Timer1.Interval = txttime.text
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub

Private Sub Timer1_Timer()
Static Cnt As Long

Cnt = Cnt + 1
If Cnt > 10 Then
Cnt = 0
Timer1.Enabled = False
Call BlockInput(API_FALSE)
Label1.Caption = ""
Else
Label1.Caption = "Verbleibende Zeit bis zur Rückstellung: " _
& Format$(CStr((10 - Cnt)) / 2, "0.0")

End If
End Sub

So nun wenn jmd auf den Button klickt startet der Timer mit dem INnervall, welches im Textfeld angegeben wurde! nd zählt rückwärts bis zur zurücksetzung!

Das wars!