Ergebnis 1 bis 7 von 7
  1. #1
    Anfänger
    Registriert seit
    11.07.2009
    Beiträge
    13

    Idee [VB.NET] Tastatur & Maus De/Aktivieren

    Mit diesem Code lässt sich die Tastatur und die Maus aktivieren bzw. deaktivieren.
    Zur Sicherheit sollte man zum Wiederaktivieren einen Timer einbauen, da man sonst nur mit Neustart wieder schreiben und Maus bewegen könnte




    z0ND

  2. #2
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard

    Nice thanks for share

    Code:
    Public Class Form1
        Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
        Const API_FALSE As Long = 0&
        Const API_TRUE As Long = 1&
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            Call BlockInput(API_TRUE)
            Timer1.Start()
            Timer1.Interval = 10000
    
        End Sub
    
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
            Call BlockInput(API_FALSE)
            Timer1.Stop()
            Me.Close()
        End Sub
    End Class
    hier nochmal mit timer angepasst

    einfach ne timer einfügen.


    iPott <3

  3. #3
    eicar Avatar von sarex
    Registriert seit
    20.04.2009
    Beiträge
    311

    Standard

    super n1
    danke
    mfg

  4. #4
    Anfänger
    Registriert seit
    11.07.2009
    Beiträge
    13

    Standard

    Zitat Zitat von inmate Beitrag anzeigen
    Nice thanks for share

    Code:
    Public Class Form1
        Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
        Const API_FALSE As Long = 0&
        Const API_TRUE As Long = 1&
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            Call BlockInput(API_TRUE)
            Timer1.Start()
            Timer1.Interval = 10000
    
        End Sub
    
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
            Call BlockInput(API_FALSE)
            Timer1.Stop()
            Me.Close()
        End Sub
    End Class
    hier nochmal mit timer angepasst

    einfach ne timer einfügen.
    Ich war zu faul dafür^^

  5. #5
    Bugbear Wurm
    Registriert seit
    06.07.2009
    Beiträge
    236

    Standard

    Danke fürs reinstellen^^
    Sowas brauche ich sogar gerade ;-)

  6. #6
    ChaosBolt Avatar von biggermanbomber
    Registriert seit
    09.04.2009
    Beiträge
    158

    Standard

    genau ... aber nicht vergessen dem vic nicht die exe mit dem timer zu geben xD sollte man zummindestens nicht machen
    *pfeif*
    ----->Biete<-----

    ----->Suche<-----

  7. #7
    Neuling
    Registriert seit
    14.02.2010
    Beiträge
    2

    Standard

    Also bei mir geht das nich! hab zu 100% alles richtig gemacht!
    hab win7 64bit einer ne idee?

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •