Passwortcheck mit Zeitfunktion

[Egypter]

Hi Leute!
Habe mir eine Passwortabfrage gebastelt die soweit funktioniert. Jetzt möchte ich gerne noch eine Zeitfunktion einbauen, die bei einem falschem Login das Programm nach ca. 15 s beendet.

 

[Ein_Freund]

Die Zeitverzögerung von 15 Sekunden bekommst Du z.B. mit folgender Prozedur hin:

Sub delay()
    start = Timer
    pause = 15
    Do
        DoEvents
    Loop Until Timer = start + pause
End Sub

Auszug aus der MSDN:

Timer-Funktion


Gibt einen Wert vom Typ Single zurück, der die Anzahl der seit Mitternacht vergangenen Sekunden angibt.

Syntax

Timer

Bemerkungen

Unter Microsoft Windows gibt die Timer-Funktion Bruchteile einer Sekunde zurück.