Tastatur + Maus systemweit sperren

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

Code:

---

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:

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!