Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
klopower
Newbie
Newbie

Anmeldedatum: 07.07.2010
Beiträge: 5
Tastatursperre - Need help
Verfasst am: 23.07.2010, 15:16
Hi ... Ich wollte eine Tastatursperre und maussperre erstellen.. Hat auch gut geklappt .. da ich das blockinput script benutzt hab.

Aber nun will ich es so machen . Das wenn ich ein bestimmtes passwort eingebe. Es Gesperrt wird. Und wiederum ein anderes Bestimmte passwort eingebe es wieder entsperrt wird! Hoffe ihr wisst ungefähr was ich meine. Nunja mein problem ist immoment. Das ich die maus und tastatur Sperren kann... Nun aber nicht wieder Entsperren !
Gibt es eine möglichkeit den hintergrund also desktop usw.. zu sperren ABER meine form nicht?

Hier ist der code:
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = ("roflmao") Then
            Timer1.Start()
        End If




    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = ("doktorbob") Then
            Timer1.Stop()
        End If


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text = ("roflmao") Then
            BlockInput(True)

        End If


    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If TextBox1.Text = ("roflmao") Then
            Timer3.Start()
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If TextBox1.Text = ("roflmao") Then
            BlockInput(False)




        End If
    End Sub
End Class

_________________
Programmiern macht spaß! Aber nur wenn man kein dummes script kiddie ist!!!
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 536

Verfasst am: 26.07.2010, 13:47
machs dir doch einfacher...

nimmst deine form
machst bodersyle = 0 (wenns in .net so geht)
maximierst sie

und dann fängst du alles ab was die form schliesen könnte

-)windowstaste
-)taskmanager
-)alt F4
-)alt Tab
-)strg alt Entf
-)win m

ja mehr fällt mir nicht ein

dann kannst das alles selbst kontrollieren
und musst nicht auf etwas zugreifen dass ein anderer gemacht hat
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: tastatur sperren, maus

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Passwort Generator 1526 08.07.2010, 00:32
Keine neuen Beiträge Passwort Schutz? 879 25.10.2007, 06:31
Keine neuen Beiträge Das passwort an die E-Mail von mir senden? 562 17.10.2007, 21:18
Keine neuen Beiträge Passwort Generator by sollniss 1269 28.11.2008, 17:03
Keine neuen Beiträge TUT zur Passwort abfrage 1013 10.08.2007, 15:06
 




[ Time: 0.1530s ][ Queries: 87 (0.0224s) ][ GZIP on - Debug on ]